Jump to content

Unicode with IniWrite ?

zxzxzx

By zxzxzx,
in AutoIt General Help and Support

 Share

Recommended Posts

PsaltyDS Universalist

PsaltyDS

Posted
Posted

Unicode with IniWrite ????

I can't !

This not work.

IniWrite("C:\1.ini", "1", "1", "Đất nước Việt Nam")

Help me please

I don't think the windows convention for INI files include Unicode. You would have to write a custom function that would use Unicode modes in FileOpen() before writing to the file.

:)

Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law
Link to comment
Share on other sites
MrCreatoR Universalist

MrCreatoR

Posted
Posted 

_IniWriteEx("C:\1.ini", "1", "1", "Đất nước Việt Nam", 128)

Func _IniWriteEx($sIniFile, $sSection, $sKey, $sValue, $iUTFMode=0)
    If BitOR($iUTFMode, 16, 32, 64, 128) <> Number(16+32+64+128) Then $iUTFMode = 128
    Local $sReadFile = FileRead($sIniFile)
    Local $hFile = FileOpen($sIniFile, 10+$iUTFMode)
    If $hFile = -1 Then Return IniWrite($sIniFile, $sSection, $sKey, $sValue)
    Local $aFileArr = StringSplit(StringStripCR($sReadFile), @LF)
    
    If @error Then
        If $sReadFile <> "" Then $sReadFile &= @LF
        FileWrite($hFile, $sReadFile & "[" & $sSection & "]" & @LF)
        FileWrite($hFile, $sKey & "=" & $sValue)
        FileClose($hFile)
        Return SetError(0, 0, 1)
    EndIf
    
    Local $sLF = @LF, $aSplitKeyValue, $iValueWasWritten = False
    
    For $i = 1 To $aFileArr[0]
        If $i = $aFileArr[0] Then $sLF = ""
        FileWrite($hFile, $aFileArr[$i] & $sLF)
        
        If $aFileArr[$i] = "[" & $sSection & "]" Then
            For $j = $i+1 To $aFileArr[0]
                If $j = $aFileArr[0] Then $sLF = ""
                
                If Not $iValueWasWritten Then
                    If StringRegExp(StringRegExpReplace($aFileArr[$j], '\s+=', '='), $sKey & '=') Then
                        $aSplitKeyValue = StringSplit($aFileArr[$j], "=")
                        FileWrite($hFile, $aSplitKeyValue[1] & "=" & $sValue & $sLF)
                        $iValueWasWritten = True
                    ElseIf $aFileArr[$j] = "" Then
                        FileWrite($hFile, $sKey & "=" & $sValue & $sLF)
                    ElseIf StringLeft($aFileArr[$j], 1) = "[" Or $j = $aFileArr[0] Then
                        FileWrite($hFile, $aFileArr[$j] & @LF & $sKey & "=" & $sValue & $sLF)
                    Else
                        FileWrite($hFile, $aFileArr[$j] & $sLF)
                    EndIf
                Else
                    FileWrite($hFile, $aFileArr[$j] & $sLF)
                EndIf
            Next
            
            ExitLoop
        ElseIf $i = $aFileArr[0] Then
            FileWrite($hFile, @LF & "[" & $sSection & "]" & @LF)
            FileWrite($hFile, $sKey & "=" & $sValue)
        EndIf
    Next
    
    FileClose($hFile)
    Return SetError(0, 0, 1)
EndFunc

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Link to comment
Share on other sites
zxzxzx Wayfarer

zxzxzx

Posted
  • Author
Posted 

_IniWriteEx("C:\1.ini", "1", "1", "Đất nước Việt Nam", 128)

Func _IniWriteEx($sIniFile, $sSection, $sKey, $sValue, $iUTFMode=0)
    If BitOR($iUTFMode, 16, 32, 64, 128) <> Number(16+32+64+128) Then $iUTFMode = 128
    Local $sReadFile = FileRead($sIniFile)
    Local $hFile = FileOpen($sIniFile, 10+$iUTFMode)
    If $hFile = -1 Then Return IniWrite($sIniFile, $sSection, $sKey, $sValue)
    Local $aFileArr = StringSplit(StringStripCR($sReadFile), @LF)
    
    If @error Then
        If $sReadFile <> "" Then $sReadFile &= @LF
        FileWrite($hFile, $sReadFile & "[" & $sSection & "]" & @LF)
        FileWrite($hFile, $sKey & "=" & $sValue)
        FileClose($hFile)
        Return SetError(0, 0, 1)
    EndIf
    
    Local $sLF = @LF, $aSplitKeyValue, $iValueWasWritten = False
    
    For $i = 1 To $aFileArr[0]
        If $i = $aFileArr[0] Then $sLF = ""
        FileWrite($hFile, $aFileArr[$i] & $sLF)
        
        If $aFileArr[$i] = "[" & $sSection & "]" Then
            For $j = $i+1 To $aFileArr[0]
                If $j = $aFileArr[0] Then $sLF = ""
                
                If Not $iValueWasWritten Then
                    If StringRegExp(StringRegExpReplace($aFileArr[$j], '\s+=', '='), $sKey & '=') Then
                        $aSplitKeyValue = StringSplit($aFileArr[$j], "=")
                        FileWrite($hFile, $aSplitKeyValue[1] & "=" & $sValue & $sLF)
                        $iValueWasWritten = True
                    ElseIf $aFileArr[$j] = "" Then
                        FileWrite($hFile, $sKey & "=" & $sValue & $sLF)
                    ElseIf StringLeft($aFileArr[$j], 1) = "[" Or $j = $aFileArr[0] Then
                        FileWrite($hFile, $aFileArr[$j] & @LF & $sKey & "=" & $sValue & $sLF)
                    Else
                        FileWrite($hFile, $aFileArr[$j] & $sLF)
                    EndIf
                Else
                    FileWrite($hFile, $aFileArr[$j] & $sLF)
                EndIf
            Next
            
            ExitLoop
        ElseIf $i = $aFileArr[0] Then
            FileWrite($hFile, @LF & "[" & $sSection & "]" & @LF)
            FileWrite($hFile, $sKey & "=" & $sValue)
        EndIf
    Next
    
    FileClose($hFile)
    Return SetError(0, 0, 1)
EndFunc
Oh yeah thank MrCreatoR. I'm going to make a function same above function
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...