怎么样发给你
比如就想这样的txt文件，该怎么样将两行数据读入数组中！
谢谢了！
本回答被提问者采纳vb如何把txt文档中的数读入到数组,文档中是每行有三个数,用逗号隔开
Private Sub Command1_Click()Dim x(1 To 10, 1 To 2) As LongDim n1 As Integer, n2 As Long, n3 As LongOpen "d:\\tmp\\123.txt" For Input As #1 '文件名自己改Do Until EOF(1) Input #1, n1, n2, n3 If n1 > 0 And n1 < 11 Then x(n1, 1) = n2 x(n1...
VB编程如何将*.txt文件中的数据读入到数组?
Close #1 openfile = s End Function 如果是按一行一行读取进数组 你可以用 dim a a = split(openfile(App.Path & "\\1.txt"),vbcrlf)按列同样是设一个临时数组 每行按空格或者分隔符拆分后 以对应数组索引位置 写入新数组
vb6.0怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...
回答：留个Q我传你个代码
如何把TXT中的数据(一维数组)插入VB中
此外，对于读取TXT文件中的二维数据，可以按照以下方法操作：使用`Dim`声明二维数组`arrS`，并使用`Open`语句打开文件。在`Do While`循环中，使用`Line Input`读取一行数据，然后使用`Split`函数将读取的字符串拆分为数组。最后，将数组元素赋值给相应的二维数组元素。这里是一个示例代码：vbPrivate Sub ...
vb如何读取txt中的数组
本示例使用 Input # 语句将文件内的数据读入两个变量中。本示例假设 TESTFILE文件内含数行以 Write # 语句写入的数据；也就是说，每一行数据中的字符串部分都是用双引号括起来，而与数字用逗号隔开，例如，（"Hello", 234）。Dim MyString, MyNumberOpen "TESTFILE" For Input As #1 ' 打开...
VB6.0 如何将TXT 数据存入数组 TXT文件有一些仿真数据,如下:_百度知...
将文本内容复制，到EXCEL里粘贴，数据菜单分列，选项：空格，连续分隔符视为单个处理。这样就是你要的最终结果。--- VB编程思路：1，将文本内容读取STR变量，行以回车符分隔。2，把两个空隔替换成一个，replace(str," "," "）循环直到没双空格 3，数组strA=split(str,vbcr)这样得到行数据strA(i...
vb 中怎么将数据文件读入到数组中
如数据粘贴在c:\\1.txt中 dim ins$,i%,data_ins(1000) as single ,temp_data() as single,new_data(1000,1000)为了保证读取全，定义大数组。也可前面先读一次获取行列数，然后按照读取的行列数定义数组（这里略掉）open "c:\\1.txt" for input as #1 do until eof(1)line input #1,ins...
VB中如何提取一TXT文档中的数据,并将数据放在数组中。
[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 = New ADODB.Connection Set Rst = New ADODB.Recordset ‘ado的文本...
Vb中如何使用通用对话框打开有空格的TXT文本。
Vb中如何使用通用对话框打开有空格的TXT文本。法一:用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取:Private Sub Command1_Cliack()Dim sA As String * 65400 '声明定长String变量 Open "F:d.txt" For Binary As #1 '用...
VB 读取TXT文件中关键数据
Private Sub Command1_Click() '这个是读取number.txt Dim l As Long, j As Long Dim s() As String Text1.Text = ReadTxt("C:\\number.txt") s = Split(Text1.Text, vbCrLf) '分割获取 For l = LBound(s) To UBound(s) If Trim(s(l)) <> "" Then ...
