不知道你为什么要这样做,不过读取这个是很简单的,利用Split这个函数,代码如下:
Dim coltext As String = TextBox1.Text.Trim
Dim charSeparators1() As Char = {vbCrLf}
Dim paraList() As String
paraList = coltext.Split(charSeparators1, StringSplitOptions.None)
MsgBox(paraList.Length)
MsgBox(paraList.Length) 这个就是把有多少行给输出来了,那加一组循环就可以把每一行的内容给打印出来,每一行你加一个回车符就可了。