vb关于split的用法解决思路

vb关于split的用法
我现在的数据是

(1,247,247,3332,1166,8000,200,4,0)

(2,230,230,444,abc,377,300,aaa,ssss)

(3,325,10189,cccg,hh,37777,1300,hk,asdf)

……

如何只获取每行第3个字段和第4个字段的字符串，然后中间加个w
输出结果为

247w3332

230w444

10189wcccg

……

------解决思路----------------------
s = "(1,247,247,3332,1166,8000,200,4,0)"
result = Split(s, ",")(2) & "w" & Split(s, ",")(3) 
------解决思路----------------------

Private Sub Form_Load()                                                     '标签里加载你的数据

Label1.Caption = "(1,247,247,3332,1166,8000,200,4,0)" & vbCrLf & _

"(2,230,230,444,abc,377,300,aaa,ssss)" & vbCrLf & _

"(3,325,10189,cccg,hh,37777,1300,hk,asdf)"

End Sub


Private Sub Command1_Click()

n = UBound(Split(Label1.Caption, vbCrLf))                                   '获得你数据的行数

ReDim arr1(0 To n)                                                          '定义一个数组，盛放截取的数据

For x = 0 To n

    s = Split(Label1.Caption, vbCrLf)(x)

    arr1(x) = Split(s, ",")(2) & "w" & Split(s, ",")(3)

Next

Text1.Text = Join(arr1, vbCrLf)

End Sub

如果你的数据量比较大，存放在txt里，那就用读取txt的方法将数据提取出来。参看open for 语句。