Question

如何用VB将text中的数据取出放入一个数组? 定义什么类型的数组呢？

可能我没有表达清楚，text中的数据是从串口过来的，所以也不清楚数据会收到多少，只是没收到一条就存在数组s()中。eg：text内容为123，则存入数组s（0），然后又来了组数据456,则存入s（1），中，以此类推...

Answer 1

定义动态的就可以
dim a() as double
Private Sub Timer1_Timer()//时间定时存储
i=i+1
ReDim a(i) //重定义数组长度
a(i)=text1.text
End Sub

Answer 2

定义字符数组
Private Sub Command1_Click()
Dim a$()
a = Split(Text1.Text, vbCrLf)
End Sub

Answer 3

dim arr(0) as string
arr(0)=text1.text

追问

可能我没有表达清楚，text中的数据是从串口过来的，所以也不清楚数据会收到多少，只是没收到一条就存在数组s()中。eg：text内容为123，则存入数组s（0），然后又来了组数据456,则存入s（1），中，以此类推...

追答

dim arr() as string
ReDim Preserve arr(x) as string
arr(x)=TEXT

追问

x是什么？数据存在哪里了？之后可能要用到这些数据，所以先存在数组中

追答

定义一个全局变量arr() 和一个计数变量X
然后每接收一个 想保存时
x=x+1 然后 redim 数组变量
ReDim Preserve arr(x) as string
arr(x)=TEXT

追问

谢谢，那之后要怎么调用呢，比如把他们存入文本文件中，或者直接把他们存进去也行，收到一组数据lat和lng时，按下command就是把他们写入文本中，下一次收到继续存下去，不能覆盖之前的...

追答

open "test.txt" for append as #1
for i = 0 to ubound(arr)
print #1,arr(i)
next
close #1