主题：如何对数据内的回车符前插入数值

Dim s1 = "a" & vbcrlf & "b" & vbcrlf & "c"
Dim s2 = "1" & vbcrlf & "2" & vbcrlf & "3"

s1 = s1.replace(chr(10), "").split(chr(13))
s2 = s2.replace(chr(10), "").split(chr(13))

Dim nstr As String = ""
For i As Integer = 0 To s1.length-1
    nstr &= s1(i) & "-" & s2(i) & vbcrlf
Next
msgbox(nstr)