请教个高难度的动作
1-2/3-4/5-6/7-8//怎么读取其中的数字给变量
并且这些变量是随着数字的多少而多少,出现//则表示结束
例:1-2/2-3//
那么变量:a1=1 a2==2 a3=2 a4=3
1-2/3-4/5-6//
那么变量:a1=1 a2=2 a3=3 a4=4 a5=5 a6=6
总之变量是不固定有多少个的。
--------------------编程问答-------------------- 这也叫高难度啊?
split函数,对你有帮助。 --------------------编程问答-------------------- 是啊,split就能轻松搞定
--------------------编程问答-------------------- Dim s As String
Dim a() As String
s = "1-2/3-4/5-6/7-8//"
s = Left(s, InStr(s, "//") - 1) '//后面的不要
s = Replace(s, "-", "/")
a = Split(s, "/")
s = ""
For I = 0 To UBound(a)
s = s & "a(" & I & ")=" & a(I) & vbCrLf
Next
Print s --------------------编程问答--------------------
Dim s As String
Dim a() As String
s = "1-2/3-4/5-6/7-8//"
s = Left(s, InStr(s, "//") - 1) '//后面的不要
s = Replace(s, "-", "/")
a = Split(s, "/")
s = ""
For I = 0 To UBound(a)
s = s & "a(" & I & ")=" & a(I) & vbCrLf
Next
Print s
补充:VB , 基础类