decoupage d'une chaine

**micka180** · 17/12/2009, 14h05

bonjour dans un fichier j'ai

"\\?\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

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

**SfJ5Rpw8** · 17/12/2009, 14h41

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

**micka180** · 18/12/2009, 11h34

salut Bbil,

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

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.

**SfJ5Rpw8** · 18/12/2009, 11h47

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

**micka180** · 18/12/2009, 13h28

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

voici mon code.

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
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

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 :

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