作者neiltsang (煞克(╬⊙д⊙)賣地殼)
看板Visual_Basic
標題[VB6 ] 陣列如何分割？與字串之間的轉換？[已解決]
時間Fri Jan 3 09:15:22 2020
如題
我想用陣列分割兩次資料
----------------------------------
效果：
textbox裡面讓使用者輸入資料
王大名 98
陳小春 40
李天才 82
然後我想要把這個資訊存成陣列來操作
a(0)=王大名
a(1)=98
a(2)=陳小春
.
.
.
以此類推
底下為了省略 我會以使用者僅輸入三行資料來說明我的問題
-------------------------------
作法疑問：
首先text1.box可以用r=split(text1.box,vbCrLf)形成第一次切割的陣列
接下來在把r陣列裡面的值轉成字串 再用一次split以空白分割
然而問題來了
1.
gogo(0, i) = Split(Text2.Text, "=")
想用陣列來存 但似乎Split就是要形成一個獨立的陣列 型態不符
這邊該怎麼解？
2.假設就硬是分開不同的陣列擺資料
用aa() bb() cc()三個陣列各兩項(因為是split以空白切割形成的)
則六項資料會存在下面
aa(0),aa(1)
bb(0),bb(1)
cc(0),cc(1) 這六個裡面
不同的陣列我想要用迴圈把他塞到a()陣列裡面都有困難....
似乎這本來就已經是錯誤的思路了？
總結問題：
似乎要用其他函數？該怎麼達成這個最上面效果的需求呢？
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.220.255.143 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1578014126.A.38A.html
1F：推 garyl62327: 如果是要將textbox 資料一次切割存到a陣列，先將vbcrl 01/03 09:37
2F：→ garyl62327: f replace成” “ 再用 split對空白切 01/03 09:37
幹 就在你回我的時候我剛好看著程式碼想通了!!!
其實我原本就有用replace 但我用,來切割 想說字典檔都是這樣
就在剛剛一直想才發現 挖靠 原來只要把,改成""就可以了@@
好巧喔 你剛好解答證實了 我自己拿石頭砸我自己腳XDDD
目前我的問題是陣列如何加入新的值
意思是 陣列好像無法宣告成變數 a(n,k)這樣？
用redim preserve來更改有搞頭嗎
想知道a()裡面已經有五個值 要用迴圈塞東西給他要怎麼塞
例如塞1~n
所以會變成這樣
a(6)=1
a(7)=2
a(8)=3
....
....
a(n-5)=n
-----我的想法如下-----------------
redim preserve a(0 to n+4) '這寫法合法嗎
for i=6 to n-5
a(i)=i-5
next i
這樣子是ok的嗎 謝謝大大
3F：推 garyl62327: a=split(replace(Text1.Text, vbcrlf, " "), " ") 01/03 09:55
謝謝!!自己看程式碼有想通惹QQ 感謝證實!!
4F：→ neiltsang: 我有寄稅後100p給大大了 不過上面我有新的疑問 01/03 09:59
5F：→ neiltsang: 還請大大或是各路好手 幫忙解惑一下 謝謝各位!! 01/03 09:59
6F：→ garyl62327: 你的需求看起來是需要動態陣列，在vb.net叫arraylist 01/03 10:12
7F：→ garyl62327: ，不太確定vb6是否也有就是了，你在google看看 01/03 10:12
好的 我再研究 此問題解決了謝謝哦!!
8F：推 chinoyan: DIM B() For i = 0 to Ubound(A) IF i>0 then 01/05 02:12
9F：→ chinoyan: redim preserve B(i) , B(i) = OOXX 01/05 02:13
10F：推 chinoyan: 另UI拉二個TEXTBOX,一個BUTTON,一個LIST 01/05 02:16
11F：→ chinoyan: 二個TEXT 分別輸入名子和成積,BUTTON 確定加入LIST 01/05 02:16
12F：→ chinoyan: 最後你只要處理LIST的資料,和UI TEXT的KEYIN ENTER事件 01/05 02:17
謝謝大大詳盡的說明 我好像已經自己想通惹
有前輩的講解我會再實驗看看 多多熟悉的 前幾天有爬 發現自己要加油!!
聊表心意 我寄10P稅後給大大查收!!
※ 編輯: neiltsang (61.220.255.143 臺灣), 01/08/2020 21:07:37