Есть ли способ получить информацию из текстового файла в VBA?

Question

Мне нужно сохранить информацию из текстового файла в массив.Но я не знаю, каков конкретный синтаксис.

Информация из текстового файла содержит около 2000 строк, которые, очевидно, нельзя сохранить в скрипте vba.Текст выглядит как показано ниже в одном

35SLFR0006350
35SLFR0026350
35SLFR0106350
BARSQR1306000
C280BD1016000
C280BD1016000_mitre
C280BD1016000_square
C280FR0006000
C280MU0006000
C280MU0026000
C280SH0006000
C280SH0006000_outer frame
C305BD0006000
C305BD0006000_mitre
C305BD0006000_square
C305BD0016000
C305BD0016000_mitre
C305BD0016000_square
C305BD2006000
C305BD2006000_mitre
C305BD2006000_square
C305FR0006000
C305MU0006000
C305MU0026000
C305MU0046000
C305SH0006000
C305SH0006000_Un E frame
C340BD1006000_mitre
C340BD1006000_Right,Left,Horizontal
C340BD1006000_Right,Left,Vertical
C340BD1006000_square
C340FR00060000
C340MU0006000
C340MU0026000
C340SH0006000

Answer 1

Если вы хотите сохранить свой входной файл в виде массива, вы можете сначала прочитать весь файл и сохранить его как одну целую строку. Затем можно использовать функцию Split с разделителем \ n , чтобы вернуть массив, где каждый элемент соответствует одной строке файла.

Const file As String = "<pathToFile>"
Dim ResultArray() As String
Dim tempString As String
Dim fn As Integer

fn = FreeFile()

Open file For Input As fn
While Not EOF(fn)
   Line Input #fn, LineString
   tempString = tempString & LineString & "\n"
Wend

ResultArray = Split(tempString, "\n")