Recherche Texte et le supprimer dans un fichier *.txt

Signaler
Messages postés
84
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
19 juillet 2006
-
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
-
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

Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010

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