Supprimer une ligne
cs_jer79
Messages postés
8
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
30 avril 2003
-
9 avril 2003 à 08:46
cs_Base Messages postés 70 Date d'inscription jeudi 23 janvier 2003 Statut Membre Dernière intervention 31 juillet 2003 - 9 avril 2003 à 09:58
cs_Base Messages postés 70 Date d'inscription jeudi 23 janvier 2003 Statut Membre Dernière intervention 31 juillet 2003 - 9 avril 2003 à 09:58
1 réponse
cs_Base
Messages postés
70
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
31 juillet 2003
9 avril 2003 à 09:58
9 avril 2003 à 09:58
Salut
C'est du traitement pure de chaîne :
- Récupères ton fichier dans une chaîne (Ex : StFile), puis utilise un code dans ce style :
PosW = 1 'Evite la sortie immédiate de la boucle
lStart = 1 'Point de départ
Do While PosW <> 0
PosW = InStr(lStart, StFile, "Mot cherché")
PosE = InStr(PosW + 1, StFile, vbNewLine)
StNewFile = StNewFile & Mid(StFile, lStart, PosW - PosE)
lStart = PosE + 1
Loop
Ca doit etre qq chose comme ça... Je ne peux pas essayer, car je n'est pas de VB sous la main, mais je pense que ca doit marcher. Il y aurra peut etre un décalage, car vbNewLine fait 2 caractère (Chr(13) & Chr(10)). Si ca se décale, ajoute 2 à lStart au lieu de 1...
Ensuite il te reste à sauver le texte StNewFile dans le fichier...
B@se 8-)
C'est du traitement pure de chaîne :
- Récupères ton fichier dans une chaîne (Ex : StFile), puis utilise un code dans ce style :
PosW = 1 'Evite la sortie immédiate de la boucle
lStart = 1 'Point de départ
Do While PosW <> 0
PosW = InStr(lStart, StFile, "Mot cherché")
PosE = InStr(PosW + 1, StFile, vbNewLine)
StNewFile = StNewFile & Mid(StFile, lStart, PosW - PosE)
lStart = PosE + 1
Loop
Ca doit etre qq chose comme ça... Je ne peux pas essayer, car je n'est pas de VB sous la main, mais je pense que ca doit marcher. Il y aurra peut etre un décalage, car vbNewLine fait 2 caractère (Chr(13) & Chr(10)). Si ca se décale, ajoute 2 à lStart au lieu de 1...
Ensuite il te reste à sauver le texte StNewFile dans le fichier...
B@se 8-)
