Re: [VBA ] 數字字串轉array

看板Visual_Basic作者 (愁痕飄絮)時間15年前 (2008/12/03 23:29), 編輯推噓1(1推 0噓 0→)
留言1則, 1人參與, 最新討論串2/2 (看更多)
※ 引述《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
推
12/04 10:37, , 1F
恩恩 懂了 感謝你~
12/04 10:37, 1F
‣ 更多 chph 的文章
文章代碼(AID): #19DgNDuC (Visual_Basic)
‣ 更多 chph 的文章
文章代碼(AID): #19DgNDuC (Visual_Basic)