VBNet - Форум - Почему ЭТО не работает???

Вопрос: Почему ЭТО не работает??? Добавлено: 26.08.04 17:59

Автор вопроса: sania-tngf

            fs.Seek(0, SeekOrigin.Begin)

Do
                Me.RichTextBox1.AppendText(fr.ReadLine & Chr(13) & Chr(10))
                i += 1
            Loop While (fs.Position < fs.Length)

            fs.Seek(0, SeekOrigin.Begin)

            ReDim tmp_str(i)
            i = 0
            Do
                tmp_str(i) = fr.ReadLine
                i += 1
            Loop While (fs.Position < fs.Length)

            fs.Close()
Простенький код - вначале число строк потом все в массив.
Только почему-то последний цикл выполняеться большее число раз чем первых. Все же одинаково. И соответственно ошибка что переполнение массива!!!
Может кто помочь?
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #1	Добавлено: 27.08.04 20:34
	Один вопрос. Зачем так извращаться? ИМХО, намного проще: Dim strTemp as String = fs.ReadToEnd Me.RichTextBox.AppendText(strTemp, ControlChars.CrLf) Dim tmp_Str() As String=Split(strTemp, ControlChars.CrLf) fs.Close Больше, вроде, ничего этот код не делает... Ответить

Номер ответа: 2 Автор ответа: sania-tngf Вопросов: 16 Ответов: 21	Профиль \| \| #2	Добавлено: 30.08.04 11:12
	Просто мне этот файл еще и ввиде массива строк нужен. А пример я привел потому что не знаю как конец файла отследить!!! Ответить

Номер ответа: 3 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #3	Добавлено: 30.08.04 14:46
	А этот код разве не массив код создает? Dim strTemp as String = fs.ReadToEnd Me.RichTextBox.AppendText(strTemp, ControlChars.CrLf) Dim tmp_Str() As String=Split(strTemp, ControlChars.CrLf) fs.Close tmp_Str - тот самый массив строк. Ответить

Номер ответа: 4 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #4	Добавлено: 30.08.04 14:53
	Там же, вроде, я приводил код: Dim tmp_Str() As String=Split(strTemp, ControlChars.CrLf) Забьет весь файл в массив по строчкам. Ответить

Номер ответа: 5 Автор ответа: ШевТ ICQ: 165728420 Вопросов: 1 Ответов: 96	Профиль \| \| #5	Добавлено: 02.09.04 08:16
	Imports System.IO Imports System.Text Dim sr As New StreamReader("путь к файлу", Encoding.GetEncoding(1251)) Dim a As String Dim stroki As New ArrayList() While ( (a = sr.ReadLine()) <> Nothing ) stroki.Add End While Ответить

Страница: 1 |