Split 分割读取

[pengwu666]

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)

[pengwu666]

引用 1 楼 yiguangqiang88 的回复:

先按行分割split(string,vbcrlf)

很速度。能具体点么。 那我是不是需要多个数组？

[zhaoyifhq]

先按行分割,再按","分割

   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

[zhaoyifhq]

先按行分割,再按","分割 s = Split(strLine, vbnewline) 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

[of123]

可以用二维数组（条件是你每一行的列数相同，例如都是 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

[lliai]

先按行分割split(string,vbcrlf) .

[pengwu666]

引用 5 楼 of123 的回复:

可以用二维数组（条件是你每一行的列数相同，例如都是 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(strLi……

我觉得可行 不过太乱了，能有点注释不。 目前还没调试好

[pengwu666]

Do Until EOF(1) Line Input #1, strText 还有我是按行读取的。

[bcrun]

看数据量是否大，大数据量的话，估计二维字符串数组处理起来速度有保障些