[R] Compter le nombre de key d'une section. (fichier .ini)

[matcarto]

Bonjour,

Ma question est toute simple mais je n'arrive pourtant pas à trouver la réponse.

J'aimerais compter le nombre de clé se trouvant dans une section d'un fichier .ini.

Exemple dans un fichier .ini :

Code : Tout sélectionner

[section_test]
clé1=0
clé2=2
clé3=8
clé4=0
 

J'aimerais donc, dans cet exemple, obtenir la valeur 4. (car 4 clés dans la section [section_test]).

Est-ce que quelqu'un pourrait m'aider ?

[fred39]

Bonjour,
je pense qu'il faut que vous utilisiez la fonction IniReadSection
l'aide dit :
"The number of elements returned will be in $result[0][0]. "

donc un code dans ce style devrait vous convenir:

Code : Tout sélectionner

$var = IniReadSection("C:\Temp\myfile.ini", "section_test")
MsgBox(0,@ScriptName,$var[0][0])

 

bonne journée

[matcarto]

Merci beaucoup ! Ça tient en une ligne en fait. ^^

Sujet résolu.

[matcarto]

En fait, ça ne marche pas. Enfin, pas dans mon script.

SciTE me dit : Subscript used with non-Array variable.

Voici mon code :

Code : Tout sélectionner

$List = GUICtrlCreateListView("Prénom", 50, 60, 300, 420) ;Création de la liste
GUICtrlSendMsg($List, $LVM_SETCOLUMNWIDTH, 0, 296)

$file = FileOpen("Liste.txt", 0)
Dim $LineTab[1] ; on crée un tableau pour stocker les lignes
$LineNb = 0
While 1 ; donc on fait une boucle
   $line = FileReadLine($file) ; ou on lit une ligne (une ligne =  un prénom)
   If @error = -1 Then ExitLoop ; si y a une erreur c'est qu'on est a la fin du fichier
   If $line <> "" Then ;Si la ligne existe alors
       $sectionprenom = IniReadSection("parametres.ini", $line) ;On lit le nombre de clés présentes dans la section correspondant au prénom

       If $sectionprenom[0][0] <> 5 Then ,Si il n'y a pas 5 clés dans la section du prénom alors
      $LineNb = $LineNb + 1 ; on incrémente le compteur
      ReDim $LineTab[$LineNb + 1] ; comme on ne sait pas combien il y a de lignes, on redimentionne le tableau ou on les stocke
      $LineTab[$LineNb] = GUICtrlCreateListViewItem($line, $List) ; et on injecte la ligne dans la liste
      EndIf
   EndIf
WEnd

Des idées ?

[PandiPanda]

ca serai pas plus simple de compter le nombre de ligne(_FileCountLines($sFilePath)), de créer un tableau grâce au chiffre retourné et de faire une boucle for, plutot qu'un while?

Ou le plus simple serai d'utiliser cette fonction ci ... _FileReadToArray()

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>

Dim $array
global $path=""
_FileReadToArray($path,$array)
_ArrayDisplay($array)

[mikell]

Des idées ?

Plein
Si l'erreur concerne l'array $sectionprenom ça peut venir d'une erreur de lecture : le titre du ini, ou alors le fait que dans les lignes du Liste.txt il y a des espaces
ça vaudrait le coup d'essayer ça

Code : Tout sélectionner

   If $line <> "" Then 
      $line = StringStripWS($line)
      $sectionprenom = IniReadSection("parametres.ini", $line)

[matcarto]

SciTE me dit : Subscript used with non-Array variable.

ça concerne quelle array ?

Ça concerne cette ligne :

Code : Tout sélectionner

If $sectionprenom[0][0] <> 5 Then

@PandiPanda : Désolé mais je débute tout juste en AutoIt, est-ce que tu pourrais développer un peu plus...

[mikell]

vous posteriez pas votre ini qu'on lui voie un peu le dedans ?

[matcarto]

Oui, j'aurais du le faire dès le début.

Code :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <ListViewConstants.au3>
#NoTrayIcon

#Region ### START Koda GUI section ###
Global $Form1 = GUICreate("Gestionnaire", 819, 520, 192, 124)
Global $Tab = GUICtrlCreateTab(8, 8, 802, 504)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")

