[R] Problème avec IniReadSection

[Gamarah]

Bonjour !
Je vous expose direct mon problème : ->
J'ai codé un petit utilitaire mais quelque chose lui posait problème, j'ai réussi à trouver : IniReadSection()

Il réagit comme si le fichier .ini n'existait pas (il me renvoi 1)

Pour en avoir le cœur net j'ai exécuté ceci :

Code : Tout sélectionner

IniWriteSection(@ScriptDir & "\toto.ini", "Coucou", "Toto regarde Titi...!")
If Not FileExists(@ScriptDir & "\toto.ini") Then Msgbox(0, "", "Fichier introuvable.")
$Txt = IniReadSection(@ScriptDir & "\toto.ini", "Coucou")
If @error Then Msgbox(0, "", @error)
Msgbox(0, "", $Txt)

Idem, la | Msgbox(0, "", @error) | me renvoi 1. Pourtant le ficher existe bien car il a été créé juste au dessus et | Msgbox(0, "", "Fichier introuvable.") | ne s'affiche pas...


Help Me Please !!!

[pop45]

Curiositer: Il y a quoi dans ton .ini

[Gamarah]

J'ai pas bien compris ta question...

Après exécution de IniWriteSection(@ScriptDir & "\toto.ini", "Coucou", "Toto regarde Titi...!")

Dans toto.ini il y a :

[Coucou]
Toto regarde Titi...!


C'était ça la question ?

[jl56]

Bonjour

en fait la section de ton ini est vide, tu dois avoir une ou des "clé=valeur"
regarde dans l'aide
inireadsection te retourne un tableau a 2d la premiere ligne te donne la taille du tableau
dans l'exemple ci dessous $Txt[0][0]

Code : Tout sélectionner

IniWriteSection(@ScriptDir & "\toto.ini", "Coucou", "Toto= regarde Titi...!"& @LF &"Titi= regarde Tata...!"& @LF &"Tutu= regarde Toto...!")
If Not FileExists(@ScriptDir & "\toto.ini") Then Msgbox(0, "", "Fichier introuvable.")
$Txt = IniReadSection(@ScriptDir & "\toto.ini", "Coucou")
If @error Then
    MsgBox(4096, "", "erreur de fichier ini")
Else
    For $i = 1 To $Txt[0][0]
        MsgBox(4096, "", "Key: " & $Txt[$i][0] & @CRLF & "Value: " & $Txt[$i][1])
    Next
EndIf

A+ JL56

[Gamarah]

Merci !
J'ai pas tout compris mais je met en résolu. Si j'ai un autre problème je rouvrirais le sujet...