особенности твоего файла:
a) unicode т.е. по два байта на символ
b) разрыв строки через LF, а не через CRLF
разбить его на строки в VBA можно так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub test()
Dim TextLine
Dim MyLines() As String
Dim WholeText As String
Dim LineIndex As Long
Open "BaseConfig.zip" For Input As # 1
WholeText = ""
Do While Not EOF( 1 )
WholeText = WholeText & Input( 1 , # 1 )
Loop
Close # 1
MyLines = Split(WholeText, vbLf)
For LineIndex = LBound(MyLines) To UBound(MyLines)
Debug.Print MyLines(LineIndex)
Next LineIndex
End Sub
надеюсь, что ответы на свои вопросы в коде найдешь, если есть еще вопросы, пиши
