Discussion :

[shakapouet]

Bonjour,

Voila mon problème,

Dans un programme, j'ouvre plusieurs fichiers qui ont des noms similaires :

ex : 5960x_45_8_44_2666_32Go
5960x_47_8_44_2666_32Go
5960x_48_8_44_2666_32Go
5960x_49_8_44_2666_32Go

J'ai cette liste de fichier dans un tableau à une dimension.

Auriez vous une idée de comment comparer ses 4 chaines de caractères ensemble et trouver les partie identique de la chaine et remplacer les valeurs différentes par XX.

Pour ces fichiers , j'aimerais récupérer comme fichier de sortie : 5960x_XX_8_44_2666_32Go

Cordialement

Shakapouet

[davido84]

Dans ton exemple c'est toujours la 2ème partie de la chaîne qui varie : est-ce toujours le cas ?
Si cela arrive quel doit être le résultat ramené ?
A+

[shakapouet]

Bonjour,

Non pas obligatoirement par exemple cela pourrait être

5960x_45_4_44_2666_32Go
5960x_45_6_44_2666_32Go
5960x_45_8_44_2666_32Go
5960x_45_10_44_2666_32Go

Et la je devrais obtenir : 5960x_45_X_44_2666_32Go.

Juste pouvoir remplacer les partie qui varie par un X.

Merci de ton aide

[halaster08]

Bonjour,

Je te conseille de regarder l'aide sur l'instrucion split.
Grace au split, tu peut séparer tes chaines de caractères suivant les "_" et ensuite tu pourras comparer facilement partie par partie, et remplacer si besoin par des XX

[shakapouet]

Ok merci je vais regarder avec la fonction split si j'arrive à me débrouiller.

Merci

[Jean-Philippe André]

A noter que mon code n'est pas bon, vu que tu peux avoir un decalage de lettres, donc oui l'approche avec le split sur l'underscore peut completer mon approche =]

[Jean-Philippe André]

Salut,

tu peux passer par une boucle et un Mid()

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
Dim vStr As Variant
Dim Result As String
Dim tmp As String
Dim bIdent As Boolean
vStr = Array("5960x_45_4_44_2666_32Go","5960x_45_6_44_2666_32Go","5960x_45_8_44_2666_32Go","5960x_45_10_44_2666_32Go")
tmp = "5960x_45_4_44_2666_32Go"
 
For i = 1 To len(tmp)
bIdent = True
For j = LBound(vStr) to UBound(vStr)
If Mid(tmp,i,1) <> Mid(vStr(j),i,1) Then
bIdent = False
Exit For
End If
Next j
Result = Result & Iif(bIdent,Mid(tmp,i,1),"X")
next i
Msgbox "le template est " & Result