VB 循环读取字符串中的每一行

来源：百度知道 编辑：UC知道 时间：2024/05/04 04:09:13
怎样循环读取字符串(变量：ABC)中的每一行，剩下的我自己写
ABC是从RichTextBox1中获取的

到底哪个才是读取后的变量啊！！！！！！！！！！！！！？？？？？？？？？？？？？？？

先把话说明白 OK?
ABC不就是一行

楼下好多正解了
ss = split(abc,vbcrlf)
for each s in ss
...
next

如果变量是文本的话
File1.Path & "\" & File1.FileName For Input As #1
For I = 0 To 26 Step 1 /几行
Line Input #1, CnStr(I)
Next I
Close #1

ss = split(abc,vbcrlf)
for each s in ss
...
next

Dim a(1000000) As String
j = ""
js = 0
For i = 1 To Len(abc)
If Mid$(abc, i, 1) = Chr$(13) Then
js = js + 1
a(js) = j
j = ""
Else
j = j & Mid$(abc, i, 1)
End If
Next i

a数组每个一行
vbcrlf不行，我试过了只能用chr$(13)
也可以用a = Split(abc, chr$(13), -1, 1)

ss = split(abc,chr$(13)+chr$(10))
ss是个数值，下标0
比如SS(0)就是第1行
SS(1)就是第2行。
用UBOUND（）函数可以返回SS数组的最大下标值。