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

发布网友发布时间：2022-05-16 10:21

共4个回答

热心网友时间：2023-10-19 14:09

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

热心网友时间：2023-10-19 14:10

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

热心网友时间：2023-10-19 14:10

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

热心网友时间：2023-10-19 14:11

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