作者chph (愁痕飘絮)
看板Visual_Basic
标题Re: [VBA ] 数字字串转array
时间Wed Dec 3 23:29:16 2008
※ 引述《kenbarbara ( )》之铭言：
: 比如说我的input是8 4 3 5 4 3 2
: 转成array的方法可以用这样
: Dim telary As Variant
: telary = Split(TextBox1.Text, " ")
: 那要是input是8435432
: 要怎麽转成array呢?
: 谢谢
' 输入资料
ipt = "8435432"
Dim datas()
n = Len(ipt)
ReDim datas(n)
'有几个字就跑几次
For i = 1 To n
'撷取第 i 个字放入datas(i)
datas(i) = Mid(ipt, i, 1)
Next
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.47.213.7
1F：推 kenbarbara:恩恩 懂了 感谢你~ 12/04 10:37