| Вопрос: Работа с файлами | Добавлено: 29.05.08 17:31 |
Автор вопроса:  sasha
|
|
Мне нужно построчно считать даные с текстового файла.
Скиньте ктото код. И как переобразовать с string в Integer Скиньте ктото код. Пожалуйста |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 29.05.08 18:34 |
|
Dim file as string, onestr as string
file$ = "C:\1.txt" open file$ for input as #1 do while not eof(1) line input #1, onestr$ msgbox onestr$ loop Dim var1 as String Dim i as Integer var1 = "10" i = CInt(var1) |
||
|
Номер ответа: 2 Автор ответа:  sasha Вопросов: 1 Ответов: 4 |
Профиль | | #2 | Добавлено: 29.05.08 18:55 |
| Спасиба | ||
|
Номер ответа: 3 Автор ответа:  sashaВопросов: 1 Ответов: 4 |
Профиль | | #3 | Добавлено: 29.05.08 19:43 |
| Слушай, чето первая часть у меня непашет, может есть иные варианты | ||
|
Номер ответа: 4 Автор ответа: SA_ Вопросов: 3 Ответов: 15 |
Профиль | | #4 | Добавлено: 29.05.08 22:32 |
|
f = FreeFile
Open "c:\1.txt" For Input As f' Открываем файл Text1.Text = Input(LOF(f), f) 'Считываем текст из открытого файла Close f |
||
|
Номер ответа: 5 Автор ответа: SA_Вопросов: 3 Ответов: 15 |
Профиль | | #5 | Добавлено: 29.05.08 22:33 |
|
или
Dim txt as String Open "c:\1.txt" For Input As #1' Открываем файл 1.txt для чтения Do While Not EOF(1) ' Функция EOF(End Of File) проверяет, достигнут ли конец файла Line Input #1, txt ' Читаем строку данных Text1.Text = txt Loop Close #1 |
||
|
Номер ответа: 6 Автор ответа: Smith ICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #6 | Добавлено: 30.05.08 07:01 |
|
var1 = ""
i = CInt(var1) Если var1 пустой, то CInt(var1) вызывает ошибку, а Val(var1) нет. Саш быстрее будет считать весь файл в строку, разбить её в массив и работать с массивом в памяти. Но это если файл большой. |
||
Страница: 1 |