Discussion :

[Invité]

Bonjour,

C'est sûrement tout simple et je ne trouve pas comment faire (je ne dois pas utiliser les bons termes pour rechercher )

Code :

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

filename_sans_ext = Replace(filename, ".jpg", "")

Avec ça je remplace ".jpg" avec "" mais moi ce que je veux c’est avoir un choix de plusieurs chaînes à remplacer...
Par exemple ".jpg" ".JPG" ".png" etc...

Merci d'avance pour votre réponse

[pgz]

Bonjour.

Il y a plusieurs façons de faire. La plus courante est d'imbriquer les Replace

Code :

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

filename = ...(Replace(Replace(filename,".jpg,""),".jpeg",""),...

Si tu as beaucoup d'extensions à remplacer, cela peut devenir pénible.
Dans ce cas, il peut être plus intéressant de faire

Code :

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

1
2
3
4
5
iPos = InStrRev(filename, ".")
Select Case UCase(Mid$(filename, iPos))
    Case ".JPG", ".PNG", ".JPEG", ".BMP" ',...etc
        filename = Mid$(filename, 1, iPos - 1)
End Select

COrdialement,

PGZ

[Invité]

Merci beaucoup !

J'ai opté pour la deuxième solution et elle marche parfaitement