Discussion :

[DenisHen]

Bonjour à tous, et une excellente année à vous...

Voilà, j'ai un petit souci avec un code, que je ne sais pas comment appréhender.

J'ai différentes chaines de caractères qui peuvent ressembler à celle-ci :

ValeurLign="(setq Valeur (strcat Valeur "\n\tCalque en cours \t= " (vlax-ldata-get "DenisH" "CharteCalq")) ;_ Fin de strcat"

J'aimerais, dans cette chaine, supprimer tous les caractères qui sont entourés de guillemets ainsi que ces guillemets... Bref, ce qu'il y a en caractères gras/italique.

Pour me retrouver avec cette chaine :

ValeurLign="(setq Valeur (strcat Valeur (vlax-ldata-get )) ;_ Fin de strcat"

Si quelqu'un a une astuce, un conseil... Je suis preneur...

Denis...

[Marc-L]

Bonjour,

cas déjà documenté dans le tutoriel Les Expressions Rationnelles appliquées en VBA …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[DenisHen]

Bonjour Marc, et merci pour cette réponse...

Mais c'est hyper complexe et je crains que ça dépasse largement mon piètre niveau. Je pensais qu'avec un Replace(Chaine$,"\"\w\"","") suffirait, ou un truc dans le même genre...

Mais je vais tout de même tenter le truc... Mais je ne pense pas que mes collègues aient la même version de Word que moi...

Merci encore...

PS : forcément, mon premier test plante... "Erreur 13: Incompatibilité de type", j'ai écris ça, qui ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim reg As VBScript_RegExp_55.RegExp
    [...]
        Set reg = New VBScript_RegExp_55.RegExp
        ' attribution des propriétés
        ' ''' motif / pattern
        reg.Pattern = strPattern
        ' ''' application sur toutes les occurences
        reg.Global = True
        ' ''' on ignore la casse
        reg.IgnoreCase = True
        ' ''' le motif ne porte pas sur plus d'une ligne à la fois
        reg.MultiLine = False
        reg.Pattern = "(\" \ w \ ")" '-> Ca plante ici *******************************************
        SupprEntreGuillemet = reg.Replace(ValeurLign, "$2 $1")
        MsgBox SupprEntreGuillemet

Je suis ouvert à toutes solutions...

[Marc-L]

Le Pattern d'une chaîne étant déjà écrit dans le tutoriel, d'un niveau Copier / Coller !

Sinon en pur VBA cela demande une logique de fin de primaire début de collège
donc à la portée de tout débutant en VBA :

- au sein d'une boucle Do Loop sans condition
- chercher la position d'un premier guillemet via la fonction InStr (cf aide VBA interne et autre tutoriel de ce forum)
- si le résultat est égal à zéro il n'y a plus rien à traiter, sortir de la boucle
- sinon chercher la position du guillemet suivant via la même fonction
- si le résultat est égal à zéro, souci donc abandon (sortie de boucle)
- sinon extraire le texte entre les deux positions (comprises) via la fonction Mid
- supprimer le texte extrait de la chaîne initiale via la fonction Replace …

[DenisHen]

Salut, et merci pour ton aide...

Sinon en pur VBA cela demande une logique de fin de primaire début de collège
donc à la portée de tout débutant en VBA

Je le prend comment ? Mais tu as raison, je voyais le problème beaucoup plus difficile qu'il est...

Bon, du coup, j'ai fais une condition If, ça donne çà :

Code :

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

1
2
3
4
5
        If InStr(ValeurLign, """") <> 0 Then
                PosGuillemet1 = InStr(ValeurLign, """")
                PosGuillemet2 = InStr(PosGuillemet1 + 1, ValeurLign, """")
            ValeurLign = Left(ValeurLign, PosGuillemet1 - 1) & Mid(ValeurLign, PosGuillemet2 + 1, (Len(ValeurLign) - PosGuillemet2))
        End If

Je vais réfléchir sur ta proposition de Do Loop...

Encore merci...

[Marc-L]

Pour le second Mid la position de départ seule suffit …

Même si le code est incomplet l'effort de logique étant bien avéré (cf règles de ce forum),
voici la version reprenant le Pattern documenté dans les cas pratiques du tutoriel :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Demo()
    S$ = "(setq Valeur (strcat Valeur ""\n\tCalque en cours \t= "" (vlax-ldata-get ""DenisH"" ""CharteCalq"")) ;_ Fin de strcat"
 
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "( ""[^""]*"")"  ' Ou .Pattern = "( \x22[^\x22]*\x22)"  comme dans le tutoriel …
         MsgBox .Replace(S, "")
    End With
End Sub

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[DenisHen]

Ok, merci encore pour ton aide...