Question

怎么用VB截取多行字符串？

例如有一段数据如下
12345
asdfg
zxcvb

怎样只输出第二行数据“asdfg”？
用什么函数？
回答bbubububu的答案：看不懂，你能不能直接给我程序代码？
假设我把
“12345
asdfg
zxcvb”输在text1里了，按下一个按钮，要在text2输出asdfg
怎么弄？

还有如果我想输出第三行呢？
另外，我复制了你的代码之后总是提示str缺少数组

Answer 1

text2.text=split(text1.text,vbcrlf)(1) '输出第二项
text2.text=split(text1.text,vbcrlf)(2) '输出第3项
其中vbcrlf是回车换行符
split（）函数是把字符串转换为数组，vbcrlf是分隔符。

Answer 2

'用split函数
dim str as string
str = Split("一段数据", vbCrLf)
for i=0 to 2
msgbox str(i)
next

Answer 3

Private Sub Command1_Click()
Dim strTemp() As String
strTemp = Split(Text1.Text, vbCrLf) '以回车换行符为界分离text1文本框内容，赋值给数组变量
For i = 0 To UBound(strTemp) '循环遍历数组变量中所有元素
If i = 2 - 1 Then Text2.Text = strTemp(i): Exit For '如果当i=1 也就是第二个元素时 将其内容赋值给text2控件 然后退出循环
Next
End Sub

Answer 4

text2.text=split(text1.text,vbcrlf)(0) '第一行
text2.text=split(text1.text,vbcrlf)(1) '第二行
text2.text=split(text1.text,vbcrlf)(2) '第三行