Programme permettant de rechercher un chaine de longueur quelconque ( 1 à ... ) dans un fichier texte(*.txt,*.ini,*.log,*.inf). Il permet préalablement de choisir une couleur et/ou une police pour mettre en évidence la chaine recherchée. Ce fichier texte peut être édité ou être ouvert via une boîte de dialogue. Merci pour vos critiques.
Source / Exemple :
Public strTexte, strChaine As System.String
Private Sub mnuFichierRechercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFichierRechercher.Click
Dim i, j As System.Int32
strTexte = rctTexte.Text
strChaine = txtLettre.Text
For i = 0 To strTexte.Length - strChaine.Length Step 1
If strTexte.Substring(i, strChaine.Length) = strChaine Then
j += 1
rctTexte.SelectionStart = i
rctTexte.SelectionLength = strChaine.Length
rctTexte.SelectionColor = clrChaine.Color
rctTexte.SelectionFont = fntChaine.Font
End If
Next
lblMessage.Text = j
End Sub
Private Sub mnuFichierReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFichierReset.Click
Dim i, j As System.Int32
strTexte = rctTexte.Text
strChaine = txtLettre.Text
For i = 0 To strTexte.Length - strChaine.Length Step 1
If strTexte.Substring(i, strChaine.Length) = strChaine Then
j += 1
rctTexte.SelectionStart = i
rctTexte.SelectionLength = strChaine.Length
rctTexte.SelectionColor = Color.Black
rctTexte.SelectionFont = New Font("Verdana", 8, FontStyle.Regular)
End If
Next
lblMessage.Text = ""
txtLettre.Text = ""
txtLettre.Focus()
End Sub
Private Sub mnuFichierOuvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFichierOuvrir.Click
Dim strLineofText, strAllText As System.String
ofdFichier.Filter = "Fichiers texte(*.txt)|*.txt|Fichiers ini(*.ini)|*.ini|Fichiers inf(*.inf)|*.inf|Fichiers log(*.log)|*.log"
If ofdFichier.ShowDialog = DialogResult.OK Then
FileOpen(1, ofdFichier.FileName, OpenMode.Input)
Do Until EOF(1)
strLineofText = LineInput(1)
strAllText &= strLineofText & vbCrLf
Loop
rctTexte.Text = strAllText
strTexte = rctTexte.Text
FileClose(1)
End If
txtLettre.Focus()
End Sub
Private Sub mnuOptionsCouleur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOptionsCouleur.Click
clrChaine.ShowDialog()
End Sub
Private Sub mnuOptionsPolice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOptionsPolice.Click
fntChaine.ShowDialog()
End Sub
Private Sub mnuFichierEffacer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFichierEffacer.Click
rctTexte.Text = ""
txtLettre.Text = ""
End Sub
Private Sub mnuFichierQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFichierQuitter.Click
Me.Close()
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.