A Simple INI Read/Write

[alex OF DEATH]

Code:

expandcollapse popup

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)

Hotkeyset ( "^1",  "Send1" )
Hotkeyset ( "^2",  "Send2" )
Hotkeyset ( "^3",  "Send3" )
Hotkeyset ( "^4",  "Send4" )
Hotkeyset ( "^5",  "Send5" )

$MainGUI = GUICreate("Easy Char.", 470, 127, 287, 230)
$NewCtrl1 = GUICtrlCreateInput("" & IniRead ( "C;\var.ini", "[Characters]", "1", "10"), 63, 8, 161, 21)
$NewCtrl2 = GUICtrlCreateInput("" & IniRead ( "C;\var.ini", "[Characters]", "2", "10"), 63, 32, 161, 21)
$NewCtrl3 = GUICtrlCreateInput("" & IniRead ( "C;\var.ini", "[Characters]", "3", "10"), 63, 56, 161, 21)
$NewCtrl4 = GUICtrlCreateInput("" & IniRead ( "C;\var.ini", "[Characters]", "4", "10"), 63, 80, 161, 21)
$NewCtrl5 = GUICtrlCreateInput("" & IniRead ( "C;\var.ini", "[Characters]", "5", "10"), 63, 104, 161, 21)
$SaveButton = GUICtrlCreateButton("Save Current Characters", 224, 104, 121, 17, 0)
GUISetOnEvent ( $SaveButton, "SaveToIni" )
$Ctrl1Label = GUICtrlCreateLabel("Ctrl 1:", 4, 8, 28, 17)
$Ctrl2Label = GUICtrlCreateLabel("Ctrl 2:", 4, 32, 28, 17)
$Ctrl3Label = GUICtrlCreateLabel("Ctrl 3:", 4, 56, 28, 17)
$Ctrl4Label = GUICtrlCreateLabel("Ctrl 4:", 4, 80, 28, 17)
$Ctrl5Label = GUICtrlCreateLabel("Ctrl 5:", 4, 104, 28, 17)
$WhatToDo = GUICtrlCreateLabel("What to do:  Copy and a paste a character", 256, 8, 206, 17)
$WhatToD2 = GUICtrlCreateLabel("into the box and hit 'Save.' Then, hit CTRL", 256, 24, 204, 17)
$WhatToD3 = GUICtrlCreateLabel("+ the number specified, and the char-", 256, 40, 196, 17)
$WhatToD4 = GUICtrlCreateLabel("acter will be automatically typed in. No more", 256, 56, 209, 17)
$WhatToD5 = GUICtrlCreateLabel("digging through charmap.", 256, 72, 209, 17)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
    GUISetOnEvent ($GUI_EVENT_CLOSE, "Exit1")
WEnd

Func SavetoIni()
    Iniwrite ( "C;\Var.ini", "[Characters]", "1", "" & GuiCtrlRead ($NewCtrl1) )
    Iniwrite ( "C;\Var.ini", "[Characters]", "2", "" & GuiCtrlRead ($NewCtrl2) )
    Iniwrite ( "C;\Var.ini", "[Characters]", "3", "" & GuiCtrlRead ($NewCtrl3) )
    Iniwrite ( "C;\Var.ini", "[Characters]", "4", "" & GuiCtrlRead ($NewCtrl4) )
    Iniwrite ( "C;\Var.ini", "[Characters]", "5", "" & GuiCtrlRead ($NewCtrl5) )
Endfunc

Func Send1()
    Send ("" & GuiCtrlRead ($NewCtrl1) ) 
EndFunc

Func Send2()
    Send ("" & GuiCtrlRead ($NewCtrl2) )
EndFunc

Func Send3()
    Send ("" & GuiCtrlRead ($NewCtrl3) )
EndFunc

Func Send4()
    Send ("" & GuiCtrlRead ($NewCtrl4) )
EndFunc

Func Send5()
    Send ("" & GuiCtrlRead ($NewCtrl5) )
EndFunc

func Exit1()
   Exit
endfunc

Everything works fine. Except reading/writing to the INI file. I've been trying for an hour, but no luck. Is it a simple syntax error? Am I just retarded? Please help.

note: I know this is a very simple script, but it DOES serve a purpose. My science teacher is always using special characters, like squared and stuff for math problems, and Instead of going to font and changing to subscript and back, I showed him Charmap, and now he goes there every chance possible to look for new, cool characters, and to get the Alt + numbers code of the characters. I'm making this so he can just set some characters, and hit Ctrl + number so it will type it in for him. (Mostly a practice script for me)

[evilertoaster]

