Modify ini value

PcExpert · February 5, 2009

Hi all,

I was wondering how to modify the value of a key in an inifile.

For example:

I have this inifile:

[Section1]
key1=this,is,my,value

Now I want to change is to was so the value of 'key' would be 'this,was,my,value'

How would I do that?

DaRam · February 5, 2009

Use:

IniWrite ( "filename", "section", "key", "value" )

IniWrite ( "somefile.ini", "Section1", "key1", "this,was,my,value" )

Hi all,

I was wondering how to modify the value of a key in an inifile.

For example:

I have this inifile:
[Section1]
key1=this,is,my,value
Now I want to change is to was so the value of 'key' would be 'this,was,my,value'

How would I do that?

Prab · February 5, 2009

Something along the lines of

$temp = IniRead($file, "Section", "key", "")

IniDelete($file, "Section", "key")

IniWrite($file, "Section", "NewKey", $temp)

This code is untested.

PcExpert · February 5, 2009

@DaRam,

Normally this would work, but I think now it doesnt.

I'll Explain:

I have a gui where users can specify values(20, separated by a comma).

Just imagine you have an inifile that would look like this.

[Section1]
key=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20

Now a user wants to modify the number 14 to, for example 50 (done by entering the number in the gui, user specifies that the number 14 should be changed to 50). But how do I change the number 14 to 50?

DaRam · February 5, 2009

