Remplacer du texte dans un fichier

Question

Salut!
Je voudrais supprimer une chaîne de caractères "&nsbp;" dans mon fichier texte, j'en ai un paquet dans mon fichier!
Merci d'avance à vous!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bonne journée
 :)

cs_zpiboo · Answer

TU vas dans le bloc note et tu fais remplacer &nbsp par rien . et c bon 
pas besoin de programmer

tahbre · Answer

Sisii parce que il faut ke cela se fasse automatiquement pour mon application!!!!!!!!!!!
Merci quand même 
 :approve)

cs_rene38 · Answer

Dim i As Integer, Texte As String, carac As String * 1
Open "CheminFichier" For Binary Access Read As #1
For i = 1 To LOF(1)
    Get 1, i, carac
    Texte = Texte & carac
Next i
Close
Do
    i = InStr(Texte, "&nsbp;")
    If i <> 0 Then
        Texte = Left(Texte, i - 1) & Mid(Texte, i + 6)
    Else
        Exit Do
    End If
Loop
Kill "CheminFichier"
Open "CheminFichier" For Binary Access Write As #1
For i = 1 To Len(Texte)
    Put 1, i, Mid(Texte, i, 1)
Next i
Close

tahbre · Answer

merci beaucoup l'isère,

DeAtHCrAsH · Answer

Salut,
Si t'as VB6 utilise plutot la fonction replace...
Ca sera dix fois plus simple et plus rapide...
Tu ouvres ton fichier en Input tu aplique la fonction replace et tu sauvegardes...

Exemple:

Const chemin = "c:\...\MonFichier.txt"
Dim fichier as string
Dim ligne as string

Open chemin for Input as #1
    While NOT EOF(1)
         Input #1, ligne
         fichier = fichier & ligne
     Wend
Close #1

fichier = replace(fichier, "&nsbp", vbnullstring)

Kill chemin

Open chemin for Output as #1
      Put #1, fichier
Close #1

Voili voilou...
C'est quand meme plus simple et surtout plus court...
J'espere t'avoir aider au mieux....
Si t'as d'autres questions n'hésites pas...
A++ et bonne prog...

DeAtH_-_CrAsH

thiosyiasar · Answer

Oui, si tu veux aussi tu peux essayer les expressions régulières (peut être plus rapide)
Regarde le source et défini ta chaine de recherche
(voir doc.txt dans le zip) :
http://www.vbfrance.com/article.aspx?Val=5318
Bonne prog
ps : change aussi le "" par VbNullString (c'est plus rapide).

tahbre · Answer

Oui, merci à vous pour tous ces bons conseils.
L'ennui c'est que je n'ai que vb 5 qui n'a pas de fonction replace.
Merci quand même à vous tous.
Jord

thiosyiasar · Answer

Justement avec VB5, tu dois pouvoir créer une référence vers Vbscript.dll, mais il faut que tu la supprimer pour que tu puisse la recréer en passant par parcourrir
:)

tahbre · Answer

ok

DeAtHCrAsH · Answer

Comment tu sais que je suis de l'Isere ??? lol

Si tu veux je peux te faire un ptit bout de code te permettant de supprimer la chaine de charactere en question dans tes fichiers... 
Ya aussi d'autres manieres tout aussi simple mais peut etre plus longue...

DeAtH_-_CrAsH

tahbre · Answer

feeling grenoblois
Finalement j'ai fini par ça , ça marche nickel, c'est pas de moi, mais bon je l'ai compris c l'essentiel.



 Dim fn_in As Integer
   Dim fn_out As Integer
   Dim s As String
   Dim loc As Long
    
   fn_in = FreeFile
   Open "C:\DevStudio\VB\sp1.txt" For Input As fn_in
    
   fn_out = FreeFile
   Open "C:\DevStudio\VB\sp0.txt" For Output As fn_out
    
   Do While Not EOF(fn_in)
      Input #fn_in, s
           loc = InStr(1, s, " ")
      Do While loc > 0
         If loc = 1 Then
            s = Mid(s, 7)
         Else
            s = Mid(s, 1, loc - 1) & Mid(s, loc + 6)
         End If
         loc = InStr(1, s, " ")
      Loop
      Print #fn_out, s
   Loop
    
   Close fn_in
   Close fn_out

ketchups · Answer

J'essaye le code mais j'ai un petit soucis il ne reconnait pas la commande open ...
et ce que quelqu'un aurait une explication?

Remplacer du texte dans un fichier

12 réponses

Discussions similaires