如何用VB将text中的数据取出放入一个数组

先谢过，VB窗体中有一个text1内有数据fafa(0)=&12 fafa(1)=&24 等等```数据个数不确定怎么样才能通过代码把上面的数据直接存入数组fafa()??在线等答案，3Q

第1个回答 2019-05-18

定义一个字符串数组s()
然后用
split函数
给这个数组赋值
s()=split(text1.text,vbcrlf)
并获取数组上限maxs=ubound(s)
用于
for循环
再然后用for循环对数组中的每个字符串进行截取
将截取的结果赋值给fafa数组
fafa(i)=mid(s(i),instr(s(i),"=&")+2,100)
反正基本上就用上面这些函数就搞定了
具体参数要根据你的实际情况调整一下
如果你的fafa是数值型
赋值的时候再套一层val()函数

第2个回答 2019-07-21

你8个text控件是控件数组就好办了
for
i=0
to
7
a(i)=text1(i)
next
如果不是控件数组，你去属性窗口将第一个text的index改成0，创建控件数组，然后依次给其他text的index赋值1-7
注意，将文本框中的值赋给变量时，要求类型匹配
a是数值型，则：
a(i)=val(text1(i))
a是字符串型，直接
a(i)=text1(i)就可以了

相似回答

如何用VB将text中的数据取出放入一个数组? 定义什么类型的数组呢?答：定义动态的就可以 dim a() as double Private Sub Timer1_Timer()//时间定时存储 i=i+1 ReDim a(i) //重定义数组长度 a(i)=text1.text End Sub

vb中我的文本框中有一组数据,我想把这一组数据加入到数组中来,请问怎么...答：dim data() as string data = split(Text1.text," ")

VB中怎么将文本框中的内容写入数组中答：如果你只有一个文本框，想输如一个数字点下按钮，然后加入数组，加个文本框和命令按钮，然后 Dim a(1 To 5)'这个你需要自己定义大小，否则数据超过5个就下界越标什么的 Private Sub Command1_Click()Static i As Integer i = i + 1 a(i) = Text1.Text For Each c In a()Debug.Print ...

VB中如何提取一TXT文档中的数据,并将数据放在数组中。答：'在文本文件同路径下新建文本文件，文件名为：Schema.ini，内容为：[ddd.txt]---数据文件名 ColNameHeader=False---无字段名 Format=TabDelimited---使用tab为分隔符 '以下为vb代码：Dim Cnn As ADODB.Connection Dim Rst As ADODB.Recordset Dim SqlStr As String Dim i As Integer Set Cnn =...

请问用怎样用VB编写一个程序,能从文本文件中读取数据到数组中答：Private Sub Command1_Click()Dim a(3)As Integer//定义一个数组 Dim var1 Dim i As Integer Open "c:\data.txt"For Input As 1 Do While Not EOF(1)///开始循环 Line Input 1,var1 a(i)= var1 //赋值给数组 Debug.Print a(i)///显示数组之中的数据 Print a(i)i = i + 1...

用VB实现将TXT文本中的内容按固定的字节读取存入一个数组中?答：Const file = "1.txt" '文件路径 Dim arr() '存储数据数组 Set fso = CreateObject("Scripting.FileSystemObject")Set f = fso.OpenTextFile(file, 1 ,True)x=Len(f.ReadAll): max=x\8 f.Close: Set f = fso.OpenTextFile(file, 1 ,True)ReDim arr(max)For i = 0 To ...

有一个txt文档,里面有三列数据,共121行.请问:vb如何读取这些数据,并且...答：三步完成：1、打开文本，读出内容及行数 2、按文本的行数，定义数组大小 3、用SPLIT来分割行中的三列，放入数组中完成。

大家正在搜

已经放入的支架如何取出从甲筐取出5个放入乙筐放入血管内的支架能取出来吗支架放入还能取出么鼻假体取出可以马上再放入吗双唑泰栓放入怎么取出放进去的支架能取出吗患者义齿取出后应放入假体取出多久能再放