7,763
社区成员
发帖
与我相关
我的任务
分享通过字符串"3,4,5,20,125"怎样得到一个数组?
通过字符串"3,4,5,20,125"怎样得到一个数组array()?该数组共有5个直,分别为
array(0)="3",array(1)="4",array(2)="5",array(3)=20",array(4)="125",
谢谢!
array(0)="3",array(1)="4",array(2)="5",array(3)=20",array(4)="125",
谢谢!
...全文
请发表友善的回复…
发表回复
northwolves 2003-09-19
- 打赏
- 举报
1。
Dim rray
rray = Split("3,4,5,20,125", ",")
MsgBox rray(1)
2。
Private Sub Form_Load()
MsgBox rray(1)
End Sub
Function rray(ByVal index As Integer) As String
rray = Choose(index + 1, 3, 4, 5, 20, 125)
End Function
Dim rray
rray = Split("3,4,5,20,125", ",")
MsgBox rray(1)
2。
Private Sub Form_Load()
MsgBox rray(1)
End Sub
Function rray(ByVal index As Integer) As String
rray = Choose(index + 1, 3, 4, 5, 20, 125)
End Function
jary12581 2003-09-19
- 打赏
- 举报
dim lhp(5) as string
i=instr("3,4,5,20,125",",")
array(0)=mid$("3,4,5,20,125",1,i-1)
j=instr("4,5,20,125","'")
array(1)=mid$("4,5,20,125",1,j-1)
……
以此类推……
i=instr("3,4,5,20,125",",")
array(0)=mid$("3,4,5,20,125",1,i-1)
j=instr("4,5,20,125","'")
array(1)=mid$("4,5,20,125",1,j-1)
……
以此类推……
射天狼 2003-09-19
- 打赏
- 举报
Dim s As String, strArray() As String
s = "3,4,5,20,125"
strArray = Split(s, ",")
s = "3,4,5,20,125"
strArray = Split(s, ",")
射天狼 2003-09-19
- 打赏
- 举报
split函数
