Remplacer une chaine de caractere en vbs

Question

Remplacer une chaine de caractere en vbs

Signaler

cs_gaps

Messages postés: 3
Date d'inscription: vendredi 10 septembre 2004
Statut: Membre
Dernière intervention: 17 février 2006

- 15 nov. 2004 à 17:32
cs_CanisLupus

Messages postés: 3757
Date d'inscription: mardi 23 septembre 2003
Statut: Modérateur
Dernière intervention: 13 mars 2006

- 15 nov. 2004 à 19:52

bonjour,

tout ou presque est dans le sujet !!

J voudrais pouvoir ouvrir un fichier texte, rechercher un mot à l'interieur de ce fichier et le remplacer.

Comme je ne sais pas du tout comment faire, si vous avez un exemple cela m'intéresse

merci

Afficher la suite

A voir également:

Vbs replace
Replace vbs - Meilleures réponses
Visual basic replace - Meilleures réponses
Comment remplacer un caractere par un autre dans une chaine de caractere ? - Forum - Visual Basic
Visual Basic / VB.NET : Alternative à la function vba ou vb replace (jusqu'à 10 fois - Guide
Remplacement de caractères ✓ - Forum - VB.NET
En vbs, est-il possible de modifier le contenu d'un fichier Word ✓ - Forum - Visual Basic
Chercher Remplacer dans WORD par script VBS ✓ - Forum - Visual Basic 6

2 réponses

Posez votre question

cs_DARKSIDIOUS · Answer 1 · 2004-11-15T18:06:31+0100

Réponse 1 / 2

cs_DARKSIDIOUS

Messages postés: 15814
Date d'inscription: jeudi 8 août 2002
Statut: Modérateur
Dernière intervention: 4 mars 2013

115
15 nov. 2004 à 18:06

Voir les nombreuses sources de ce site qui parle d'ouverture de fichier...
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_CanisLupus · Answer 2 · 2004-11-15T19:52:57+0100

Réponse 2 / 2

cs_CanisLupus

Messages postés: 3757
Date d'inscription: mardi 23 septembre 2003
Statut: Modérateur
Dernière intervention: 13 mars 2006

16
15 nov. 2004 à 19:52

Déjà vu, mais bon, pour la nième fois :

Private Sub Command1_Click()
Dim NumFic As Integer
Dim s As String
NumFic = FreeFile
Open "c:\temp\essai.txt" For Input As #NumFic
s = Input(LOF(NumFic), #NumFic)
Close
s = Replace(s, "toto", "truc")
Open "c:\temp\essai.txt" For Output As #NumFic
Print #NumFic, s
Close
End Sub

Cordialement, CanisLupus

Votre réponse