импорт из txt. затык с запятой

[anton10k]

если в тексте есть запятая, то прога колом. подскажите что не так

собщение об ошибке: Index and length must refer to a location within the string.

вот кусок проги:

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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim outstr$
        Dim str$
        Dim ser$
        FileOpen(1, "c:\uchet_oborudovania.txt", OpenMode.Input)
        Do Until EOF(1)
            Input(1, str)
            ser = str.Substring(0, 9)

            If ser = ComboBox5.Text Then
                outstr = outstr & str.Substring(10, 10) & vbCrLf & str.Substring(20) & vbCrLf & vbCrLf & vbCrLf
            End If

        Loop
        FileClose(1)
        RichTextBox2.Text = outstr
    End Sub

[Viper] :: Используй тэг CODE!

[Viper]

Используй в .NET методы .NET, а не оставленные для совместимости методы из VB6. Это, во-первых. Во-вторых, описание ошибки указывает на попытку выделения подстроки с использованием либо некорректного индекса, либо некорректной длины подстроки. Думай в эту сторону. Например, убедись в том, что Input считала именно то, что нужно.
З.Ы. Подсказка: подумай, в качестве чего воспринимает Input запятую.

[anton10k]

если я правильно понимаю, получается что символ запятой опознается как конец строки, а после запятой другая строка.

и как это обходить?
все остальные символы проходят, только запятая все портит , а она нужна в тексте

[Viper]

Никак не обходить. Читать первое предложение моего ответа.

[anton10k]

Никак не обходить. Читать первое предложение моего ответа.

ну если взять inputstring - считывает все как надо, но там нужно знать длинну строки
если указать значение больше чем строка то сразу ошибка

или вообще по другому нужно?

[Viper]

или вообще по другому нужно?

Зацени, например, метод File.ReadAllLines, который одним приемом читает все строки из файла. Есть и еще множество способов прочитать содержимое файла построчно.

[anton10k]

Спасибо!!!

[Williams]

Можно, кстати, отключить нэймспэйс VisualBasic в свойствах проекта. Получим привычный синтаксис + свободную конвертируемость.

[SystemError]

Viper прав. Используй методы .Net
такие как например StreamReader

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

Using sr As StreamReader = New StreamReader(mFilename)
Dim line As String
Do
line = sr.ReadLine
Loop Until line Is Nothing
End Using


При таком чтении можно всё прочитать, в том числе и юникод

[MIT]

System.IO.File.ReadAllText рулит

не всегда, к сожалению... Речь о БОЛЬШИХ файлах.