Recherche Texte et le supprimer dans un fichier *.txt

xabi62 Messages postés 84 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 19 juillet 2006 - 24 juin 2002 à 13:04
fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 - 24 juin 2002 à 13:17
Voila, je veux trouver dans un fichier texte (montexte.txt) une chaine de caractere qui sera dans une textbox (machaine).

Je veux ensuite supprimer cette chaine (machaine)si elle existe dans le fichier (montexte.txt).....

A+

XaV

1 réponse

fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 3
24 juin 2002 à 13:17
Dim StrFiche As String
Dim Posi As Long
'Lecture du fichier dans un variable
Open TonFichier For Binary Access Read As #1
StrFiche = Space(LOF(1))
Get #1, , StrFiche
Close #1
'Recherche si le texte existe
If InStr(1, StrFiche, LaChaineQueTuCherches, vbstringcompare) Then
' Suppression du texte
Posi = InStr(1, StrFiche, LaChaineQueTuCherches, vbTextCompare)
If Posi > 1 Then
StrFiche = Left(StrFiche, Posi - 1) & Mid(StrFiche, Posi + Len(StrFiche) + 1)
Else
StrFiche = Mid(StrFiche, Len(StrFiche) + 1)
End If
'resauvegarde du fichier
Open TonFichier For Binary Access Write As #1
Put #1, , StrFiche
Close #1
End If

<center>[mailto:fredlynx@codes-sources.com ]
[csbar.aspx La CSBar Vous Connaissez ..?]</center>
0
Rejoignez-nous