eus_deus
06-09-2013, 13:47
Итак, следующая задача. Есть необходимость создавать фай и писать в него текст с текстового поля $Edit2. Использую такой код:
Func _FileCr()
$h_File= _FileCreate($TempFilePath)
If Not $h_File Then
MsgBox(4096,"Ошибка", " Ошибка создания файла.Ошибка = " &@error)
EndIf
$hOpenFile=FileOpen($h_File,42)
If $hOpenFile=-1 Then
MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
Exit
EndIf
$s_text=GUICtrlRead($Edit2,"")
FileWrite ($hOpenFile, $s_text )
FileClose( $hOpenFile)
EndFunc
Файл должен быть в UTF 16 LE ( получаю UTF 16 LE без BOM). Итак, файл создается и открывается, о чем сужу по тому, что не срабатывают условия. Но запись в него не происходит. И как все таки быть с кодировкой (с этим строго)
Func _FileCr()
$h_File= _FileCreate($TempFilePath)
If Not $h_File Then
MsgBox(4096,"Ошибка", " Ошибка создания файла.Ошибка = " &@error)
EndIf
$hOpenFile=FileOpen($h_File,42)
If $hOpenFile=-1 Then
MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
Exit
EndIf
$s_text=GUICtrlRead($Edit2,"")
FileWrite ($hOpenFile, $s_text )
FileClose( $hOpenFile)
EndFunc
Файл должен быть в UTF 16 LE ( получаю UTF 16 LE без BOM). Итак, файл создается и открывается, о чем сужу по тому, что не срабатывают условия. Но запись в него не происходит. И как все таки быть с кодировкой (с этим строго)