Чтение данных из текстового файла размером свыше 5-и метров
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- kif
- Постоялец
- Сообщения: 736
- Зарегистрирован: 10.12.2001 (Пн) 18:06
- Откуда: Украина, Одесса
kif » 30.04.2004 (Пт) 10:06
dim f as integer
dim TempString
f=freefile
TempString=string$(filelen(c:\"myfile.txt"),32)
open "c:\myfile.txt" for binary as f
get #f,1,Tempstring
close f
dim TempString
f=freefile
TempString=string$(filelen(c:\"myfile.txt"),32)
open "c:\myfile.txt" for binary as f
get #f,1,Tempstring
close f
Братья и сестры, что вы делаете???
Ведь вы же братья и сестры.
Ведь вы же братья и сестры.
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 30.04.2004 (Пт) 10:08
Ну тогда уж
dim s as string, f as integer
f=freefile
open "file" for input access read as #f
s=input$(lof(f), f)
close #f
dim s as string, f as integer
f=freefile
open "file" for input access read as #f
s=input$(lof(f), f)
close #f
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: SemrushBot и гости: 28