一个VB提取字符的问题

来源：百度知道 编辑：UC知道 时间：2024/06/10 20:43:11
有一列数字：
"1234" "2345" "3456"(两个被引号引用的数组之间有空格)，求助高手把
里面的数字1234 2345 3456 提取出来，放到啊a（i）中，使
a(1)=1234
a(2)=2345
a(3)=3456
请高手解答～小弟谢过了～

Private Sub Command1_Click()
aaa = """1234"" ""2345"" ""3456"""
'aaa的值就是"1234" "2345" "3456" 在引号内使用引号要用两个引号来表示字符"的
aaa = """ " & Left(aaa, Len(aaa) - 1)
'在aaa的前端再加一个引号与空格，同时去掉aaa的最后一个引号
'aaa的字符串就类似于： " "1234" "2345" "3456
a = Split(aaa, """ """)
'然后用SPLIT函数，按" "为分隔符进行分隔，读入A数组就可以了
MsgBox a(1)
MsgBox a(2)
MsgBox a(3)
End Sub

那列数字怎么保存的,是个字符串还是什么啊
如果只是数字,中间有空格

a(1) = trim("12 34")
a(2) = trim("2 3 4 5")
a(3) = trim("3 456 ")
==============
如果是字符串
s = "1234 2345 3456"

a = split(s," ")

先添加一个按钮

Option Explicit

Dim S As String, Shuzu, a(1 To 3), I

Private Sub Command1_Click()
S