]]>]]>Строка же:
FileEncoding, UTF-8
устанавливает нужную кодировку в качестве дефолтной и если предполагается пользовать её повсеместно, это избавляет от необходимости сообщать её соответствующим процедурам(о чём так же упомянуто в справке). А ещё, он Вам на своём "буржуйском" приводил и другой пример, что если вы собираетесь реализовать принцип, который, вероятно, демонстрирует Ваш сценарий, то не нужно не только закрывать файл, но и вновь его открывать. Контент файла у Вас уже есть, производите его модификацию согласно условиям, сообщаете объекту новый размер равный нулю и пишете изменённый контент обратно в объект:
file := FileOpen(A_ScriptFullPath, "r")
encoding := file.Encoding
scriptContent := file.Read()
; file.Close() ; it is not necessary
MsgBox % "Я" . (SubStr(scriptContent, 1, 4) = "file")
;file := FileOpen(A_ScriptFullPath, "w", encoding)
file.Length := 0
file.Write(scriptContent)
file.Close()
Что так же справедливо и для Вашего первого примера:
file := FileOpen(A_ScriptFullPath, "r")
encoding := file.Encoding
scriptContent := file.Read()
;file.Close()
MsgBox Кодировка согласно свойству .Encoding`n%encoding%
MsgBox % GetFileBOM(A_ScriptFullPath)
GetFileBOM(file) {
FileRead,text,*c %file%
If (0xBFBBEF=NumGet(&text,"UInt") & 0xFFFFFF)
Return "UTF-8 BOM"
else if (0xFFFE=NumGet(&text,"UShort") || 0xFEFF=NumGet(&text,"UShort"))
Return "UTF-16 BOM"
FileGetSize,size,%file%
Return StrLen(StrGet(&text,"UTF-8"))=size?"ANSI":"UTF-8 no BOM"
}
;file := FileOpen(A_ScriptFullPath, "w","UTF-8")
;file.Encoding := encoding
file.Length:=0
file.Write(scriptContent)
file.Close()
file := FileOpen(A_ScriptFullPath, "r")
encoding := file.Encoding
scriptContent := file.Read()
; file.Close() ; it is not necessary
MsgBox % "Я" . (SubStr(scriptContent, 1, 4) = "file")
file := FileOpen(A_ScriptFullPath, "w", encoding)
file.Write(scriptContent)
file.Close()
file := FileOpen(A_ScriptFullPath, "r")
encoding := file.Encoding
scriptContent := file.Read()
file.Close()
MsgBox Кодировка согласно свойству .Encoding`n%encoding%
MsgBox % GetFileBOM(A_ScriptFullPath)
GetFileBOM(file) {
FileRead,text,*c %file%
If (0xBFBBEF=NumGet(&text,"UInt") & 0xFFFFFF)
Return "UTF-8 BOM"
else if (0xFFFE=NumGet(&text,"UShort") || 0xFEFF=NumGet(&text,"UShort"))
Return "UTF-16 BOM"
FileGetSize,size,%file%
Return StrLen(StrGet(&text,"UTF-8"))=size?"ANSI":"UTF-8 no BOM"
}
file := FileOpen(A_ScriptFullPath, "w","UTF-8")
file.Encoding := encoding
file.Write(scriptContent)
file.Close()
Если это указывать явно, то проблемы не будет. Или вместо этого добавить в начало файла строку:
FileEncoding, UTF-8
file := FileOpen(A_ScriptFullPath, "r")
;If (file.Pos <> 0) { ; BOM
file.Pos := 0 ; for take BOM
;BOM := file.Read(1) ; now pointer file.Pos = 3 or 2 again :-)
;}
encoding := file.Encoding
scriptContent := file.Read()
file.Close()
MsgBox % SubStr(scriptContent, 1, 4) = "file"
file := FileOpen(A_ScriptFullPath, "w")
file.Encoding := encoding
file.Write(BOM NewScriptContent)
file.Close()When a file containing a UTF-8 or UTF-16 byte order mark (BOM) is opened with read access, the BOM is excluded from the output by positioning the file pointer after it. Therefore, File.Position may report 3 or 2 immediately after opening the file.
Вот так сработает:
file := FileOpen(A_ScriptFullPath, "r")
MsgBox, % file.Pos
file.Pos := 0
encoding := file.Encoding
scriptContent := file.Read()
file.Close()
MsgBox % encoding
file := FileOpen(A_ScriptFullPath, "w")
file.Encoding := encoding
file.Write(scriptContent)
file.Close()file := FileOpen(A_ScriptFullPath, "r")
encoding := file.Encoding
scriptContent := file.Read()
file.Close()
MsgBox Кодировка согласно свойству .Encoding`n%encoding%
MsgBox % GetFileBOM(A_ScriptFullPath)
GetFileBOM(file) {
FileRead,text,*c %file%
If (0xBFBBEF=NumGet(&text,"UInt") & 0xFFFFFF)
Return "UTF-8 BOM"
else if (0xFFFE=NumGet(&text,"UShort") || 0xFEFF=NumGet(&text,"UShort"))
Return "UTF-16 BOM"
FileGetSize,size,%file%
Return StrLen(StrGet(&text,"UTF-8"))=size?"ANSI":"UTF-8 no BOM"
}
file := FileOpen(A_ScriptFullPath, "w")
file.Encoding := encoding
file.Write(scriptContent)
file.Close()В справке по FileOpen() написано:
When a UTF-8 or UTF-16 file is created, a byte order mark is written to the file unless Encoding (or A_FileEncoding if Encoding is omitted) contains "UTF-8-RAW" or "UTF-16-RAW".
Почему-то в моем примере BOM не записывается.
Пока на ум ничего не приходит, разве что при сохранении добавлять в начало Hex-содержимого файла .