행위

Autoit iniread utf()

DB CAFE

Dbcafe (토론 | 기여)님의 2024년 8월 8일 (목) 17:54 판
thumb_up 추천메뉴 바로가기


autoit iniread_utf()[편집]

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) Then
      SetError(2)
      Return
    EndIf
  Else
    $hFile = FileOpen($filename, 0+$filename_format)
    If (@error) Then
      SetError(3)
      Return
    Else
      $data_ini = FileRead($hFile)
      If (@error) Then
        SetError(4)
        Return
      EndIf
    EndIf

    FileClose($hFile)
    If (@error) Then
      SetError(5)
      Return
    EndIf

    $hFile = FileOpen($filename_temp, 1+512)
    If (@error) Then
      SetError(6)
      Return
    EndIf

    FileWrite($hFile, $data_ini)
    If (@error) Then
      SetError(7)
      Return
    EndIf

    FileClose($hFile)
    If (@error) Then
      SetError(8)
      Return
    EndIf

    $key_ini = IniRead($filename_temp, $section, $key, $default)

    FileDelete($filename_temp)
    If (@error) Then
      SetError(9)
      Return
    EndIf
  EndIf

  Return ($key_ini)

EndFunc