如何把TXT中的数据（一维数组）插入VB中

Answer 1

要将TXT中的数据（一维数组）插入VB中，首先需要理解如何读取TXT文件中的数据。下面提供了一个示例代码，演示如何将TXT文件中的数据读取到数组中。

通过以下步骤可以实现数据读取：

使用Dim声明字符串变量`s`和字符串数组`Arr`，并初始化`i`。
使用While循环读取文件直至结束，使用`Instr`函数检查字符串`s`中是否存在空格。若有空格，则使用`Replace`函数去除字符串中的空格。
使用`Split`函数将处理后的字符串`s`分解为数组`Arr`。
将数组`Arr`的第一项值赋给数组`a`的元素，第二项值赋给数组`b`的元素。每读取一行数据，`i`自增1。

下面是实际的VB代码示例：

vb
Private Sub Command1_Click()
Dim a(), b() As String
Dim s0 As String, i As Integer
i = 1
txtTest.Text = ""
Open "c:/TEST.TXT" For Input As #1
On Error GoTo ErrorHandler
Do While Not EOF(1)
ReDim Preserve a(i)
ReDim Preserve b(i)
Input #1, a(i), b(i)
i = i + 1
Loop
Close #1
For i = 1 To UBound(a)
txtTest.Text = txtTest.Text & a(i) & "," & b(i) & vbCrLf
Next
Exit Sub
ErrorHandler:
MsgBox "读取文件时发生错误。", vbCritical
End Sub

此外，对于读取TXT文件中的二维数据，可以按照以下方法操作：

使用`Dim`声明二维数组`arrS`，并使用`Open`语句打开文件。在`Do While`循环中，使用`Line Input`读取一行数据，然后使用`Split`函数将读取的字符串拆分为数组。最后，将数组元素赋值给相应的二维数组元素。这里是一个示例代码：

vb
Private Sub Command1_Click()
Dim s, arrS(1000, 9) As String
Dim N As Integer
Open "D:1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
arrS(N) = Split(Trim(s), ",")
N = N + 1
Loop
Close #1
End Sub

以上代码提供了从TXT文件中读取数据并将其插入到一维或二维数组中的方法。在实际应用中，请根据具体需求调整代码。