1. You would read the INI File, Section1, Key into a string (See Prab's post above).

2. You would stringsplit the values using Comma's to an Array.

3. Present the Array contents as Text boxes.

4. After User changes the values (& hits a button?), read the text box values back to Array.

5. Write out the Array contents to the same Key.

@DaRam,

Normally this would work, but I think now it doesnt.

I'll Explain:

I have a gui where users can specify values(20, separated by a comma).

Just imagine you have an inifile that would look like this.
[Section1]
key=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
Now a user wants to modify the number 14 to, for example 50 (done by entering the number in the gui, user specifies that the number 14 should be changed to 50). But how do I change the number 14 to 50?

Melba23 · February 5, 2009

PcExpert,

You have 2 choices:

1. Read in the current value, modify it and then resave it.

2. Create a new value and save it.

You cannot modify the value within the .ini file - only save a new version. From what I remember of your script (I thought I had finished with "vakken"s!) the second option might be the way to go. But much will depend on how you get the information on what to change.

M23

Aceguy · February 5, 2009

there ya go

#include <array.au3>

$temp = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20"
$ss=StringSplit($temp,",")
$sea=_ArraySearch($ss,"14")
ConsoleWrite($sea&@lf)
$ss[$sea]="50"
$new=""
for $ct=1 to $ss[0]
    $new&=$ss[$ct]&","
Next
$new=StringTrimRight($new,1)
ConsoleWrite("New key "&$new&@lf)

Well, thats how i would replace the 14 with 50 in this instance, change to suit your needs.

Edited February 5, 2009 by Aceguy

PcExpert · February 5, 2009

Thanks for your quick replys!

OK, I'm going to explain something new.

Imagine that I want to edit this ini:

[Section]
mykey=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20

Using a combobox the user can select the place in the value wich he wants to edit. The combobox has options like 'Place 1', 'Place 2' and so on. 'Place 1' stands for the value before the first comma (the number one) and place, for example, 14 stands for the place where I currently have the number 14. Lets say that I want to edit the number standing on place 15, so I select 'place 15' (the place where the number 15 currently stands) from the combobox, specify a new number in an inputcontrol (ex. 67) and hit the OK button to accept changes. Then the script edits the number that is currently on place 14 and puts the number 67 (as specified) on the place where the number 14 was first.

I hope that this is clear enough about what I want.

Does somebody know how to archieve this?

Thanks

Melba23 · February 6, 2009

PcExpert,

That should be a fairly easy script - you already have the logic flow worked out.

Have a go at coding it yourself and come back if you have problems. I like playing with "vakken"s!

M23

PcExpert · February 6, 2009

Thats OK Melba, I'll try my best!

PcExpert · February 6, 2009

I've just put this together:

Opt("GUIOnEventMode", 1)
Global $place

$Gui_addmark = GUICreate("MyGUI",  350, 255)
GUICtrlCreateLabel("OV-Nummer                  :", 10, 10)
$ov1 = GUICtrlCreateInput("", 100, 7, 80, 20)
$ovselect = GUICtrlCreateButton("selecteer", 190, 7, 60, 20)
GUICtrlSetOnEvent(-1, "addmark_select")
GUICtrlCreateLabel("Vak                  :", 10, 40)
$vak1 = GUICtrlCreateCombo("", 100, 37, 60, 20)
$vak2 = GUICtrlCreateCombo("Rapport 1 \ Cijfer 1", 190, 37, 150, 20)
GUICtrlSetData($vak2, "Rapport 1 \ Cijfer 2|Rapport 1 \ Cijfer 3|Rapport 1 \ Cijfer 4|Rapport 1 \ Rapport Cijfer |Rapport 2 \ Cijfer 1|Rapport 2 \ Cijfer 2|Rapport 2 \ Cijfer 3|Rapport 2 \ Cijfer 4|Rapport 2 \ Rapport Cijfer |Rapport 3 \ Cijfer 1|Rapport 3 \ Cijfer 2|Rapport 3 \ Cijfer 3|Rapport 3 \ Cijfer 4|Rapport 3 \ Rapport Cijfer")
GUICtrlCreateLabel("Cijfer            :", 10, 70)
$cijfer1 = GUICtrlCreateInput("", 100, 67, 50, 20)
$addmark_OK = GUICtrlCreateButton("OK", 250, 210, 80, 30)
GUICtrlSetOnEvent(-1, "addmark_save")
GUISetState(@SW_SHOW, $Gui_addmark)

While 1
Sleep(100)
WEnd

Func addmark_select()
If not FileExists("gebruikers\" & GUICtrlRead($ov1) & ".ini") Or GUICtrlRead($ov1) = "" Then
MsgBox(16, "Cijfer Registratie Systeem | Melding", "Deze gebruiker bestaat niet of het invoerveld is leeg")
Else

$usergroup = IniRead("gebruikers\" & GUICtrlRead($ov1) & ".ini", "Algemeen", "Groep", "")

If @error Then
    MsgBox(4096, "", "Fatale fout")
Exit 
Else
    
 $vakken = IniRead("groepen\" & $usergroup & ".ini", "Algemeen", "Vakken", "")
    $vakken_array = StringSplit($vakken, ",")
    
    For $i = 1 To $vakken_array[0]
        If $vakken_array[$i] <> "" Then
            GUICtrlSetData($vak1, $vakken_array[$i])
        EndIf
    Next
EndIf
EndIf
EndFunc

Func addmark_save()
If not FileExists("gebruikers\" & GUICtrlRead($ov1) & ".ini") Or GUICtrlRead($ov1) = "" Then
MsgBox(16, "Cijfer Registratie Systeem | Melding", "Deze gebruiker bestaat niet of het invoerveld is leeg")
Else 
$placeh = GUICtrlRead($vak2)
If $placeh = "Rapport 1 \ Cijfer 1" Then
 $place = 1
EndIf 
If $placeh = "Rapport 1 \ Cijfer 2" Then
 $place = 2
EndIf 
If $placeh = "Rapport 1 \ Cijfer 3" Then
 $place = 3
EndIf 
If $placeh = "Rapport 1 \ Cijfer 4" Then
 $place = 4
EndIf 
If $placeh = "Rapport 1 \ Rapport Cijfer" Then
 $place = 5
EndIf 
If $placeh = "Rapport 2 \ Cijfer 1" Then
 $place = 6
EndIf 
If $placeh = "Rapport 2 \ Cijfer 2" Then
 $place = 7
EndIf 
If $placeh = "Rapport 2 \ Cijfer 3" Then
 $place = 8
EndIf 
If $placeh = "Rapport 2 \ Cijfer 4" Then
 $place = 9
EndIf 
If $placeh = "Rapport 2 \ Rapport Cijfer" Then
 $place = 10
EndIf 
If $placeh = "Rapport 3 \ Cijfer 1" Then
 $place = 11
EndIf 
If $placeh = "Rapport 3 \ Cijfer 2" Then
 $place = 12
EndIf 
If $placeh = "Rapport 3 \ Cijfer 3" Then
 $place = 13
EndIf 
If $placeh = "Rapport 3 \ Cijfer 4" Then
 $place = 14
EndIf 
If $placeh = "Rapport 3 \ Rapport Cijfer" Then
 $place = 15
EndIf 
MsgBox(0, "", $place)
EndIf
$marksplit = StringSplit(IniRead("gebruikers\" & GUICtrlRead($ov1) & ".ini", "Cijfers", GUICtrlRead($vak1), ""), ",")
    
    For $i = 1 To 15
        If $marksplit[$i] <> "" Then
            ;Do Something
        EndIf
    Next

EndFunc

I dont know how to continue now, the for-loop is also not done yet. I just took a quick look at the StringTrim function, I think I need it, but as a mark can also consist of to numbers (a mark can be a number from 1 to 10), I think the script first need to check how long the part of the array is, by using some sort of function to count the numbers. I have been searching for a function that does just that, but I havent been able to find it. Can you help me out with this?

Edited February 6, 2009 by PcExpert

Melba23 · February 6, 2009

PcExpert,

If you want to know how long a string is, you need StringLen().

I am having some trouble getting your script to work properly. Because I do not have the .ini files to read I am guessing at their structure and I am pretty sure I am not guessing correctly! Can you give me samples of what the "gebruikers\?.ini" and "groepen\?.ini" files look like.

M23

PcExpert · February 6, 2009

Ofcourse!

A Groepen\*.ini file looks like this:

Filename: Group 8

[algemeen]
vakken=PTT,TVF,EDS,WDS,HKP,PSD,PWH,NET,

A Gebruikers\*.ini ile looks like this:

Filename: 35469.ini

[Algemeen]
naam=MYNAME
adres=MYADDRESS
postcode=MYPOSTALCODE
woonplaats=MYCITY
telefoon=MYPHONENUMBER
email=MYEMAILADDRESS
ov=MYNUMBER
groep=Group 8
[Cijfers]
PTT=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
TVF=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
EDS=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
WDS=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
HKP=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
PSD=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
PWH=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
NET=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
[Beoordeling]

This is how it looks. At the section 'Cijfers' (Cijfers means marks) you see keys which stand for the shortnames of the given professions. The values are the marks the user has, separated by a comma.

I hope this was clear.

Edited February 6, 2009 by PcExpert

sandin · February 6, 2009

you can use Ini Editor (from my signature), which can generate you AU3 code when you're done...

Melba23 · February 6, 2009

PcExpert,

I have it working now. All seems to be nicely coded - personally I prefer a Switch...Case function to select $place - I think it looks neater:

Switch GUICtrlRead($vak2)
    Case "Rapport 1 \ Cijfer 1"
        $place = 1
    Case "Rapport 1 \ Cijfer 2"
        $place = 2
    Case "Rapport 1 \ Cijfer 3"
        $place = 3
    Case "Rapport 1 \ Cijfer 4"
        $place = 4
    Case "Rapport 1 \ Rapport Cijfer"
        $place = 5
    Case "Rapport 2 \ Cijfer 1"
        $place = 6
    Case "Rapport 2 \ Cijfer 2"
        $place = 7
    Case "Rapport 2 \ Cijfer 3"
        $place = 8
    Case "Rapport 2 \ Cijfer 4"
        $place = 9
    Case "Rapport 2 \ Rapport Cijfer"
        $place = 10
    Case "Rapport 3 \ Cijfer 1"
        $place = 11
    Case "Rapport 3 \ Cijfer 2"
        $place = 12
    Case "Rapport 3 \ Cijfer 3"
        $place = 13
    Case "Rapport 3 \ Cijfer 4"
        $place = 14
    Case "Rapport 3 \ Rapport Cijfer"
        $place = 15
EndSwitch

You seem to be getting the correct key into your $marksplit array. What do you want to do in your For...Next loop? Replace the number in $marksplit[$place] by the entry in input box "Cijfer"?

M23

PcExpert · February 6, 2009

I dont know that yet, I thought I had to split the array of value so for example:

I have an array like this and I want to edit place 10:

1,3,5,7,9,11,13,15,17,19,21,23,25,27

Then I thought about splitting the array in two pieces, excluding the place I want to edit, so you get two arrays. One like this:

1,3,5,7,9,11,13,15,17

and one like this:

21,23,25,27

Then All I need to do is specify a new number and then combine array 1 with the new number and array 2. But maybe thats to difficult.

Edited February 6, 2009 by PcExpert

Melba23 · February 6, 2009

PcExpert,

You know which of the values you need to change because you have the variable $place. Why not use StringInStr with the "count" parameter (set to $place) to find where that value is in the string (you search for the separator "," of course). You can then split the string as you indicate above. Another StringInStr call on the second part of the string will get you what is there after the value to replace. Then a simple concatenation to reform the string with your new value. Try that and see.

M23

PcExpert · February 6, 2009

I currently have this:

Opt("GUIOnEventMode", 1)
Global $place

$Gui_addmark = GUICreate("Cijfer Registratie Systeem | Cijfer Toevoegen",  350, 255)
GUICtrlCreateLabel("OV-Nummer                  :", 10, 10)
$ov1 = GUICtrlCreateInput("", 100, 7, 80, 20)
$ovselect = GUICtrlCreateButton("selecteer", 190, 7, 60, 20)
GUICtrlSetOnEvent(-1, "addmark_select")
GUICtrlCreateLabel("Vak                  :", 10, 40)
$vak1 = GUICtrlCreateCombo("", 100, 37, 60, 20)
$vak2 = GUICtrlCreateCombo("Rapport 1 \ Cijfer 1", 190, 37, 150, 20)
GUICtrlSetData($vak2, "Rapport 1 \ Cijfer 2|Rapport 1 \ Cijfer 3|Rapport 1 \ Cijfer 4|Rapport 1 \ Rapport Cijfer |Rapport 2 \ Cijfer 1|Rapport 2 \ Cijfer 2|Rapport 2 \ Cijfer 3|Rapport 2 \ Cijfer 4|Rapport 2 \ Rapport Cijfer |Rapport 3 \ Cijfer 1|Rapport 3 \ Cijfer 2|Rapport 3 \ Cijfer 3|Rapport 3 \ Cijfer 4|Rapport 3 \ Rapport Cijfer")
GUICtrlCreateLabel("Cijfer            :", 10, 70)
$cijfer1 = GUICtrlCreateInput("", 100, 67, 50, 20)
$addmark_OK = GUICtrlCreateButton("OK", 250, 210, 80, 30)
GUICtrlSetOnEvent(-1, "addmark_save")
GUISetState(@SW_SHOW, $Gui_addmark)

While 1
Sleep(100)
WEnd

Func addmark_select()
If not FileExists("gebruikers\" & GUICtrlRead($ov1) & ".ini") Or GUICtrlRead($ov1) = "" Then
MsgBox(16, "Cijfer Registratie Systeem | Melding", "Deze gebruiker bestaat niet of het invoerveld is leeg")
Else

$usergroup = IniRead("gebruikers\" & GUICtrlRead($ov1) & ".ini", "Algemeen", "Groep", "")

If @error Then
    MsgBox(4096, "", "Fatale fout")
Exit 
Else
    
 $vakken = IniRead("groepen\" & $usergroup & ".ini", "Algemeen", "Vakken", "")
    $vakken_array = StringSplit($vakken, ",")
    
    For $i = 1 To $vakken_array[0]
        If $vakken_array[$i] <> "" Then
            GUICtrlSetData($vak1, $vakken_array[$i])
        EndIf
    Next
EndIf
EndIf
EndFunc

Func addmark_save()
If not FileExists("gebruikers\" & GUICtrlRead($ov1) & ".ini") Or GUICtrlRead($ov1) = "" Then
MsgBox(16, "Cijfer Registratie Systeem | Melding", "Deze gebruiker bestaat niet of het invoerveld is leeg")
Else 
Switch GUICtrlRead($vak2)
    Case "Rapport 1 \ Cijfer 1"
        $place = 1
    Case "Rapport 1 \ Cijfer 2"
        $place = 2
    Case "Rapport 1 \ Cijfer 3"
        $place = 3
    Case "Rapport 1 \ Cijfer 4"
        $place = 4
    Case "Rapport 1 \ Rapport Cijfer"
        $place = 5
    Case "Rapport 2 \ Cijfer 1"
        $place = 6
    Case "Rapport 2 \ Cijfer 2"
        $place = 7
    Case "Rapport 2 \ Cijfer 3"
        $place = 8
    Case "Rapport 2 \ Cijfer 4"
        $place = 9
    Case "Rapport 2 \ Rapport Cijfer"
        $place = 10
    Case "Rapport 3 \ Cijfer 1"
        $place = 11
    Case "Rapport 3 \ Cijfer 2"
        $place = 12
    Case "Rapport 3 \ Cijfer 3"
        $place = 13
    Case "Rapport 3 \ Cijfer 4"
        $place = 14
    Case "Rapport 3 \ Rapport Cijfer"
        $place = 15
EndSwitch
$stringinst = StringInStr(IniRead("gebruikers\" & GUICtrlRead($ov1) & ".ini", "Cijfers", GUICtrlRead($vak1), ""), ",", -1, -1, $place)
MsgBox(0, "", $stringinst)
EndIf
EndFunc

But it doesnt seem to be always accurate. I tried it and sometimes it returned the same number althought another option was choosen from the combobox. Do you have any ideas why?

This is the ini I used:

[Algemeen]
naam=MYNAME
adres=MYADDRESS
postcode=MYPOSTALCODE
woonplaats=MYCITY
telefoon=MYPHONENUMBER
email=MYEMAIL
ov=MYSCHOOLID
groep=Group 8
[Cijfers]
PTT=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
TVF=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
EDS=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
WDS=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
HKP=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
PSD=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
PWH=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
NET=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
[Beoordeling]

Thanks!

Edited February 6, 2009 by PcExpert

Aceguy · February 6, 2009

you have 2 mistakes in

GUICtrlSetData($vak2, "Rapport 1 \ Cijfer 2|Rapport 1 \ Cijfer 3|Rapport 1 \ Cijfer 4|Rapport 1 \ Rapport Cijfer |Rapport 2 \ Cijfer 1|Rapport 2 \ Cijfer 2|Rapport 2 \ Cijfer 3|Rapport 2 \ Cijfer 4|Rapport 2 \ Rapport Cijfer |Rapport 3 \ Cijfer 1|Rapport 3 \ Cijfer 2|Rapport 3 \ Cijfer 3|Rapport 3 \ Cijfer 4|Rapport 3 \ Rapport Cijfer")

notice:- "Cijfer |Rapport" there is a space

Edited February 6, 2009 by Aceguy

PcExpert · February 6, 2009

Fixed the spaces, but it didnt solve the problem

Modify ini value

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members