Discussion :

[Faufoll]

Bonjour,

Je développe un programme pour ma boîte sur le logiciel Visual Basic 2008 Express.

Je bloque sur un problème de détection du nombre de ligne dans un fichier ini.

Mon fichier Ini s'appelle Cassio.ini, il contient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
[NomEmployésService1]
Employé1=xxxxxxxx
Employé2=xxxxxxxx
Employé3=xxxxxxxx
Employé4=xxxxxxxx
Employé5=xxxxxxxx
Employé6=xxxxxxxx
Employé7=xxxxxxxx
Employé8=xxxxxxxx
 
[NomEmployésService2]
Employé1=xxxxxxxx
Employé2=xxxxxxxx
Employé3=xxxxxxxx
Employé4=xxxxxxxx
Employé5=xxxxxxxx
Employé6=xxxxxxxx
Employé7=xxxxxxxx
Employé8=xxxxxxxx
 
[FichierExcel]
Stat_Flux=c:\xxxxxxx.xls
Planning_Congés=c:\xxxxxxx.xls

Le but étant d'aller chercher les lignes du tableau de congé du service correspondant au nom des employés du fichier ini.
La connexion avec le fichier Excel est impeccable, j'ai fais l'incrémentation des colonnes, je detecte tout ce qu'il faut dans les cellules.

Il ne me reste plus qu'a obtenir le nombre d'employés du service pour effectuer quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
For i = 0 To 120
     For j = 1 To NbrSection
            If (x2WorkSheet.Cells("B" & i).Value = LireINI("[NomEmployésService1]", "Employé" & j)) Then
                'Ma boucle de test sur les cellules de la ligne 
            End If
      Next j
Next i
For i = 0 To 120
      For j = 1 To NbrSection
 
            If (x2WorkSheet.Cells("B" & i).Value = LireINI("[NomEmployésService2]", "Employé" & j)) Then
                'Ma boucle de test sur les cellules de la ligne 
            End If
      Next j
Next i

Mais avec

Et la je bloque.


Pour l'instant mon module contient la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Module MyModule
 
    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As System.Text.StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
 
    Function LireINI(ByVal Entete As String, ByVal Variable As String) As String
        Dim file = Application.StartupPath & "Cassio.ini"
        Dim Deff As String = ""
        Try
            Dim StrBuild As New System.Text.StringBuilder(90)
            Dim Ret As Integer = GetPrivateProfileString(Entete, Variable, Deff, StrBuild, 90, file)
            Return StrBuild.ToString
        Catch
            Return Deff
        End Try
    End Function
 
    Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer

J'arrive donc a lire une valeur d'une section mais aucune idée pour detecter le nombre de ligne d'une section.
Ce qui me permettrait de chercher des lignes Excel contenant chaque nom d'employé d'un service.

Un algo de ce que je voudrait faire serait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Debut
 
    Lire Fichier ini
    NbrLigne = 0
    Pour valeur[1] de Section1 jusqua valeur[max] de Section 1 Faire
         NbrLigne += 1
    FPour
Fin

J'ai eu beau chercher sur les tutos et autres, très peu parle de fichier ini et encore moins du problème en question.

Pouvez-vous m'aider ?

[StringBuilder]

Plutôt que de passer par les API de gestion de fichiers INI, je me contenterais de lire le fichier INI comme un simple fichier texte.

Dans une première boucle de ReadLine(), tu recherches ta section.

Ensuite, tu boucle de nouveau avec des ReadLine()
=> Si la ligne.Trim() ne commence pas par "#" et est plus longue que 0, alors c'est une entrée, donc tu incrémentes ton compteur.
=> Accessoirement, en même temps tu peux faire un Split('=')[1] sur la ligne pour récupérer le nom de ton employé.

Et c'est terminé
(et du coup, t'as pas besoin de savoir combien il y a de lignes dans ta section )

[Faufoll]

Déjà, merci pour ta réponse rapide StringBuilder !

J'ai hésité à faire quelque chose comme ça, ce que je faisait pour un précédent programme mais ça ne plait pas à mon chef, qui veut que j'utilise les fonctions de détection des sections des fichier INI...

Pourquoi faire simple...

Sinon j'essaierais de le passer discrétement en disant que j'y suis arrivé et en lui présentant uniquement le programme fini, mais je t'avouerais que ça me plaît moyen également et j'aime bien avoir quelque chose de propre.

Sinon autant tout mettre dans un fichier .txt ou même .doc carrement

[StringBuilder]

Dit à ton chef que les fichiers INI, c'était à la mode à l'époque de Windows 16 bits.

Qu'avec Windows 32 bits, ça a été remplacé par la base de registres.

Et qu'avec l'avènement du XML, ça a été définitivement remplacé par des fichiers XML, plus facilement manipulables.

Bref, je suis même étonné qu'on n'aie pas encore de warning à la compilation quant à une prochaine dépréciation des API de gestion de fichiers INI... C'est juste bon à mettre dans les musées à côté du Goupil (ça date de la même époque...)

[tomlev]

Sinon pour lire des fichiers INI, tu peux utiliser la classe IniFile de Dvp.NET

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
var iniFile = new IniFile(fileName);
foreach(var sectionName in iniFile.Sections.Keys)
{
    Console.WriteLine("Section: {0}", sectionName);
    foreach(var entry in iniFile.Sections[sectionName])
    {
        Console.WriteLine("{0} = {1}", entry.Key, entry.Value);
    }
}

[Faufoll]

@StringBuilder : Oui mais les banques ne sont pas connu pour la jeunesse de leur SI mais plutot pour l'avoir adaptés aux nouvelles technologies.
Concernant les warnings, je croise les doigts alors

@tomlev : Ok je teste cette après-midi et je fais un retour ici !

[tomlev]

Bref, je suis même étonné qu'on n'aie pas encore de warning à la compilation quant à une prochaine dépréciation des API de gestion de fichiers INI...

Bah le compilo C# n'est pas supposé avoir connaissance des API natives de Windows... donc ça m'étonnerait qu'on voit un jour ce genre de warning

[StringBuilder]

Bah le compilo C# n'est pas supposé avoir connaissance des API natives de Windows... donc ça m'étonnerait qu'on voit un jour ce genre de warning

Oui, mais rien ne nous permet d'affirmer que dans la prochaine version de Windows, ces API existerons encore.

Donc certes, pas de Warning, mais ça compilera/exécutera plus du tout, c'est guère mieux