off the top of head head right-quick, i don't think you need to include the brackets with the sections names...

$NewCtrl1 = GUICtrlCreateInput("" & IniRead ( "C;\var.ini", "Characters", "1", "10"), 63, 8, 161, 21)

Maybe try that and see how it goes.

Edited April 25, 2007 by evilertoaster

[alex OF DEATH]

Nope, but thanks for trying.

(And I accidentally used ";" instead of ":" for "C:\" but thats fixed, and it wasn't the problem.)

[evilertoaster]

This seems to work fine for me-

expandcollapse popup

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)

Hotkeyset ( "^1",  "Send1" )
Hotkeyset ( "^2",  "Send2" )
Hotkeyset ( "^3",  "Send3" )
Hotkeyset ( "^4",  "Send4" )
Hotkeyset ( "^5",  "Send5" )

$MainGUI = GUICreate("Easy Char.", 470, 127, 287, 230)
$NewCtrl1 = GUICtrlCreateInput("" & IniRead ( "C:\var.ini", "Characters", "1", "10"), 63, 8, 161, 21)
$NewCtrl2 = GUICtrlCreateInput("" & IniRead ( "C:\var.ini", "Characters", "2", "10"), 63, 32, 161, 21)
$NewCtrl3 = GUICtrlCreateInput("" & IniRead ( "C:\var.ini", "Characters", "3", "10"), 63, 56, 161, 21)
$NewCtrl4 = GUICtrlCreateInput("" & IniRead ( "C:\var.ini", "Characters", "4", "10"), 63, 80, 161, 21)
$NewCtrl5 = GUICtrlCreateInput("" & IniRead ( "C:\var.ini", "Characters", "5", "10"), 63, 104, 161, 21)
$SaveButton = GUICtrlCreateButton("Save Current Characters", 224, 104, 121, 17, 0)
GUISetOnEvent ( $SaveButton, "SaveToIni" )
$Ctrl1Label = GUICtrlCreateLabel("Ctrl 1:", 4, 8, 28, 17)
$Ctrl2Label = GUICtrlCreateLabel("Ctrl 2:", 4, 32, 28, 17)
$Ctrl3Label = GUICtrlCreateLabel("Ctrl 3:", 4, 56, 28, 17)
$Ctrl4Label = GUICtrlCreateLabel("Ctrl 4:", 4, 80, 28, 17)
$Ctrl5Label = GUICtrlCreateLabel("Ctrl 5:", 4, 104, 28, 17)
$WhatToDo = GUICtrlCreateLabel("What to do:  Copy and a paste a character", 256, 8, 206, 17)
$WhatToD2 = GUICtrlCreateLabel("into the box and hit 'Save.' Then, hit CTRL", 256, 24, 204, 17)
$WhatToD3 = GUICtrlCreateLabel("+ the number specified, and the char-", 256, 40, 196, 17)
$WhatToD4 = GUICtrlCreateLabel("acter will be automatically typed in. No more", 256, 56, 209, 17)
$WhatToD5 = GUICtrlCreateLabel("digging through charmap.", 256, 72, 209, 17)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
    GUISetOnEvent ($GUI_EVENT_CLOSE, "Exit1")
WEnd

Func SavetoIni()
    Iniwrite ( "C:\Var.ini", "Characters", "1", "" & GuiCtrlRead ($NewCtrl1) )
    Iniwrite ( "C:\Var.ini", "Characters", "2", "" & GuiCtrlRead ($NewCtrl2) )
    Iniwrite ( "C:\Var.ini", "Characters", "3", "" & GuiCtrlRead ($NewCtrl3) )
    Iniwrite ( "C:\Var.ini", "Characters", "4", "" & GuiCtrlRead ($NewCtrl4) )
    Iniwrite ( "C:\Var.ini", "Characters", "5", "" & GuiCtrlRead ($NewCtrl5) )
Endfunc

Func Send1()
    Send ("" & GuiCtrlRead ($NewCtrl1) ) 
EndFunc

Func Send2()
    Send ("" & GuiCtrlRead ($NewCtrl2) )
EndFunc

Func Send3()
    Send ("" & GuiCtrlRead ($NewCtrl3) )
EndFunc

Func Send4()
    Send ("" & GuiCtrlRead ($NewCtrl4) )
EndFunc

Func Send5()
    Send ("" & GuiCtrlRead ($NewCtrl5) )
EndFunc

func Exit1()
   Exit
endfunc

my var.ini-

[Characters]

1=10

2=11

3=12

4=13

5=14

[alex OF DEATH]

In the help file, it says it will make an Ini File if one doesn't exist.

It's not making one.

