Problem with inifile output

[mjkras]

Hello everybody,

I’m new at scripting and I have a problem.

I want to see how many times a user is using a program. I thought the best way was to log it into a ini file.

The section name will be the program name

The key will be the users name

The value will be the using count

Every program will get it’s own section. No problem here.

When it comes to the first key in a section, there are no problems. It counts

But from the second key the value will not count. It strands on the Array

I get the message:

…… (32) : ==> Subscript used with non-Array variable.:

$Total = $Total[$i][0]

$Total = $Total^ ERROR

I cant figure out what the problem is

This is what I have:

$sIniFile = "log.ini"
$UserName = "user1"
$Naam = "Program1"

If Not FileExists($sIniFile) Then

IniWrite($sIniFile, $Naam , $UserName , "1")

Else

If IniRead($sIniFile, $Naam, $UserName, "") Then

    $Totaal = IniReadSection($sIniFile, $Naam)
    For $i = 1 To $Totaal[0][0]
        $Totaal = $Totaal[$i][1]
Next
IniWriteSection($sIniFile, $Naam, $UserName & "=" & $Totaal + 1)

Else
    IniWrite($sIniFile, $Naam , $UserName , "1")
EndIf

Endif

The output is:

[Program1]
User1=3523
User2=1
User3=1
[Program2]
User1=64
User2=1
User3=1
[Program3]
User1=12
User2=1
User3=1
User4=1

I hoop someone can help me out here

[PsaltyDS]

$Totaal = IniReadSection($sIniFile, $Naam)

For $i = 1 To $Totaal[0][0]

$Totaal = $Totaal[$i][1]

Next

You are overwriting the array with the value of a single element.

[GodlessSinner]

IniReadSection

[jchd]

Why do you use IniReadSection and IniWriteSection at all?

In all cases, all you need is much simpler:

$sIniFile = "log.ini"
$UserName = "user1"
$Naam = "Program1"

IniWrite($sIniFile, $Naam , $UserName , IniRead($sIniFile, $Naam, $UserName, 0) + 1)

[99ojo]

Hi,

@Edit: Because of post from jchd

In all cases, all you need is much simpler:

For sure......

$sIniFile = "log.ini"
$UserName = "user1"
$Naam = "Program1"

If Not FileExists($sIniFile) Then
    IniWrite($sIniFile, $Naam , $UserName , "1")
Else
    If IniRead($sIniFile, $Naam, $UserName, "") Then
        $Totaal = IniReadSection($sIniFile, $Naam)
        For $i = 1 To $Totaal[0][0]
            If $Totaal [$i] [0] = $username Then IniWrite ($sIniFile, $Naam, $username, $Totaal [$i] [1] + 1)
        Next
    Else
        IniWrite($sIniFile, $Naam , $UserName , "1")
    EndIf
EndIf
ShellExecute ("notepad.exe", @ScriptDir & "\log.ini")

;-))

Stefan

Goosh, Second shot:

$sIniFile = "log.ini"
$UserName = "user1"
$Naam = "Program1"

If Not FileExists($sIniFile) Then
    IniWrite($sIniFile, $Naam , $UserName , "1")
Else
    If IniRead($sIniFile, $Naam, $UserName, "") Then 
        $Totaal = IniRead($sIniFile, $Naam, $UserName, "")
        IniWrite ($sIniFile, $Naam, $username, $Totaal + 1)
    Else
        IniWrite($sIniFile, $Naam , $UserName , "1")
    EndIf
EndIf
ShellExecute ("notepad.exe", @ScriptDir & "\log.ini")

Edited March 26, 2010 by 99ojo

[jchd]

Geez, we might as well write a Cobol compiler in AutoIt and do it in Cobol. It's a one-liner, so why run circles around?

[99ojo]

Don't do it.

Too late, one glass of wine to much, missed the iniread (nice).

IniWrite($sIniFile, $Naam , $UserName , IniRead($sIniFile, $Naam, $UserName, 0) + 1)

Stefan

[mjkras]

Why do you use IniReadSection and IniWriteSection at all?

In all cases, all you need is much simpler:

$sIniFile = "log.ini"
$UserName = "user1"
$Naam = "Program1"

IniWrite($sIniFile, $Naam , $UserName , IniRead($sIniFile, $Naam, $UserName, 0) + 1)

Hi,

@Edit: Because of post from jchd

For sure......

$sIniFile = "log.ini"
$UserName = "user1"
$Naam = "Program1"

If Not FileExists($sIniFile) Then
    IniWrite($sIniFile, $Naam , $UserName , "1")
Else
    If IniRead($sIniFile, $Naam, $UserName, "") Then
        $Totaal = IniReadSection($sIniFile, $Naam)
        For $i = 1 To $Totaal[0][0]
            If $Totaal [$i] [0] = $username Then IniWrite ($sIniFile, $Naam, $username, $Totaal [$i] [1] + 1)
        Next
    Else
        IniWrite($sIniFile, $Naam , $UserName , "1")
    EndIf
EndIf
ShellExecute ("notepad.exe", @ScriptDir & "\log.ini")

;-))

Stefan

Goosh, Second shot:

$sIniFile = "log.ini"
$UserName = "user1"
$Naam = "Program1"

If Not FileExists($sIniFile) Then
    IniWrite($sIniFile, $Naam , $UserName , "1")
Else
    If IniRead($sIniFile, $Naam, $UserName, "") Then 
        $Totaal = IniRead($sIniFile, $Naam, $UserName, "")
        IniWrite ($sIniFile, $Naam, $username, $Totaal + 1)
    Else
        IniWrite($sIniFile, $Naam , $UserName , "1")
    EndIf
EndIf
ShellExecute ("notepad.exe", @ScriptDir & "\log.ini")

Whahahaha…

For weeks I’m trying to get this to work. I search the forum for answers and tried things.

Now I have three answers that work

I don’t know with is better but the results are the same.

I got much to learn

Thank’s “ jchd ” and “ 99ojo ” for the help

[99ojo]

Hi,

youre welcome, but give your hand to jchd, his solution is much better then mine, even the result might be the same.

Good night

Stefan