文本文件里数据是六列(空格隔开),行数不确定,VB怎样读入此文本文件并赋值给数组,得到数组的第2、6列

数据格式如下:
X 11 Y 22 Z 33
X 59 Y 70 Z 87
……
X 41 Y 35 Z 51

第1个回答  2012-07-25
一个2维数组,根据空格拆分字符串,然后分别赋值。
利用嵌套循环输出你要的追问

能帮忙写个代码吗?自己写的代码总是出错

追答

我没有VB

参照这个些拆分字符串

http://zhidao.baidu.com/question/4914724

数组的操作很基础,建议还是自己努力一下。

...6列数,行数很多,几万几十万。 如何用VB提取数据,并且保存为数组_百 ...
你没有说明你的文本文件中的所谓“列”是以什么做分割符的,比如空格、逗号还是Tab等。下面的代码是以1个空格作为列分割符的:dim s() as string, ss() as string, d() as double dim i as long, j as long open app.path & "\\123.txt" for binary as #1 s=split(input(lof(1),#1...

vb6.0怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...
回答:好难啊,我看看书

labview如何将文本文件里的数据,转换为数组,并将某一列选出来用于计算...
上图中主要用到了“读取电子表格文件”和“索引数组”,所在位置见下图

如何将一个文本文件中满足指定条件的内容筛选到另一个文本文件中_百度...
1.第1个Open语句用来打开“InputFile.csv”文件,指定文件号#1。2.第2个Open语句用来创建“OutputFile.csv”文件,指定文件号#2。由于文件夹中事先没有这个文件,因此Excel会在文件夹中创建这个文件。3.EOF(1)用来检测是否到达了文件号#1的文件末尾。4.Line Input语句从文件号#1的文件中逐行读取其内...

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 =...

matlab中怎么把文本文件中的数据赋值给一个数组?
是什么格式的 如果是有空格间隔的,并分行了的话可以直接在命令窗口输入a=[]然后把数据复制---然后粘贴到[]中间,然后回车就可以 如果没有标题,可以直接用f=fopen('*.txt')

怎样用VB按顺序读取指定文件夹里面的文本文件内容
str = str & b & vbNewLine ‘读取txt每一行中的内容,并将内容放到变量str中,并加上换行符 Loop Close #1 ‘关闭 Next ’这里循环读出所有的文件内容 ‘创建打开文件名为“保存后的文件.txt”的文件,如果不存在则创建名为“保存后的文件.txt”的txt文件。Open CurPath & "\/" & "保存后的...

vb读取文本文件中数字与空格,逗号等如何区分?比如我只要数字,并给变量...
Private Sub Command1_Click()Dim CheckStr As String Dim StrA() As Double '定义数组用于保存数字 Dim TempStr As String Dim NumStr As String Dim i, j As Integer CheckStr = Trim(Text1.Text)i = 1 j = 1 NumStr = ""Do While i <= Len(CheckStr)TempStr = Mid(CheckStr, i,...

vba中如何读取文件中的数据,并赋值给一个二维数组
' 读取文本文件到一个数组 ' @Param strFileName String 文件路径 ' @Retrun Array 文本文件的内容 ' @Ver 0.3 ' @Date 2015.9.29 ' @Comment ' 修正函数名拼写错误的Bug '

如何用vb将文本内容存入数组
你给的代码是打开一个文本文件将每行文件存入变量 wline=split(text1.text,vbCrLf))redim a(lbound(wline) to ubound(wline))for i = lbound(wline) to ubound(wline)a(i)=wline(i)next i

相似回答
大家正在搜