Global $tab1 = GUICtrlCreateTabItem("Test") ;Premier Onglet
$List = GUICtrlCreateListView("Prénom", 50, 60, 300, 380) ;Création de la liste
GUICtrlSendMsg($List, $LVM_SETCOLUMNWIDTH, 0, 768)
$file = FileOpen("Liste.txt", 0)
Dim $LineTab[1] ; on crée un tableau pour stocker les lignes
$LineNb = 0
While 1 ; donc on fait une boucle
   $line = FileReadLine($file) ; ou on lit une ligne
   If @error = -1 Then ExitLoop ; si y a une erreur c'est qu'on est a la fin du fichier
   If $line <> "" Then
    $prenomini = IniReadSection("parametres.ini", $line)
    If $prenomini[0][0] <> 5 Then
      $LineNb = $LineNb + 1 ; on incrémente le compteur
      ReDim $LineTab[$LineNb + 1] ; comme on ne sait pas combien il y a de lignes, on redimentionne le tableau ou on les stocke
      $LineTab[$LineNb] = GUICtrlCreateListViewItem($line, $List) ; et on injecte la ligne dans la liste
      EndIf
   EndIf
WEnd

Global $Label14 = GUICtrlCreateLabel("Elève :", 384, 60, 52, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Tahoma")
Global $Label15 = GUICtrlCreateLabel("", 464, 61, 162, 22) ;Création du label prenant le nom de l'élève
GUICtrlSetFont(-1, 12, 400, 0, "Tahoma")

GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

List() ;Apelle de la fonction détectant la selection d'un item de la liste

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


Func List()
Local $selection = 0
Local $prenomliste

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch

$selection = GUICtrlRead($List) ;On lit l'item sélectionné
If $selection <> 0 Then ;On vérifie qu'il ait bien sélection
    If $selection <> $prenomliste Then ;On regarde si la selection a changée (pour ne pas faire clignoter le label)
     $index = ControlListView("Gestionnaire", "", $List, "GetSelected")
     $item = ControlListView("Gestionnaire", "", $List, "GetText", $index)
     GUICtrlSetData($Label15,$item) ;On applique la valeur de l'item au label15
    $prenomliste = $selection ;On met a jour la valeur de la selection précédente
    EndIf
EndIf
WEnd
Endfunc
 

Je joins les fichiers liste.txt et parametres.ini

[mikell]

Bon voilà, c'était tout bête (comme souvent)

Code : Tout sélectionner

   If $line <> "" Then
    $prenomini = IniReadSection(@scriptdir & "\parametres.ini", $line)
    If [color=#FF0000]not @error AND[/color] $prenomini[0][0] <> 5 Then    ; [color=#FF0000]<= vérifie si la section correspondant à la ligne existe[/color]
      $LineNb = $LineNb + 1 ; on incrémente le compteur
      ReDim $LineTab[$LineNb + 1] ; comme on ne sait pas combien il y a de lignes, on redimentionne le tableau ou on les stocke
      $LineTab[$LineNb] = GUICtrlCreateListViewItem($line, $List) ; et on injecte la ligne dans la liste
      EndIf
   EndIf

PS : quand vous postez de grands codes mettez un spoiler

[matcarto]

Merci !!

Et comment faire pour que les prénoms qui n'ont pas de section apparaissent aussi dans la liste ?

En fait, je voudrais que tous les prénoms apparaissent sauf ceux qui ont 5 clés dans leur section.

[mikell]

Bigre ça n'arrête pas

Et comment faire pour que les prénoms qui n'ont pas de section apparaissent aussi dans la liste ?

If @error Then ...

... sauf ceux qui ont 5 clés dans leur section.

If not @error AND $prenomini[0][0] <> 5 Then ...

ce qui en compact donne :

Code : Tout sélectionner

  If $line <> "" Then
    $prenomini = IniReadSection("parametres.ini", $line)
   [color=#FF0000] If @error OR (not @error AND $prenomini[0][0] <> 5) Then [/color]
      $LineNb = $LineNb + 1 ; on incrémente le compteur
      ReDim $LineTab[$LineNb + 1] ; comme on ne sait pas combien il y a de lignes, on redimentionne le tableau ou on les stocke
      $LineTab[$LineNb] = GUICtrlCreateListViewItem($line, $List) ; et on injecte la ligne dans la liste
   EndIf
  EndIf

[matcarto]

Wahou !! Impressionnant. Ça parait tellement simple en plus.

Merci beaucoup, sujet résolu.