VBScript count new lines

I'm looking for a function on how to count how many new lines there are in a particular string that is being returned from the DB.

I've seen functions to do this JavaScript and PHP but none for VBScript.

I want to first check if there are Carriage Returns in the string (and count them), then I want to do a replace 开发者_运维百科on them to a <br/> tag.

I suppose I could do the replace on vbCrLf and if it doesn't find one then there will probably be no harm done. However, for debugging purposes right now I would really like to get the count so I know what it is doing (and if it is what I'm expecting).

Any ideas on how to do this in VBScript

---

You can try to split the string and see the UBound of the array:

'Split the stringfile into lines
arrLines = Split(strData,vbCrLf)

lineNb = UBound(arrLines)

code adapted from here

---

Use a RegExp, if you want the Count and the replacement:

>> s = Join( Array( 1, 2, 3 ), vbCrLf )
>> Set r = New RegExp
>> r.Global = True
>> r.Pattern = vbCrLf
>> WScript.Echo r.Execute( s ).Count
>> WScript.Echo r.Replace( s, "<br />" )
>>
2
1<br />2<br />3
>>

---

If you are replacing the string and only need to know how many replacements, how about:

s = StringFromDB
l = Len(s)
s = Replace(s,vbCrLf,"<br/>")

MsgBox "Replaced: " & (Len(s)-l)/3

---

Once I read that for new lines chars is possible to use:

Cr   (Carriage return)
Lf   (Line feed)
CrLf (Both of the previous)

They are OS system related / specific: for what I know vbCrLf works in win systems platforms only, while other in linux/unix/mac OSs.

I suppose that will be better for a more general approach the use of vbNewLine instead of vbCrLf because vbNewLine adapts to the correct way as needed.

Please correct me if I'm wrong, because I am not totally sure about. tnx