FSO и считывание линии

[Dzhon]

Доброго времени суток!
Поможите разобраться в чем причина:

Код: Выделить всё

Set TStrim = fso.OpenTextFile(PathFile, ForReading)
Do While TStrim.AtEndOfStream = False
DoEvents

TStrim.ReadLine
Здесь идет разбор линии(НО ПОЧЕМУ СО ВТОРОЙ ЛИНИИ В ФАЙЛЕ ) :shock:
Loop


Конечно если добавить в начало файла vbKeyReturn то считывается нормально

Код: Выделить всё

Set TStrim = fso.OpenTextFile(PathFile, ForReading)
Me.RichTextBox1.Text = TStrim.ReadAll <- А вот так нормально считывается без всяких добавлений


[GSerg]

А если открыть, потом разобрать, а потом readline?

[Dzhon]

Может я это через ж... делаю?
Мне нужно разобрать файл(прилагается) и поместить данные в MSHFGrid
Поможите советом аль кодом плз.!

Код: Выделить всё

Option Explicit
Dim PathFile As String
Dim fso As New FileSystemObject 'объект FSO
Dim TStrim As TextStream 'поток
Dim FLine As String 'текущая линия
Dim Tsim As String 'текуший символ
Dim TString As Variant 'разобранная часть строки
Dim RGrd, CGrd As Integer 'для определения ячейки

Private Sub cmdOpenFiles_Click()
PathFile = ""
Me.CommonDialog1.Filter = "Text Files (*.txt)|*.txt|DuaL-Up(*.dml)|*.dml|"
Me.CommonDialog1.ShowOpen
PathFile = Me.CommonDialog1.FileName
InputGrid
End Sub

Private Sub InputGrid()

Set TStrim = fso.OpenTextFile(PathFile, ForReading)
RGrd = 1
CGrd = 0
Do While TStrim.AtEndOfStream = False 'Разбор потока по строкам
DoEvents
[b]TStrim.ReadLine[/b]
Понимаю что проблема из-за этих операторов а в чем именно не пойму

    [b]Do While TStrim.AtEndOfLine = False [/b]'Разбор строки
   
    DoEvents
    Tsim = TStrim.Read(1)
   
        If Tsim <> "|" Then
            TString = TString & Tsim
        Else
            Me.mshfgReestr.TextMatrix(RGrd, CGrd) = TString
            CGrd = CGrd + 1
            TString = ""
        End If
    Loop 'Коней разбора строки
   
Me.mshfgReestr.TextMatrix(RGrd, CGrd) = TString
TString = ""
Tsim = ""
RGrd = RGrd + 1
Me.mshfgReestr.Rows = Me.mshfgReestr.Rows + 1
CGrd = 0
Loop 'Конец цикла разбора потока
End Sub

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t ... line+input

[Dzhon]

Да, видел, а в чем преимущество?
И хотелось понять в чем у меня ошибка и почему первая строка оказывается пропущенной?

[GSerg]

А фиг его знает, никогда из FSO по воробьям не стрелял

[ta_gena]

Код: Выделить всё

Dim sLine as String
Set TStrim = fso.OpenTextFile(PathFile, ForReading)

Do While TStrim.AtEndOfStream = False 'Разбор потока по строкам
    DoEvents
    sLine = TStrim.ReadLine()
    sLine = VBA.Replace( sLine, "|", vbTab)
    Me.mshfgReestr.AddItem  sLine
Loop 'Коней разбора строки

[Dzhon]

Код: Выделить всё

Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Огромнейшее спасибо ta_gena, я совсем выпустил из виду AddItem