РАБОТА С ФАЙЛАМИ
н: как сохранять в файл?
avel:
; открываем файл
fileout = WriteFile("имя_файла")
; записываем данные
WriteString( fileout, "строка" ); - символьные строки
WriteInt( fileout, целое_число ); - числа
WriteFloat( fileout, робно_число ); - дробные числа
WriteLine( fileout, строка\число ); - запись с новой строки
; закрываем файл
CloseFile( fileout )
н: как прочитать файл?
avel:
; открываем файл
filein = ReadFile("имя_файла")
; считываем данные
переменная$ = ReadString$( filein ); - символьные строки
переменная% = ReadInt( filein ); - числа
переменная# = ReadFloat( filein ); - дробные числа
переменная = ReadLine( filein ); - считывание строки
; закрываем файл
CloseFile( filein )
н: как узнать существует ли файл?
avel: вот так: If FileType("имя_файла") = 1 Then ...
н: как "просканировать" некую директорию на наличие файлов?
avel: это делается циклом:
myDir=ReadDir("имя_директории")
Repeat
fileName$=NextFile$(myDir)
If fileName$="" Then Exit
If FileType("имя_директории"+"\"+fileName$) = 1 Then
fileIn=ReadFile("имя_директории"+"\"+fileName$)
...
CloseFile(fileIn)
EndIf
Forever
CloseDir myDir