Question

所以我有很多文本文件，我试图用Visual Basic阅读。它们都具有相同的格式：

[number of items in the file]
item 1
item 2
item 3
...etc.

我要做的是在第一行声明一个整数大小的数组，然后将每一行读入数组的相应部分（因此第1项将是数组[0]，第2项将是数组[1]等。但是，我不知道从哪里开始。任何帮助将不胜感激。

Answer 1

非常基本的东西（没有双关语）：

Dim F As Integer
Dim Count As Integer
Dim Items() As String
Dim I As Integer

F = FreeFile(0)
Open "data.txt" For Input As #F
Input #F, Count
ReDim Items(Count - 1)
For I = 0 To Count - 1
    Line Input #F, Items(I)
Next
Close #F

Answer 2

尝试使用VB6

Dim file_id As Integer
Dim strline as string
Dim array_item() as string

'Open file
file_id = FreeFile
Open "C:\list.txt" For Input AS #file_id 

Dim irow As Integer
irow = 0    

'Loop through the file
Do Until EOF(file_id)

    'read a line from a file
    Line Input #file_id, strline

    'Resize the array according to the line read from file
    Redim Preserve array_item(irow)

    'put the line into the array
    array_item(irow) = strline

    'move to the next row
    irow = irow + 1
Loop

Close #file_id

Answer 3

您正在寻找的VB功能是“拆分”：

http://www.vb-helper.com/howto_csv_to_array.html

Answer 4

试试这个：

Dim FullText As String, l() As String
'''Open file for reading using Scripting Runtime. But you can use your methods
Dim FSO As Object, TS As Object
Set FSO = createbject("Scripting.FileSystemObject")
Set TS = createbject("Scripting.TextStream")
Set TS = FSO.OpenTextFile(FilePath)
TS.ReadLine 'Skip your first line. It isn't needed now.
'''Reading the contents to FullText and splitting to the array.
FullText = TS.ReadAll
l = Split(FullText, vbNewLine) '''the main trick

拆分会自动调整l（）的大小并存储所有数据现在l（）数组包含你想要的一切。

在VB6中读取行分隔数据

4 个答案: