extraction chaine de caractere

Marsh Posté le 21-04-2016 à 11:40:46

Bonjour à tous !

Je n'arrive pas à manipuler correctement ma chaine de caractère.

mon but est de récupérer le nom d'un zip.

Code :

<Doc FileId='xxxx' Name='file2.zip' Path='' IsCommitted='1' RelativeLocation='files/file2.zip' />

voici un exemple de chaine de caractere que je peux avoir. J'ai fait des recherches sur InStr et sur Mid, mais je n'ai pas trouvé comment récupérer une chaine entre x et y. J'aimerais donc récupérer file2.zip

J'ai essayé ça mais je récupère toute la ligne du coup... :??:
InStr(1, TextLine, "Name=", vbTextCompare)

:jap:

Marsh Posté le 21-04-2016 à 11:40:46

Marsh Posté le 21-04-2016 à 12:28:12

Bonjour,

chercher par exemple la position de ".zip" dans la chaîne puis
via la fonction InStrRev chercher la position du ' qui précède et enfin via la fonction Mid extraire le nom
en calculant la longueur par la différence arithmétique élémentaire du niveau CM1/CM2 entre les positions !

Marsh Posté le 21-04-2016 à 13:42:09

Ok merci beaucoup, je ne connaissais pas InStrRev.

mon code fonctionne, merci :

Code :

position1 = InStr(1, ligne, ".zip" )
position2 = InStrRev(ligne, "'", position1)
longueur = position1 - position2
ZipFileName = Mid(ligne, position2, longueur)

Marsh Posté le 21-04-2016 à 13:49:16

J'aurais ajouté 1 à Position2 …

Autre méthode :

Code :

Sub Demo()
Const LIGNE = "<Doc FileId='xxxx' Name='file2.zip' Path='' IsCommitted='1' RelativeLocation='files/file2.zip' />"
MsgBox Split(Split(LIGNE, "Name='" )(1), "'" )(0)
End Sub

Marsh Posté le 21-04-2016 à 13:51:22

Ou encore MsgBox Split(LIGNE, "'" )(3) …

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *