sub Write_Character(ByVal fileHandle As HANDLE, ByVal value As String)
Записывает в файл 1 строковой символ. Работает только с однобайтовыми кодировками (unicode ни в каком виде не поддерживается)
fileHandle - хендл файла
value - значение типа string
Windows , Linux
#Include "window9.bi"
Var handle=Create_File("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
Write_Character(handle,"R")
Close_file(handle)
EndIf
handle=Read_file("Пример.txt")
If handle <> Cast(Any Ptr, -1) Then
? Read_Character(handle)
Close_file(handle)
EndIf
Sleep
R
Created with the Personal Edition of HelpNDoc: Easily create HTML Help documents