| Вопрос: Помогите Прочитать Файл | Добавлено: 12.05.07 02:45 |
Автор вопроса:  BG(Алексей)
|
|
В проге MDI присутствует тхт файлы как различные базы данных.
При первом запуске юзверь вводит данные (цифры от 1 до 100). 1|3|10|18 5|7|20|36 ... 4|16|49|70 Данные вводятся через тхтBox в массив arrIn(,), который объявляю динамически и увеличиваю по мере поступления данных. Записываю я его так: Dim f As Integer = FreeFile() FileOpen(f, FileName, OpenMode.Binary) FilePut(f, arrIn) FileClose(f) При втором запуске возникает проблема при чтении. Dim f As Integer = FreeFile() FileOpen(f, FileName, OpenMode.Binary) FileGet(f, arrIn) FileClose(f) Ругается на массив (объявлен динамически) Пытаюсь объявить массив arrIn(4,0) Тогда читает только первую строку. Помогите разобраться PLEASE |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Viper ICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #1 | Добавлено: 12.05.07 08:43 |
|
В четвертый параметр True, и юзать динамический массив.
З.Ы. Еще лучше юзать класс FileStream и его родственников |
||
|
Номер ответа: 2 Автор ответа: BG(Алексей)Вопросов: 26 Ответов: 295 |
Профиль | | #2 | Добавлено: 13.05.07 00:15 |
| Извени, но я не понял. | ||
|
Номер ответа: 3 Автор ответа: Паша ICQ: 397605205 Вопросов: 3 Ответов: 9 |
Профиль | | #3 | Добавлено: 13.05.07 08:38 |
|
Ну крепишь TextWriter
Dim sr As StreamWriter (C:\Filename.txt", true) Dim i As Integer ReDim Preserve (6) For i =0 To ArrIn.Legth -1 sr.WriteLine ArrIn (i) Next |
||
|
Номер ответа: 4 Автор ответа: ПашаICQ: 397605205 Вопросов: 3 Ответов: 9 |
Профиль | | #4 | Добавлено: 13.05.07 08:44 |
|
И textreader
Dim fs As FileStream ("C:\Filename.txt",FileMode.Open) Dim sr As StreamReader (sr) MsgBox 'или еще что-нибудь (sr.ReadToEnd) |
||
|
Номер ответа: 5 Автор ответа:  BG(Алексей)Вопросов: 26 Ответов: 295 |
Профиль | | #5 | Добавлено: 13.05.07 23:35 |
|
Да, только массив у меня 2-х мерный, но все равно понял.
Спасибо. |
||
Страница: 1 |