Sub ReadTextFileLine()

Dim a As String

Open ("w:\new 2222.txt") For Input As #1

Do Until EOF(1)

Line Input #1, a

MsgBox$ a

Loop

Close #1

End Sub

Function LoadTextFromTextFile(ByVal filename$, Optional ByVal encoding$) As String

' функция загружает текст в кодировке Charset$ из файла filename$

On Error Resume Next: Dim txt$

If Trim(encoding$) = "" Then encoding$ = "windows-1251"

With CreateObject("ADODB.Stream")

.Type = 2:

If Len(encoding$) Then .Charset = encoding$

.Open

.LoadFromFile filename$ ' загружаем данные из файла

LoadTextFromTextFile = .ReadText ' считываем текст файла

.Close

End With

End Function

If Trim(encoding$) = "" Then encoding$ = "windows-1251"

If Trim(encoding$) = "" Then encoding$ = "utf-8"

Option Explicit

Sub ReadTextFileLine()

Dim objStream, myTXT, a, Количество_строк, li

Set objStream = CreateObject("ADODB.Stream")

objStream.Charset = "utf-8"

objStream.Open

objStream.LoadFromFile ("w:\в UTF8.txt")

myTXT = objStream.ReadText()

a = Split(myTXT, vbCrLf)

'Количество_строк = UBound(a) - LBound(a)

'MsgBox$ Количество_строк

'MsgBox$ UBound(a)

'MsgBox$ LBound(a)

'считает от нуля!!!!!

For li = LBound(a) To UBound(a)

MsgBox$ li & vbCrLf & a(li)

Next li

End Sub

For li = LBound(a) To UBound(a)

MsgBox$ Len(a(li))

MsgBox$ li & vbCrLf & a(li)

Selection.TypeText Text:=a(li)

Next li