fichier rechercher remplacer

D'abord merci d'avoir pris le temps de me répondre.

J'ai trouvé comment ouvrir un fichier, comment remplacer un caractère par un autre... Pas eu trop de problèmes.

Par contre pour supprimer un groupe de lignes compris entre deux mots, là je bute.
Ex: toto qklj fqklfj
<Appel>
ligne à supprimer
ligne à supprimer
</Appel>

Donc dans un texte, je veux supprimer toutes les lignes comprises entre deux termes que je connais.
Même problème pour supprimer une ligne complète qui comprend un caractère ou un mot spécifique:
ex: si une ligne comprend le mot "toto" je supprime toute la ligne et pas seulement le mot "toto".
Si j'arrive déjà à faire cela, je serai satisfait...
Merci d'avance

Salut et bienvenue sur DVP

Citation:

---

Envoyé par carmodelisme

Bonjour tout le monde...

Après plusieurs années de programmation en applescript, je dois programmer sur pc.
............
............ je débute, je cherche, malheureusement je ne trouve pas tout...

---

La FAQ VBScrip
Vos Contributions VBScript
OUTILS VB
TUTORIELS VB
SOURCES VB
Pour ce qui est "je ne trouve pas tout", n'hésites pas à nous poser des questions précises.

D'abord merci d'avoir pris le temps de me répondre.

J'ai trouvé comment ouvrir un fichier, comment remplacer un caractère par un autre... Pas eu trop de problèmes.

Par contre pour supprimer un groupe de lignes compris entre deux mots, là je bute.
Ex: toto qklj fqklfj
<Appel>
ligne à supprimer
ligne à supprimer
</Appel>

Donc dans un texte, je veux supprimer toutes les lignes comprises entre deux termes que je connais.
Même problème pour supprimer une ligne complète qui comprend un caractère ou un mot spécifique:
ex: si une ligne comprend le mot "toto" je supprime toute la ligne et pas seulement le mot "toto".
Si j'arrive déjà à faire cela, je serai satisfait...
Merci d'avance

Citation:

---

Envoyé par aide en ligne

Renvoie la position de la première occurrence d'une chaîne à l'intérieur d'une autre.

InStr([start, ]string1, string2[, compare])

---

Pour l'aide en ligne il te faut charger l'aide pour que tu l'ais sur ton ordinateur, FAQ VBScript - aide en ligne pour VBScriptla fonction InStr te permet de savoir ou commence le mot recherché,

Code:

---

1 2 3 4 5 6 7 8 9

Debut = InStr(1,"<Appel>",DansletexteComplet)   Fin = InStr(1,"</Appel>",DansletexteComplet) Fin = Fin + len("</Appel>") ConserveDebutTexte = left(DansletexteComplet,Debut -1) ConserveFinTexte = right(DansletexteComplet,Fin) 'recompose le texte complet sans le texte compris entre <Appel> et </Appel> 'conserve les deux bornes DansletexteComplet = ConserveDebutTexte & ConserveFinTexte

---

DansletexteComplet = variable contenant le texte a trier
ConserveDebutTexte = variable pour contenire le debut du texte a conserver
ConserveFinTexte = variable pour contenire la fin du texte a conserver

Bien entendu, il te faut adapter exactement à ton besoin, le code proposé n'est là que pour te donner une piste.

Tout d'abord merci de votre réponse

Merci pour le coup de main, je commence à comprendre la philosophie du langage...

Par contre dans l'exemple envoyé le problème est que entre les différentes balises "<Appel>" et "</Appel>" il y a du texte que je dois conserver.
Ex: blablabla
blablabla
<Appel>
totototo
</Appel>
blablablabla
blablabla
<Appel>
tututu
</Appel>
blablabla

Je ne dois supprimer que les blabla...

Je pensais qu'avec une boucle peut-être...

Merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9 10

Set ts = fso.OpenTextFile(YourFile, 1) MyArray = Split(ts.ReadAll, vbCrlf) ts.Close ubma = UBound(MyArray) For i=0 To ubma t=MyArray(i) 'Ici fait ce que tu dois faire avec t. MyArray(i)=t Next NewText = Join(MyArray, VbCrlf)

---

Tu peux répèter plusieurs For...Next, revenir en arrière, repartir en avant en jouant avec la variable i et l'array.
Quand tu as fini to rejoins tout le bazaar.