Printing a break after every x amount of chars?? 1

[kloner]

Hi all,

In VBSCRIPT, how do you print a &quot;<BR>&quot; after every 15 characters of a string?

eg strTempString = &quot;abcdefghijklmnopqrstuvwxyz123456789098gfjkgdfgkd&quot;

and output would be :
abcdefghijklmno <br>
pqrstuvwxyz1234 <br>
56789098gfjkgdf <br>
gkd

Thanks
kloner

 

[danvlas]

Something like:

For i = 1 to Len(YourString)
PartStr = PartStr & Mid(YourString, i, 1)
If i mod 15 = 0 then
PartStr = PartStr & &quot;<br>&quot;
Response.Write PartStr & Chr(13) & Chr(10)
PartStr = &quot;&quot;
End If
Next
If Len(PartStr)>0 Then
Response.Write PartStr
End If

Good luck

Daniel Vlas
Systems Consultant
danvlas@yahoo.com

 

[Tarwn]

To speed this up you could loop through the entire string by chunks of 15 rather than 1:

Dim partStr, numLoops, i
numLoops = Fix(len(YourString)/15) 'round down
For i = 0 to numLoops-1
   Response.Write mid(YourString,(i*15)+1,15) & &quot;<br>&quot;
Next
Response.Write Right(YourString,len(YourString) mod 15)

You may not need the -1 on numloops, this was written on the fly so I didn't test it.

-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
No more vacation for me

FAQ FAQ20-2863
= new Forums.Posting.General.GettingAnswers()