Other than that, it works, So thanks!

Edit: Actually, it wont write to the INI...

Edited April 25, 2007 by alex OF DEATH

[evilertoaster]

sorry forgot about that... this should work now,

expandcollapse popup

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)

Hotkeyset ( "^1",  "Send1" )
Hotkeyset ( "^2",  "Send2" )
Hotkeyset ( "^3",  "Send3" )
Hotkeyset ( "^4",  "Send4" )
Hotkeyset ( "^5",  "Send5" )

$MainGUI = GUICreate("Easy Char.", 470, 127, 287, 230)
$NewCtrl1 = GUICtrlCreateInput(IniRead ( "C:\var.ini", "Characters", "1", "10"), 63, 8, 161, 21)
$NewCtrl2 = GUICtrlCreateInput(IniRead ( "C:\var.ini", "Characters", "2", "10"), 63, 32, 161, 21)
$NewCtrl3 = GUICtrlCreateInput(IniRead ( "C:\var.ini", "Characters", "3", "10"), 63, 56, 161, 21)
$NewCtrl4 = GUICtrlCreateInput(IniRead ( "C:\var.ini", "Characters", "4", "10"), 63, 80, 161, 21)
$NewCtrl5 = GUICtrlCreateInput(IniRead ( "C:\var.ini", "Characters", "5", "10"), 63, 104, 161, 21)
$SaveButton = GUICtrlCreateButton("Save Current Characters", 224, 104, 121, 17, 0)
GUICtrlSetOnEvent ( $SaveButton, "SaveToIni" )
$Ctrl1Label = GUICtrlCreateLabel("Ctrl 1:", 4, 8, 28, 17)
$Ctrl2Label = GUICtrlCreateLabel("Ctrl 2:", 4, 32, 28, 17)
$Ctrl3Label = GUICtrlCreateLabel("Ctrl 3:", 4, 56, 28, 17)
$Ctrl4Label = GUICtrlCreateLabel("Ctrl 4:", 4, 80, 28, 17)
$Ctrl5Label = GUICtrlCreateLabel("Ctrl 5:", 4, 104, 28, 17)
$WhatToDo = GUICtrlCreateLabel("What to do:  Copy and a paste a character", 256, 8, 206, 17)
$WhatToD2 = GUICtrlCreateLabel("into the box and hit 'Save.' Then, hit CTRL", 256, 24, 204, 17)
$WhatToD3 = GUICtrlCreateLabel("+ the number specified, and the char-", 256, 40, 196, 17)
$WhatToD4 = GUICtrlCreateLabel("acter will be automatically typed in. No more", 256, 56, 209, 17)
$WhatToD5 = GUICtrlCreateLabel("digging through charmap.", 256, 72, 209, 17)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
    GUISetOnEvent ($GUI_EVENT_CLOSE, "Exit1")
WEnd

Func SavetoIni()
    Iniwrite ( "C:\Var.ini", "Characters", "1", GuiCtrlRead ($NewCtrl1) )
    Iniwrite ( "C:\Var.ini", "Characters", "2", GuiCtrlRead ($NewCtrl2) )
    Iniwrite ( "C:\Var.ini", "Characters", "3", GuiCtrlRead ($NewCtrl3) )
    Iniwrite ( "C:\Var.ini", "Characters", "4", GuiCtrlRead ($NewCtrl4) )
    Iniwrite ( "C:\Var.ini", "Characters", "5", GuiCtrlRead ($NewCtrl5) )
Endfunc

Func Send1()
    Send ("" & GuiCtrlRead ($NewCtrl1) ) 
EndFunc

Func Send2()
    Send ("" & GuiCtrlRead ($NewCtrl2) )
EndFunc

Func Send3()
    Send ("" & GuiCtrlRead ($NewCtrl3) )
EndFunc

Func Send4()
    Send ("" & GuiCtrlRead ($NewCtrl4) )
EndFunc

Func Send5()
    Send ("" & GuiCtrlRead ($NewCtrl5) )
EndFunc

func Exit1()
   Exit
endfunc

[alex OF DEATH]

I don't see a difference in your script and mine.

Was I making some tiny mistake like I thought I was?

[evilertoaster]

besides the changes to the iniread/write lines the main difference is-

GUICtrlSetOnEvent ( $SaveButton, "SaveToIni" )
oÝ÷ ÚûºÚ"µÍÕRTÙ]Û][
    ÌÍÔØ]P]Û   ][ÝÔØ]UÒ[I][ÝÈ

I've done this alot becuase the first one come up on the scite inteli-sense first so i mistype it

[alex OF DEATH]

D'oh.

Thanks a bunch.