有些文本中的换行符不一定是vbCrLf,也有可能是vbCr或vbLf,你可以这样试试:
a = split(textbox1.text, vbcr)
或
a = split(textbox1.text, vblf)
a = split(textbox1.text, vbcrlf)
这条语句的意思是,将textbox1的文本以回车为界限进行分割,结果放入数组a中
假设textbox1(注意是多行文本框)的内容是:
a
aa
aaaa
分割后:
a(0)=a
a(1)=aa
a(2)=aaaa
Dim a() As String = System.Text.RegularExpressions.Regex.Split(TextBox1.Text, "\r\n|\n|\r")
For i = 0 To UBound(a)
MsgBox(a(i), , i)
Next
把TextBox1的MultiLine属性设置为True,TextBox1中输入a回车、aa回车、aaa回车,出来结果就是你要的