0

我正在尝试使用 VBA 在 Access 中读取文本文件。代码如下：

Open "C:\Test\test.txt" For Input As #1
Dim MyString as String
Dim x as integer
x = 0 
For x = 0 to 100
  Input #1, MyString
  MsgBox MyString
Next x

所以这段代码的目的是遍历一个文本文件，逐行读取并打印出来。但是存在文本行超过 255 个字符的概率。有没有办法读取超过 255 个字符的行并将它们存储在 VBA 中？谢谢你。

编辑：文本文件示例

1110;        TESTING     ; 1111;        TESTING2    ; 5;       999990981; 10-30-2011;               12-01-2011;                 133370001;  133370001;  133370001;  133370001;  133370001;  133370001;  133370001;  133370001;  133370001;  133370001;  133370001;  133370001; F;         13371; 1;       TEST1                          ;  000000000;    133370001;  0;      TEST         ; TESTTES                             ; TEST        ; 501;     10001;     0;       00001;    
 1112;        TESTING     ; 1113;        TESTING2    ; 3;       999990982; 10-02-2011;                10-30-2011;                 133370002;  133370002;  133370002;  133370002;  133370002;  133370002;  133370002;  133370002;  133370002;  133370002;  133370002;  133370002; F;         13372; 2;       TEST2                          ;  000000000;    133370002;  0;      TEST1        ; TESTTESTT                           ; TES         ; 502;     10002;     0;       00002;    
 1113;        TESTING     ; 1114;        TESTING2    ; 21;      999990983; 03-01-2011;                10-02-2011;                 133370003;  133370003;  133370003;  133370003;  133370003;  133370003;  133370003;  133370003;  133370003;  133370003;  133370003;  133370003; F;         13373; 3;       TEST3                          ;  000000000;    133370003;  0;      TTESTTESTT   ; TESTTESTTES                         ; TESTTES     ; 503;     10003;     0;       00003;
4

3 回答 3

2 
Sub ReadLines()

    Dim sInput As String
    Dim i As Long

    Open "C:\Users\dick\test.txt" For Input As #1

    Do While Not EOF(1)
        Input #1, sInput
        Debug.Print Len(sInput), sInput
    Loop

End Sub

我明白了

468          1110; ...
469          1112; ...
469          1113; ...

所以我没有看到这个限制

于 2012-05-24T21:07:23.323 回答
0

我认为问题与 MsgBox 的大小限制有关。Debug.Print 将打印到即时窗口（可通过 Ctrl+G 访问）。

于 2014-01-21T17:27:03.837 回答
0

Input #使用让我很难过似乎很奇怪。我没有收到错误，而是收到了一半的字符串。我试图查看文本的每一行以查看是否有异常，但我找不到任何异常。最后，我尝试了@Matt Donnan 使用 TextStream 的方法，并且成功了。谢谢大家，很抱歉占用您的时间。

于 2012-05-25T15:33:57.477 回答