Rechercher et afficher une/des lignes de texte
minb2215
Messages postés
19
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
12 juin 2008
-
27 avril 2008 à 17:29
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 28 avril 2008 à 08:30
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 28 avril 2008 à 08:30
A voir également:
- Rechercher et afficher une/des lignes de texte
- Afficher un tableau php en html - Conseils pratiques -PHP
- Afficher les colonnes d'une table sql ✓ - Forum SQL
- Souligner texte illustrator - Forum Graphisme/design
- Comment ajouter une zone de texte sur canva ✓ - Forum Delphi / Pascal
- Vba commenter plusieurs lignes ✓ - Forum Visual Basic
1 réponse
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
28 avril 2008 à 08:30
28 avril 2008 à 08:30
Salut,
Le mieux (je pense) si tu ne doit qu'y effectuer que des recherches, est de charger un bonne fois pour toute ton fichier dans un tableau.
Puis de rechercher dans ce tableau
Je ne suis pas trop habitué a .NET alors il y a surement plus "pro" mais voici une petite idée à développer.
Private _contenu As String()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
_contenu = File.ReadAllLines("C:\Ex.txt", System.Text.Encoding.Default)
End Sub<hr />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String
Dim retour As String
For Each s In _contenu
'Casse sensitive
'If s.Contains(TextBox1.Text) Then
'Pas Casse Sensitive
If s.ToUpper.Contains(TextBox1.Text.ToUpper) Then
retour = String.Concat(retour, s & vbNewLine)
End If
Next
If retour <> String.Empty Then MessageBox.Show(retour)
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i?n
Pensez: Réponse acceptée
Le mieux (je pense) si tu ne doit qu'y effectuer que des recherches, est de charger un bonne fois pour toute ton fichier dans un tableau.
Puis de rechercher dans ce tableau
Je ne suis pas trop habitué a .NET alors il y a surement plus "pro" mais voici une petite idée à développer.
Private _contenu As String()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
_contenu = File.ReadAllLines("C:\Ex.txt", System.Text.Encoding.Default)
End Sub<hr />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String
Dim retour As String
For Each s In _contenu
'Casse sensitive
'If s.Contains(TextBox1.Text) Then
'Pas Casse Sensitive
If s.ToUpper.Contains(TextBox1.Text.ToUpper) Then
retour = String.Concat(retour, s & vbNewLine)
End If
Next
If retour <> String.Empty Then MessageBox.Show(retour)
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i?n
Pensez: Réponse acceptée
