Vertical content? - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

Vertical content? - Posted 30 Oct 2007 11:40 (1263 Views)

Etymon

Advanced Member

Posts: 2396

2396

My searches have not yielded the results I am looking for.
I want to split a subject line to read vertically instead of horizontally.
Does anyone know how to do this?
Thanks all!
Etymon
<

Posted 30 Oct 2007 12:48

JJenson

Advanced Member

Posts: 2121

2121

Something like this?
http://www.ssi-developer.net/css/vertical-text.shtml<

Posted 31 Oct 2007 07:14

Etymon

Advanced Member

Posts: 2396

2396

Originally posted by JJenson
Something like this?
http://www.ssi-developer.net/css/vertical-text.shtml

Thanks for the reply, Jeff.
That's along the lines of what I wanted, except I was looking for this:

V
e
r
t
i
c
a
l
Here's an additional reference that goes into great detail about the possible future of that aspect of CSS (http://fantasai.inkedblade.net/style/discuss/vertical-text)

<

Last edited by Etymon on 31 October 2007, 07:15

Posted 31 Oct 2007 07:39

Shaggy

Support Moderator

Posts: 6780

6780

Can you not just add a line break after each character?
<

Search is your friend “I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

Posted 31 Oct 2007 08:04

cripto9t

Average Member

Posts: 881

881

i use this in a numbers pool script I have. I changed the variable names to make it a little more clear.

Code:

Dim strToVert       'Text to turn vertical
Dim iCnt            'Count the letters
Dim strVert         'Resulting vertical text
Dim i               ' The counter

strToVert = "Vertical"
iCnt = Len(strToVert)
strVert = ""
for i = 1 to iCnt
        strVert = strVert & " " & Mid(strToVert,i,1) & " "
        if i < iCnt then strVert = strVert & "<br />"
next

Response.Write strVert

<edit> Removed some unneccesary breaks<

_-/Cripto9t\-_

Last edited by cripto9t on 31 October 2007, 08:09

Posted 31 Oct 2007 08:27

Etymon

Advanced Member

Posts: 2396

2396

Thanks Shaggy! I was able to do that for static text, but I also needed the vertical text to work with variables.
Thanks cripto9t! That's cleaner than what I came up with! My version does same thing, but yours is much quieter.

The following made the characters align straighter for my needs:

'#### BEGIN Vertical Text MOD by cripto9t ####'

Code:

Dim strToVert       'Text to turn vertical
Dim iCnt            'Count the letters
Dim strVert         'Resulting vertical text
Dim i               'The counter

strToVert = "Vertical"
iCnt = Len(strToVert)
strVert = ""
for i = 1 to iCnt
        strVert = strVert & Mid(strToVert,i,1)
        if i < iCnt then strVert = strVert & "<br />"
next

Response.Write strVert

'#### END Vertical Text MOD by cripto9t ####'
<