Please give me an example of code

xanderxvr · January 27th, 2005, 09:02 AM

!) a user has to type in like
HELLO

2) the result that prints like
H
E
L
L
O

3) H-E-L-L-O

I need an example of this code that will print an input string vertically but don't forget --- a user has to type in HELLO... not first print like for i = 1 to letters(strvar)
response.write(strvar, i, 1)

but a user has to type in HELLO... pleaes give me an example of this code that will print an input string vertically and horizonally with dash... any help would be appreciated... thanks a lot.

jacob · January 27th, 2005, 09:12 AM

Take out each letter and append it to a new string and after each letter insert some kind of token e.g. '-'. Then use Replace to change the '-' with line breaks. Then you have both combinations.

You can use the Mid function to extract the letters.

Hope it helps

Jacob.

(Some people are not to happy about cross posts no1 no2) )

xanderxvr · January 27th, 2005, 09:19 AM

but a user has to type in HELLO,... i still need an example.. thanks a lot...

jacob · January 27th, 2005, 09:23 AM

Here it is...

Code:

var1 = "HELLO"
var2 = ""

For i = 1 To Len(var1)
    var2 = var2 & Mid(var1, i, 1)
    If i <> Len(var1) Then
        var2 = var2 & "-"
    End If
Next

Response.Write var2
Response.Write "<br><br>"
Response.Write Replace(var2, "-", "<br>")

Very rough sketch, but it works. Just replace the variable var1 with the extract from the form.

Jacob.

xanderxvr · January 27th, 2005, 12:04 PM

but i mean request.form for example
if a user typed in Hello

<HTML>
<BODY>
<FORM METHOD=POST ACTION="bingo1.asp" id=form1 name=form1>
<INPUT TYPE=text NAME=item><BR>
<INPUT TYPE=SUBMIT VALUE="Click Me" id=SUBMIT1 name=SUBMIT1>
</BODY>
</HTML>

<%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim fso, file, folder
Set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.CreateFolder("w:\BoSeo")

%>
<%
Dim strVar1, strVar2, i

strVar1 = Request.Form("item")
For i =1 to len(strVar1)
Response.write mid(strVar1,i,1) & "<BR>"
Next
'i mean using the file sysem object, write the name of this file to the screen. the contents of te file look like
H
E
L
L
O

<%
Set file = fso.CreateTextFile("w:\BoSeo\bingo.txt")
strVar2 = Request.Form("item")
For i =1 to len(strVar2)
Response.write mid(strVar1,i,1) & "-"
Next
'using the contents of this file, i create a second file named bingo.txt and write out the contents into the file so it looks like H-E-L-L-O
%>