https://devcafe.co.kr/w/index.php?action=history&feed=atom&title=Autoit_iniread_utf%28%29
Autoit iniread utf() - 편집 역사
2026-04-06T15:02:43Z
이 문서의 편집 역사
MediaWiki 1.42.1
https://devcafe.co.kr/w/index.php?title=Autoit_iniread_utf()&diff=163&oldid=prev
Devcafe: 새 문서: == autoit fileread utf8 == === IniRead UTF8 방식 === <source lang=sql> Func _IniRead($filename, $section, $key, $default) Local $filename_format = 0 Local $hFile Local $data_ini = "" Local $filename_temp = "_temp.ini" Local $key_ini = "" SetError(0) $filename_format = FileGetEncoding($filename, 1) If (@error) Then SetError(1) Return EndIf If ($filename_format = 512) Then $key_ini = IniRead($filename, $section, $key, $default) If (@error)...
2024-10-04T17:16:30Z
<p>새 문서: == autoit fileread utf8 == === IniRead UTF8 방식 === <source lang=sql> Func _IniRead($filename, $section, $key, $default) Local $filename_format = 0 Local $hFile Local $data_ini = "" Local $filename_temp = "_temp.ini" Local $key_ini = "" SetError(0) $filename_format = FileGetEncoding($filename, 1) If (@error) Then SetError(1) Return EndIf If ($filename_format = 512) Then $key_ini = IniRead($filename, $section, $key, $default) If (@error)...</p>
<p><b>새 문서</b></p><div>== autoit fileread utf8 ==<br />
=== IniRead UTF8 방식 ===<br />
<source lang=sql><br />
Func _IniRead($filename, $section, $key, $default)<br />
<br />
Local $filename_format = 0<br />
Local $hFile<br />
Local $data_ini = ""<br />
Local $filename_temp = "_temp.ini"<br />
Local $key_ini = ""<br />
<br />
SetError(0)<br />
<br />
$filename_format = FileGetEncoding($filename, 1)<br />
If (@error) Then<br />
SetError(1)<br />
Return<br />
EndIf<br />
<br />
If ($filename_format = 512) Then<br />
$key_ini = IniRead($filename, $section, $key, $default)<br />
If (@error) Then<br />
SetError(2)<br />
Return<br />
EndIf<br />
Else<br />
$hFile = FileOpen($filename, 0+$filename_format)<br />
If (@error) Then<br />
SetError(3)<br />
Return<br />
Else<br />
$data_ini = FileRead($hFile)<br />
If (@error) Then<br />
SetError(4)<br />
Return<br />
EndIf<br />
EndIf<br />
<br />
FileClose($hFile)<br />
If (@error) Then<br />
SetError(5)<br />
Return<br />
EndIf<br />
<br />
$hFile = FileOpen($filename_temp, 1+512)<br />
If (@error) Then<br />
SetError(6)<br />
Return<br />
EndIf<br />
<br />
FileWrite($hFile, $data_ini)<br />
If (@error) Then<br />
SetError(7)<br />
Return<br />
EndIf<br />
<br />
FileClose($hFile)<br />
If (@error) Then<br />
SetError(8)<br />
Return<br />
EndIf<br />
<br />
$key_ini = IniRead($filename_temp, $section, $key, $default)<br />
<br />
FileDelete($filename_temp)<br />
If (@error) Then<br />
SetError(9)<br />
Return<br />
EndIf<br />
EndIf<br />
<br />
Return ($key_ini)<br />
<br />
EndFunc<br />
</source><br />
<br />
=== IniReadSectionUTF8 ===<br />
<source lang=sql><br />
func IniReadSectionUTF8(const $filename, const $section)<br />
local const $file = FileOpen($filename, $FO_UTF8_NOBOM)<br />
if @error then return SetError(1)<br />
FileSetPos($file, 0, 0)<br />
while FileReadLine($file) <> "[" & $section & "]"<br />
if @error then<br />
FileClose($filename)<br />
return SetError(2)<br />
endif<br />
wend<br />
local $result[1][2]<br />
$result[0][0] = 0<br />
local $line<br />
while True<br />
$line = FileReadLine($file)<br />
if @error or StringRegExp($line, "^\[.*\]$") then exitloop<br />
$line = StringSplit($line, "=", $STR_NOCOUNT)<br />
if @error then continueloop<br />
redim $result[UBound($result) + 1][2]<br />
$result[0][0] += 1<br />
$result[UBound($result) - 1][0] = $line[0]<br />
$result[UBound($result) - 1][1] = $line[1]<br />
wend<br />
FileClose($file)<br />
return $result<br />
endfunc<br />
</source><br />
<br />
<br />
[[category:autoit]]</div>
Devcafe