Discussion :

[carmodelisme]

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

[ProgElecT]

Salut et bienvenue sur DVP

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.

[carmodelisme]

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

[ProgElecT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[carmodelisme]

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

[Fredledingue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.