@TAB etc. in .ini

[Rawox]

Ok, New problem...

If I copy a piece of AutoIt code it includes @TAB and @CRLF etc. but when I write directly what I copied to an .ini file it doesn't types those things.

Anyone knows how?

Thanks, Rawox

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <Array.au3>
#Include <GuiMenu.au3>

HotKeySet ( "^!v", "_showMenu" )

AdLibRegister ( "_checkClip" )

Global      $ClipHist = ""
Global      $itArray[1]
            $itArray[0] = "0"

            GUICreate ( "Test", 200, 200 )
$Button =   GUICtrlCreateButton ( "test", 10, 10 )
$Menu =     GUICtrlCreateContextMenu ( $Button )
            GUICtrlCreateMenuItem ( "", $Menu )
$Config =   GUICtrlCreateMenuItem ( "Configuration", $Menu )
            GUISetState ( @SW_HIDE )

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _showMenu()
    ControlClick ( "Test", "", $Button, "menu" )
EndFunc

Func _addToList ( $sText, $vChar = 30 )
    If $sText <> "" Then
        If StringInStr ( $sText, @TAB ) Then $nText = StringReplace ( $sText, @TAB, "" )
        If StringLen ( $nText ) > $vChar Then $nText = StringLeft ( $sText, $vChar ) & "..."
        _GUICtrlMenu_InsertMenuItem ( $Menu, 0, $nText, $itArray[$itArray[0]] )
        $itArray[0] = $itArray[0] + 1
        _writeIni()
        _paste()

            _ArrayAdd ( $itArray, $iText )
    EndIf
EndFunc

Func _paste()
    Run ( "notepad.exe" )
    WinActivate ( "Naamloos - Kladblok" )
    Sleep ( 500 )
    $var = StringSplit ( IniRead ( @ScriptDir & "\text.ini", "Array", "itArray", "" ), "|", 2 )
    Send ( $var[1] )
EndFunc

Func _checkClip()
    If ClipGet ( ) <> $ClipHist Then
        $ClipHist = ClipGet ( )
        _addToList ( ClipGet ( ) )
    EndIf
EndFunc

Func _writeIni()
    _ArrayDisplay ( $itArray )
    IniWrite ( @ScriptDir & "\text.ini", "Array", "itArray", _ArrayToString ( $itArray, "|" ) )
EndFunc

Edited May 19, 2010 by Rawox

[Melba23]

Rawox,

You have run into a limitation of the Windows ini file format - Values cannot hold such things as @CRLF or @TAB.

But you can replace them with escape sequences like this:

; This is what we want to write and recover
$sWrite = "Fred" & @CRLF & "Fred"
MsgBox(0, "Original", $sWrite)

; Convert the @CRLF to an escape sequence
$sWrite = StringReplace($sWrite, @CRLF, "\n")
MsgBox(0, "Writing", $sWrite)

; Write it
IniWrite("Test.ini", "Section", "Key", $sWrite)

; Read it back
$sRead = IniRead("Test.ini", "Section", "Key", "")
MsgBox(0, "Reading", $sRead)

; And reconvert the escape sequence
$sRead = StringReplace($sRead, "\n", @CRLF)
MsgBox(0, "Final", $sRead)

You could use \t to replace @TAB. Just make sure that the escape sequences do not appear in the values.

I hope this helps.

M23