VB如何提取文本框指定多行文字?

来源：百度知道 编辑：UC知道 时间：2024/06/06 19:27:00
就是同时提取文本框1(multiline=true)的文字(注意逗号)123564&, 4324df 发烧碟, 闪电反射 手动分段收费, 发烧碟, 闪电反射, 同时提取第1,3,4行的数据到文本框2123564&,发烧碟,闪电反射,如图:http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/b7f1e9ed01ba454e78f0558e.jpg

Function getline(ByVal s As String, ParamArray a())
Dim i As Integer, st(1 To 1000) As String, s1 As String, s2 As String, rnum As Integer, v
s1 = ""
rnum = 0
For i = 1 To Len(s)
If Mid(s, i, 1) <> Chr(13) Then
s1 = s1 + Mid(s, i, 1)
Else
rnum = rnum + 1
st(rnum) = s1
s1 = ""
End If
Next i
rnum = rnum + 1
st(rnum) = s1
s1 = ""
For Each v In a
s1 = s1 + st(v)
Next v
getline = s1
End Function
Private Sub Command1_Click()
Text2 = getline(Text1, 1, 3, 5)
End Sub