vb关于split的用法

Question

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

Answer 1

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 SubPrivate 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 语句。