decoupage d'une chaine

bonjour dans un fichier j'ai

Citation:

---

"\\?\D:\Users\A1\A2\A3\A4",1,251(hujk)

---

je souhaite recuperer les informations situés entre"D" et le dernier " " ", afin de n'avoir que l'adresse

Citation:

---

D:\Users\A1\A2\A3\A4

---

je me doute qu'il faut utiliser split mais j'ai du mal à comprendre sont utilisation

Merci du coup de main

pas forcément split ... split te permet d'éclater une chaine en fonction d'un séparateur ... c'est pas trop le cas de ta chaine la ...

peu-être avec InStr et Mid ....
I-E. Renvoyer la position de la première occurrence d'une chaîne dans une autre chaîne
I-D. Extraire une chaîne de caractères à l'intérieur d'une autre chaîne

salut Bbil,

j'ai pu isoler une partie de ma chaine de caractères.
avec Mid
la voici en partie

Citation:

---

D:\Users\A1\A2\A3\A4",1,"O:S-1-5-21-157

---

par contre je ne trouve pas la methode pour recuperer du premier caractère soit "D" jusqu'au premier " " "

ya t'il une fonction qui me permette de scanner ma chaine du premier caractere jusqu'à un caracter identifié.

Merci pour ton aide.

Je t'ai déjà donné la fonction (InStr) qui associée à Mid (ou left) devrai t'aider

I-E. Renvoyer la position de la première occurrence d'une chaîne dans une autre chaîne

J'ai comprie la methode que tu veux me faire employer.
cependant je tombe sur un os.

voici mon code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub sup() Set f = oFSO.OpenTextFile(stRep_log & oFl.Name)   while Not f.AtEndOfStream Chaine =replace(f.ReadAll,"SetACL finished successfully.", " ") wscript.echo "contenu du fichier = "&chaine Wend f.Close Extraction = Mid(Chaine,6) wscript.echo "coupure des caracteres non desirés : " &Extraction Caract_cible = InStr(Extraction,"") wscript.echo "Emplacement du caractere = " &Caract_cible Extraction_cible = left(Extraction,Caract_cible) wscript.echo "Recuperation Adresse : " &Extraction_cible End Sub

---

ce que j'obtiens

Citation:

---

D-Users-B1.txt
contenu du fichier = "\\?\D:\Users\B1",1,"O:S-1-....)"



coupure des caracteres non desirés : D:\Users\B1",1,"O:S-1-.....)"



Emplacement du caractere = 1
Recuperation Adresse : D

---

Maintenant en ne modifiant que le caractere " par , qui est le carctere suivant.

Code:

---

Caract_cible = InStr(Extraction,",")

---

ce que jobtiens

Citation:

---

Emplacement du caractere = 13
Recuperation Adresse : D:\Users\B1",

---

le caractere " pose un probleme que je ne comprends pas

pour mettre un " dans une variable chaine il faut le doubler .. ;)

Code:

---

Caract_cible = InStr(Extraction,"""")

---

C'est bon ça fonctionne merci du tuyau