Split 瓜分读取

Split 分割读取
txt w文档内容如下：
地方，434，速度，帖问
是分分，色粉，4242，发送
第三方，是否，斯蒂芬，上网

我现在要用Split分割读取"，"分隔符。
把数据读出来。
像如果是1行的话，我就一个一维数组就OK了，
dim s() as string
s = Split(strLine, ",")
s(0),s(1),s(2),s(3)就是一行的值。
现在我有多行，要怎么取值，二维数组？？？
[解决办法]
先按行分割split(string,vbcrlf)
[解决办法]
先按行分割,再按","分割

   s = Split(strLine, vbctrl)
   b = UBound(s)
       For t = 0 To b
         if instr(s(t),",")>0 then
           i = i + 1
           '----------------------
           x = Split(s(t), ",")
           u = UBound(x)
           For n = 0 To u
               m(i,n) = x(n)    
           Next n 
          '----------------------
     end if
   Next t

[解决办法]
可以用二维数组（条件是你每一行的列数相同，例如都是 4 列）：

Dim strLine() As String, strItems() As String, StrRecords() As String
Dim i As Long, j As Integer

strLine = Split(strText, vbCrLf)
Redim strRecords(Ubound(strLine), 3)

For i = 0 To Ubound(strLine)
    strItems = Split(strLine, ",")
    If Ubound(strItem) = 3 Then
        For j = 0 To 3
            strRecords(i, j) = strItems(j)
        Next j
    End If
Next i

查看更多 下一篇