作者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/cn.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