tough code please help...

xanderxvr · January 27th, 2005, 09:04 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.

madhukp · January 27th, 2005, 10:31 AM

You can use this function.

private function funcWriteStringVertically(strText)
    dim iLoop
    dim strReturnString
    strReturnString = ""
    for iLoop = 1 to len(strText)
        if(strReturnString="") then
            strReturnString = mid(strText,iLoop,1)
        else
            strReturnString = strReturnString & "<br>" & mid(strText,iLoop,1)
        end if
    next
    funcWriteStringVertically = strReturnString
end function

This will return the text passed to it ready to be vertically printed.

Response.Write funcWriteStringVertically("India is my country.")

will print the string "India is my country" vertically.

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

<%@ Language=VBScript %>

<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")
Set file = fso.CreateTextFile("w:\BoSeo\bingo.txt")
%>

<HTML>
<BODY>
<%
Dim strVar1, strVar2, i
strVar = Request.Form("item")

For i = 1 to len(strVar1)
     Response.write mid(strVar,i,1) & "<BR>"
Next
  For i = 1 to len(strVar2)
     Response.write ucase(mid(strVar, i, 1)) & "-" "<BR>"
Next
%>

%>
</BODY>
</HTML>

1. Using he file system object, i want to write the name of this file to the screen the contents of this file look like
H
E
L
L
O

2. Using the contents of the file, i want to create a second file named bingo.txt. and write out the contents of this file so it looks like this
H-E-L-L-O

any help would be appreciated. thanks lots