Discussion :

[gastoncs]

Bonjour,

j'ai un fichier texte dans lequel je dois afficher toutes les lignes situé entre un numéro choisis par l'utilisateur (bdd_op) et le mot (intervention) :

voici mon code, malheureusement ça ne fonctionne pas, rien ne s'affiche dans la textbox, le chemin du fichier et bon (car j'arrive affiche le contenu en fesant un for each line )

Code :

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

1
2
3
4
5
6
 
        For Each ligne As String In IO.File.ReadAllText("C:\Users\laurent\Documents\reception.txt")
            If TextBox1.Text.StartsWith(bdd_op) And TextBox1.Text.EndsWith("Intervention") Then
                TextBox1.Text = TextBox1.Text & ligne
            End If
        Next

si vous voyez une erreur ??

[StringBuilder]

Deux choses :
- Dans ton ForEAch, tu charges la variable "ligne", alors que dans ton If, tu testes la valeur de Textbox
- Je pense que tu n'as pas compris le fonctionnement de "EndsWith" et "StartsWith"

D'après ce que je comprends de ton énoncé, je ferais ça :
(PS : Mon code ne compile certainement pas, j'ai jamais fait de VB.NET de ma vie, que du VB6 et du C#)

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 resultat as string
dim i as integer
i = 0
 
For Each ligne As String In IO.File.ReadAllText("C:\Users\laurent\Documents\reception.txt")
            i = i + 1
            if i < bdd_op then
                      continue
            end if
 
            If ligne.IndexOf("Intervention") then
                      resultat = resultat & ligne.substr(ligne, 0, ligne.IndexOf("Intervention"))
                       break
            else
                      resultat = resultat & ligne & vbcrlf
            End If
Next

[asmduty]

Bonjour,

j'ai un fichier texte dans lequel je dois afficher toutes les lignes situé entre un numéro choisis par l'utilisateur (bdd_op) et le mot (intervention) :

voici mon code, malheureusement ça ne fonctionne pas, rien ne s'affiche dans la textbox, le chemin du fichier et bon (car j'arrive affiche le contenu en fesant un for each line )

Code :

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

1
2
3
4
5
6
 
        For Each ligne As String In IO.File.ReadAllText("C:\Users\laurent\Documents\reception.txt")
            If TextBox1.Text.StartsWith(bdd_op) And TextBox1.Text.EndsWith("Intervention") Then
                TextBox1.Text = TextBox1.Text & ligne
            End If
        Next

si vous voyez une erreur ??

Bonjour,

deux choses :

- Tu n'affectes pas la ligne à ta textbox, alors que tu regardes dans la textbox pour voir si le numéro est le mot sont présents
- Si tu affectes la ligne à la textbox ton code fonctionnera seulement dans le cas ou ta ligne commence pas le numéro (ça je suppose que c'est OK) et finit par "Intervention", là je suppose que ce n'est pas ce que tu veux, je pense que tu veux plutôt que la ligne contienne (contains) "Intervention" (attention à la casse aussi)

StringBuilder en effet topn code ne passera pas :

If ligne.IndexOf("Intervention") then retourne l'index, si "Intervention" n'est pas présent ça plante, mais tu ne retournera jamais un booléen.
Break dans le if ?
Continue dans le if ?

[Sehnsucht]

Bonjour,

En utilisant les méthodes d'extension tu peux tenter quelque chose comme ceci:
(Note, la ligne contenant intervention ne sera pas récupérée, même s'il y a autre chose avant sur cette ligne)

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
 
TextBox1.Text =
    IO.File.ReadAllLines("C:\Users\laurent\Documents\reception.txt").
    Skip(bdd_op).
    TakeWhile(Function(line) Not line.Contains("intervention")).
    Aggregate(New Text.StringBuilder,
              Function(builder, line) builder.AppendLine(line)).
    ToString
 
'Input de test:
'line 0
'line 1
'line 2
'line 3
'line intervention
'line 5
'line 6
 
'Output de Test (bdd_op = 1):
'line 1
'line 2
'line 3

À comprendre, adapter, et sécuriser (si le fichier n'existe pas, si bdd_op est négatif par exemples)

Cordialement !

[StringBuilder]

Bonjour,

deux choses :

- Tu n'affectes pas la ligne à ta textbox, alors que tu regardes dans la textbox pour voir si le numéro est le mot sont présents
- Si tu affectes la ligne à la textbox ton code fonctionnera seulement dans le cas ou ta ligne commence pas le numéro (ça je suppose que c'est OK) et finit par "Intervention", là je suppose que ce n'est pas ce que tu veux, je pense que tu veux plutôt que la ligne contienne (contains) "Intervention" (attention à la casse aussi)

StringBuilder en effet topn code ne passera pas :

If ligne.IndexOf("Intervention") then retourne l'index, si "Intervention" n'est pas présent ça plante, mais tu ne retournera jamais un booléen.
Break dans le if ?
Continue dans le if ?

En effet, il manque un ">= 0" après le indexof()

Pour le break et le continue... on fait comment pour continuer ou sortir d'un for selon une condition si on peut pas les mettre dans un if ???

[asmduty]

En effet, il manque un ">= 0" après le indexof()

Pour le break et le continue... on fait comment pour continuer ou sortir d'un for selon une condition si on peut pas les mettre dans un if ???

Ah OK, donc pour le "index of" il manque le control de savoir si il est dans la chaine avant.
Pour sortir du for on fait "Exit For"
Pour passer à une nouvelle occurence on utilise peut-être continue, je n'ai pas encore eu l'occasion de le faire, j'ai plutôt l'habitude d'enfermer mon traitement dans le if comme ça :

Code :

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

1
2
3
4
5
6
7
8
if i = bdd_op then
 
If ligne.contains("Intervention") then
     resultat = resultat & ligne.substr(ligne, 0, ligne.IndexOf("Intervention"))
     exit for
End If
 
end if