VBScript help needed.

[jammer20002]

I need a bit of help in using VBScript.
I've got a string and need to split the string every 150 characters.
Also, I want to replce newline characters with commas.

I know it must be really simple... and I can do it using looads of other more complex languages like Perl!
But I'm stuck. :(
Can someone help me out with the code?
It should only be one or two lines.

Thanks.


Jam

[buntine]

Replacing the newline characters with commas should be a one liner.

Dim strDelimited
'| VBScript uses the vbCrLf statement apposed to the \n escape sequence.
strDelimited = Replace(originalString, vbCrLf, ",")

As for spliting the string every 150 characters, it would be bst to write your own function. This one will return an array of strings.

Dim strMessage
Dim arrStrings()
Dim i

strMessage = "Some massive string"
arrStrings = SplitString(strMessage)

If IsArray(arrStrings) Then
For i = 0 To UBound(arrStrings) - 1
Response.Write(arrStrings(i) & "<br />")
Next
End If

Function SplitString(strOriginal)
Dim arr()
Dim i, intToSplit, count

intToSplit = 150
count = 0

'| Make sure the passed parameter is long enough
If Len(strOriginal) < intToSplit Then
SplitString = Nothing
End If

'| Split the string into blocks.
For i = 0 to Len(strOriginal) / intToSplit
ReDim Preserve arr(i)
arr(i) = Mid(strOriginal, count, intToSplit)
count = count + intToSplit
Next


'| Get the left over characters and put them into a new array index.
Dim intLeftOver
intLeftOver = Len(strOriginal) Mod intToSplit

If intLeftOver <> 0 Then
ReDim Preserve arr(i+1)
arr(i+1) = Right(strOriginal, intLeftOver)
End If

SplitString = arr '| Return the array.
End Function

Ok, that should work. But if it does return an error, just post here again and i will fix up my mistakes.

Regards,
Andrew Buntine.