Recherche Texte et le supprimer dans un fichier *.txt
xabi62
Messages postés84Date d'inscriptionjeudi 31 janvier 2002StatutMembreDernière intervention19 juillet 2006
-
24 juin 2002 à 13:04
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 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
A voir également:
Recherche Texte et le supprimer dans un fichier *.txt
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 20103 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>