Discussion :

[pascb423]

Bonjour, j'ai le code suivant ou j'aimerai afficher les valeurs de string qu'il y a dans 2 fichiers mais ça ne marche pas, sa affiche pas juste il m'affiche ce qu'il y a dans le fichier

Code :

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

1
2
3
4
5
6
7
8
Dim line1 As List(Of String) = System.IO.File.ReadAllLines(".\ateliers\élève n°1.txt").ToList
        For i As Integer = 0 To line1.Count - 1
            Dim line2 As List(Of String) = System.IO.File.ReadAllLines(".\machines\" & line1(i) & ".txt").ToList
            For s As Integer = 0 To line2.Count - 1
                MsgBox(String.Join("élève n°1", "; ", line1, "; ", line2))
                'DeleteKey(".\entretien.ini", "Prochain entretien", String.Join("élève n°1", "; ", line1, "; ", line2))
            Next
        Next

Si je fait simplement msgbox(line1 & line2) il aime pas à cause du list(of string)

vous auriez une solution? merci

[pascb423]

voici un autre code qui fonctionne

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
Dim fichier1 As String = (".\ateliers\" & mot & ".txt")
                Dim monStreamReader1 As New StreamReader(fichier1, System.Text.Encoding.UTF7) 'Stream pour la lecture
                Dim ligne1 As String ' Variable contenant le texte de la ligne
                While Not monStreamReader1.EndOfStream
                    ligne1 = monStreamReader1.ReadLine
                    Dim fichier2 As String = (".\machines\" & ligne1 & ".txt")
                    Dim monStreamReader2 As New StreamReader(fichier2, System.Text.Encoding.UTF7) 'Stream pour la lecture
                    Dim ligne2 As String ' Variable contenant le texte de la ligne
                    While Not monStreamReader2.EndOfStream
                        ligne2 = monStreamReader2.ReadLine
                        'MsgBox(mot & " " & ligne1 & " " & ligne2)
                        DeleteKey(".\entretien.ini", "Periodicité d'entretien", mot & "; " & ligne1 & "; " & ligne2)
                        DeleteKey(".\entretien.ini", "Prochain entretien", mot & "; " & ligne1 & "; " & ligne2)
                        DeleteKey(".\entretien.ini", "Date du dernier entretien", mot & "; " & ligne1 & "; " & ligne2)
                    End While
                    monStreamReader2.Close()
                End While
                monStreamReader1.Close()

[Phil Rob]

Bonjour,

Puisque tu as un code (bien structuré et bien lisible) qui fonctionne, pourquoi en veux-tu un autre ?
Je suis sûr qu'avec ton code qui fonctionne, MsgBox(mot & " " & ligne1 & " " & ligne2) fonctionne aussi, c'est-à-dire que tu disposes bien de 2 chaînes ligne1 et ligne2, desquelles tu fais ce que tu veux.

...