Problème avec .find

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème avec .find

acorsa

Bonjour,
J'ai un problème avec le find...je m'explique je voudrais simplement remplacer ds un texte la suite de caractère "&&" par un nombre [1] puis [2]....et c'est ça le problème j'incrémente un compteur et je dois remplacer la cha9ne de caractère par un nombre différent à chaque fois.
Le problème c'est que mon code me remplace bien les "&&" avec un nombre qui s'incrémente ms c pas ds l'ordre, par exemple le 2 premiers serotn 1 et 2 puis ça va de 2 en 2, donc le 4 eme à la valeur 3 etc..enfin c'est n'impoorte quoi!!
Si vous avez déjà rencontré ce problème...please give me a solution!!!
Merci

Publicité

zephyron1

:heink: Bizarre en effet... Mais find() c'est pas super super comme fonction.
Tu as regardé ce topic : http://forum.hardware.fr/hardwaref [...] 3792-1.htm ?
Regardes mon dernier post dessus, ça peut être utile.

acorsa

je viens de trouver le problème ct tout con....Bon mtnt autre question (ms je vais créer un nouveau message)
Je veux remplacer des mots et pour cela je fais une boucle While..et j'ai rien trouvé de bien pour m'arrêter.While i <> ActiveDocument.Words.Count n'est pas efficace car il y a trop de mots ds mon document.Il faudrait un truc du genre While (!EOF) ms ça n'existe pas en VB.
T'as une idée?

kiki29

Un peu en retard mais inspiré du Delete Crochets si cela peut rendre service

Option Explicit

Private Function FindReplace(Chaine As String) As String
Dim Pos As Long, Taille As Long
Dim strR As String, strL As String, Str As String
Dim Cpt As Long, Ch As String
Dim ChRecherchée As String

Cpt = 0
ChRecherchée = "&&"

Do
Pos = InStr(Chaine, ChRecherchée )
Taille = Len(Chaine)
If Pos > 0 Then
Cpt = Cpt + 1
Ch = "[" & Cpt & "]"
strL = Left(Chaine, Pos - 1)
strR = Right(Chaine, Taille - Pos - Len(ChRecherchée) + 1)

Str = strL & Ch & strR
Chaine = Str
End If
Loop Until Pos = 0

Application.StatusBar = "Nb Remplacement : " & Cpt
FindReplace = Chaine
End Function

Public Sub Remplacer()
Dim Str As String
ActiveDocument.Select
Str = Selection
Selection = FindReplace(Str)
Application.ScreenRefresh
End Sub

Message édité par kiki29 le 09-08-2006 à 13:58:57

acorsa

merci ms je vais mieux t'expliquer mon problème...
Je te montre mon code je pense que c plus rapide au niveau exécution:

Sub add_ID(ref As Integer)

Selection.Find.ClearFormatting

reference = ref

With Selection.Find
While i <> ActiveDocument.Words.Count
.Forward = True
.ClearFormatting
.MatchWholeWord = True
.MatchCase = False
.Wrap = wdFindStop
.Execute FindText:="&&"

If Selection.text = "&&" Then
Selection.Delete
Selection.InsertBefore ("[" & reference & "]" )
Selection.Style = "monStyle"
Selection.Font.Color = wdColorRed
Selection.Font.Underline = wdUnderlineNone
Selection.Font.Bold = True
reference = reference + 1
End If

i = i + 1
refTotal = reference - 1
Wend
End With

End Sub

ça ça marche, mon problème est de le modifier pour que la boucle s'arrête dès qu'il n'y a plus rien à remplacer.

Message édité par acorsa le 09-08-2006 à 14:19:35

kiki29

Eh bien au niveau temps y'a pas photo : sur un doc bidon de 94 pages le mien : 0.6 s, ton code 19 s,sans compter qu'il ne fonctionne pas correctement

kiki29

Maintenant les temps sont comparables et ton code fonctionne correctement, reste peut etre à l'optimiser

Sub add_ID(ref As Long)
Dim Reference As Long, RefTotal As Long

ActiveDocument.Select
Selection.Find.ClearFormatting
Reference = ref

With Selection.Find
.Execute FindText:="&&"
If Selection.Find.Found = False Then Exit Sub
With Selection
.Delete
.InsertBefore ("[" & Reference & "]" )
.Style = "monStyle"
.Font.Color = wdColorRed
.Font.Bold = True
.MoveRight Unit:=wdCharacter, Count:=1
Reference = Reference + 1
End With

While Selection.Find.Found = True
.Forward = True
.ClearFormatting
.MatchWholeWord = True
.MatchCase = False
.Wrap = wdFindStop
.Execute FindText:="&&"
If Selection.Find.Found = True Then
With Selection
.Delete
.InsertBefore ("[" & Reference & "]" )
.Style = "monStyle"
.Font.Color = wdColorRed
.Font.Bold = True
.MoveRight Unit:=wdCharacter, Count:=1
Reference = Reference + 1
End With
End If
RefTotal = Reference - 1
Wend
End With
End Sub

Message édité par kiki29 le 09-08-2006 à 16:54:51

acorsa

Alors là....chapeau!!!
Je te remercie vraiment...tu me donne de quoi bien terminer ma journée!!!
Merci beaucoup!

acorsa

Bon là je viens de tester et retester sur des gros fichiers et je me dois de te re-remercier!!!
C'est là qu'on voit les pros qd même!!!
Merci!

kiki29

Je viens de rajouter après ton post dans le code un :

If Selection.Find.Found = False Then Exit Sub

après le 1er .execute

With Selection.Find
.Execute FindText:="&&"
If Selection.Find.Found = False Then Exit Sub <<<<<<<<<<<
.....

Message édité par kiki29 le 09-08-2006 à 17:51:02

Publicité

acorsa

pkoi ça marchait très bien?

kiki29

Essaie sans en moulinant 2 fois le même fichier ...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problème avec .find

Sujets relatifs
Probleme d'affichage aprés une balise div	Probleme url include
rmi probleme d'execution	Problème sur un flux de lecture à partir d'un fichier .txt
probleme iframe easyphp	Problème avec la méthode Find
[Scripts Shell] Commandes find & echo - probleme d'affichage	[VBA] problème et recherche de date avec Find...
[BATCH] Problème avec reg find	problème avec find et grep ss unix
Plus de sujets relatifs à : Problème avec .find

Page générée en 0.044 secondes