VB如何读取TXT文件中制定行和列的数值，并存入数组。

主题：VB如何读取TXT文件中制定行和列的数值，并存入数组。

xhy2006bj [专家分：20] 发布于 2009-08-18 22:48:00

例如TXT文件如下格式：

测试状态：vv ang HH
测试时间：2009-07-15
角度  1号    2号    3号    4号    5号    6号
5度   2.1    2.5    3.5    4.5    6.3    2.1
10度   2.5    2.1    3.8    4.4    6.2    2.1
15度   2.1    2.5    3.5    4.5    6.3    2.1
20度   2.1    2.5    3.5    4.5    6.3    2.1
25度   2.1    2.5    3.5    4.5    6.3    2.1
30度   2.1    2.5    3.5    4.5    6.3    2.1
35度   2.1    2.5    3.5    4.7    6.3    2.1
40度   2.1    2.5    3.5    4.5    6.3    2.1
测试结束

我要读取第四行，第二列开始的测试数据到倒数第二行，第七列的测试数据，并存入一个二维数组，这种格式怎么处理？

本帖地址： http://bbs.pfan.cn/post/307175.html

回复列表（共3个回复）

沙发

一江秋水 [专家分：9680] 发布于 2009-08-19 08:53:00

可以用API消息函数读取指定的行，再用MID函数读取该行中的指定列，替换到指定的行、列中

板凳

天天学习 [专家分：4570] 发布于 2009-08-19 22:43:00

Dim i As Integer
Dim s As String
Dim a As Variant
Dim t As String
Open "e:\test.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, s
        s = Trim(s)
        '把多余的空格去除,因为我不知道你的数据之间的分隔符是不是一样多的空格
        '如果是一样的，此步骤可省略，split()时使用你的分隔符
        While s <> t
            t = s
            s = Replace(s, "  ", " ")
        Wend
        a = Split(s, " ")
        For i = 0 To UBound(a)
            '去除前面几行和最后一行，以及每行的第一列后就是你想的的数据
            Debug.Print a(i)
        Next
    Wend
Close #1

3 楼

xhy2006bj [专家分：20] 发布于 2009-08-22 17:21:00

谢谢，你真厉害

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：VB如何读取TXT文件中制定行和列的数值，并存入数组。

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：VB如何读取TXT文件中制定行和列的数值，并存入数组。

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）