Discussion :

[Invité]

Bonjour,

Le code suivant permet de supprimer les caractères consécutifs identique.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function DeleteConsecutiveChars (MyTxt)
    Dim I
    Dim StrOutput
    StrOutput = Mid(MyTxt, 1, 1)
    MsgBox StrOutput
    For I = 1 To Len(MyTxt) -1
        If Mid(MyTxt, I, 1)<> Mid(MyTxt, I + 1, 1) Then StrOutput = StrOutput & Mid(MyTxt, I + 1, 1)
    Next 
    DeleteConsecutiveChars = StrOutput
End Function
 
strSource = "AAAeeelmA12fggg35526666m"
 
msgbox DeleteConsecutiveChars (strSource)

J'essaie de le modifier pour permettre la suppression de groupes de caractères identiques.
La chaine est:

Code :

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

"[a-z]+[a-z]+[a-z]+( )[A-Z]+( )[0-9]+(.)[a-z]+[a-z]+[a-z]+( )[0-9]+"

J'essaie d'obtenir:

Code :

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

"[a-z]+( )[A-Z]+( )[0-9]+(.)[a-z]+( )[0-9]+"

Je définis la longueur et la position:

Code :

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

1
2
StrOutput = Mid(MyTxt, 1, 6)
MsgBox StrOutput

Mon MsgBox me retourne bien

Code :

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

[a-z]+

Je ne parviens pas définir les bonnes valeurs des fonctions de traitement de chaine.

Un peu d'aide SVP?

[ericlm128]

En reprenant ton exemple AAAeeelmA12fggg35526666m.
Quels sont les blocs de caractères identiques et a quoi doit correspondre la sortie ?

Je dirais bien qu'un bloc est au minimum composé de deux caractères.
Le seul que je vois est dans la chaine 6666 qui a deux blocs 66
Le résultat sera donc AAAeeelmA12fggg3552m avec inclusion ou sans AAAeeelmA12fggg355266m

[ProgElecT]

Salut

Ce que j'ai compris,
si strSource = [a-z]+[a-z]+[a-z]+( )[A-Z]+( )[0-9]+(.)[a-z]+[a-z]+[a-z]+( )[0-9]+
récupération = [a-z]+( )[A-Z]+( )[0-9]+(.)[a-z]+( )[0-9]+
Car il y a répétition du groupe de caractères consécutifs identique [a-z]+
Par contre la formule ....

[ProgElecT]

Par contre la formule ....

A essayer avec différents strSource

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
16
17
18
19
20
21
22
23
24
Function DelGroupChars(MyTxt)
    Dim T, U, V, Deb2
    Dim StrOutput, GrpChar
'strSource = "[a-z]+[a-z]+[a-z]+( )[A-Z]+( )[0-9]+(.)[a-z]+[a-z]+[a-z]+( )[0-9]+"
'                         [a-z]+( )[A-Z]+( )[0-9]+(.)[a-z]+            ( )[0-9]+
    V = CInt(Len(MyTxt) / 2)
    StrOutput = MyTxt
    For T = 1 To Len(StrOutput) - 1
        V = CInt(Len(StrOutput) / 2)
        For U = 2 To V
            GrpChar = Mid(StrOutput, T, U)
            Deb2 = InStr(T + U - 1, StrOutput, GrpChar, vbBinaryCompare)
            If Deb2 = U + T Then
                If T = 1 Then
                    StrOutput = Replace(StrOutput, GrpChar, "", Deb2, 1, vbBinaryCompare): T = T - 1
                    Else
                    StrOutput = Left(StrOutput, Deb2 - 1) & Replace(StrOutput, GrpChar, "", Deb2, 1, vbBinaryCompare): T = T - 1
                End If
                Exit For
            End If
        Next
    Next
    DelGroupChars = StrOutput
End Function

[Invité]

OUHaHOU là ca envois du lourd !!!
Petite question, la déclaration de la chaine strSource doit elle rester dans la Function ?
Habituellement je sors tout ce qui est appels ou déclarations.

Pour en revenir au code là j’ai besoin d’explication et pas des moindres !

A la 1er lecture je n’ai pas déchiffré la moitié du code.
En tout cas belle prouesse !
Je viens de faire quelques tests pour le moment RAS le code traite et ne fléchit pas

[ProgElecT]

En fait les lignes 4 et 5 sont en commentaire, elles m'ont servies le temps du debug, j'ai oublié de les supprimer.
Je triche, j'utilise VB6 et antérieur pour debuguer, run pas à pas, variables espions .......

Je viens de faire quelques tests pour le moment RAS le code traite et ne fléchit pas

J'attendais cette information, c'est pourquoi je n'ai pas commenté le code, promis, demain tu auras plus d’explications.