字符串问题，很简单，可我不会.......

Question

dim s as string
s = "ABCDEFGHJKGFDHDFHSHSHH" & char(10) & char(13) & "FKLJKLJGKLGKL" & _
    char(10) & char(13) & "FKLJKLJGKLGKGHFDHFDHFDHFL" & _
    Char(10) & char(13) & "FKLJKLJGKLGKL" .......'我要得到每个由 char(10) & char(13) 分割开的字符串：
"ABCDEFGHJKGFDHDFHSHSHH"
"FKLJKLJGKLGKL"
"FKLJKLJGKLGKGHFDHFDHFDHFL"
..........

Answer 1

Dim s As String
s = "ABCDEFGHJKGFDHDFHSHSHH" & Chr(10) & Chr(13) & "FKLJKLJGKLGKL" & _
    Chr(10) & Chr(13) & "FKLJKLJGKLGKGHFDHFDHFDHFL" & _
    Chr(10) & Chr(13) & "FKLJKLJGKLGKL" .......

Answer 2

dim array()   as string
dim k         as string k=char(10) & char(13)
array=split(s,k)
那么array(0)="ABCDEFGHJKGFDHDFHSHSHH"
    array(1)="FKLJKLJGKLGKL"
没有试验过哦！
我只是凭感觉
自己试验一下

Answer 3

再定义一个数组
dim sArray() as string
sArray = split(s, char(10) & char(13))
这样就可以了
dim i as integer
for i = 0 to ubound(sArray)
  msgbox sArray(i)
next i

Answer 4

如果是文件，直接用readline读就可以了，每次读一行，读入字符串，自动去掉会车换行符

Answer 5

Private Sub Command1_Click()
    Dim s As String
    s = "ABCDEFGHJKGFDHDFHSHSHH" & Chr(10) & Chr(13) & "FKLJKLJGKLGKL" & _
    Chr(10) & Chr(13) & "FKLJKLJGKLGKGHFDHFDHFDHFL" & _
    Chr(10) & Chr(13) & "FKLJKLJGKLGKL"
    Dim outarr() As String
    outarr = Split(s, Chr(10) + Chr(13))
    Dim i As Long
    '测试输出
    For i = 0 To UBound(outarr)
        Debug.Print outarr(i)
    Next
End Sub
不过如果你用vb5的话，用上面的方法不行，只能在循环中用instr结合mid函数取出数据