vb 读取第二个逗号和第三个逗号间的数据

来源：百度知道 编辑：UC知道 时间：2024/05/09 19:53:46
"2007-04-29 09:21:00",15,3115.952,70.8069,1,4473,86.37,-1,60,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.01,15.69,13.59
我要提取的是第二个逗号和第三个逗号间的数据。怎么办呢？这是本人第一次上百度提问，积分不多，还望个人大侠指教

假设为a赋值为字符串 "2007-04-29 09:21:00",15,3115.952,70.8069,1,4473,86.37,-1,60,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.01,15.69,13.59

b=split(a,",") '这句是是把上面的字符串变量按逗号读入到一个叫B的数组中

c=b(2)'从b数组读取第三个组值,第一个是b(0),值为2007-04-29 09:21:00

详情参阅 split 函数

function a(byval s as string) as string
dim i as integer,tmp as string
i=instr(s,",")+1
tmp=mid(s,i)
i=instr(tmp,",")-1
a=left(tmp,i)
end function

Private Sub Command1_Click()
Dim a As Variant
a = Split("2007-04-29 09:21:00,15,3115.952,70.8069,1,4473,86.37,-1,60,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.01,15.69,13.59", ",")
Print a(2)
End Sub