[VBS] Commande de sous-chaîne

**kiksora_01** · 23/01/2013, 09h54

Bonjours,

je cherche une commande me permetant d'agire sur une sous-chaîne de caractère a partir d'un caractère spécial, exemple :

Date,Heure,NbIMP,@IP,5640,....
Date,Heure,NbIMP,@IP,75640,....
Date,Heure,NbIMP,@IP,335640,....

J'aimerai récupérer le nombre les nombres seulement je ne peux pas faire de 'dim' comme vous avez pu remarquer, leurs nombre de caractère change !
Je cherche une commande qui dirait "A partir de la 4ème virgule ( dans ce cas a nous )"

Merci beaucoup, pour le reste du script je n'ai pas de problème pour le moment

**pc75** · 23/01/2013, 10h05

Bonjour,

Code :

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

1
2
3
4
 
MaChaine = "Date,Heure,NbIMP,@IP,5640,...."
Items = split(MaChaine, ",")
MsgBox Items(4)

**hackoofr** · 23/01/2013, 12h20

ou bien avec les expressions régulières :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Data = "Date,Heure,NbIMP,@IP,5640,...,Date,Heure,NbIMP,@IP,75640,....Date,Heure,NbIMP,@IP,335640,...."
Function RegExp(Motif)    
Set objRegex = new RegExp
objRegex.Pattern = Motif 
objRegex.Global = True 
objRegex.IgnoreCase = True
Set Matches = objRegex.Execute(Data) 'Execution de la RegExp
For Each Match in Matches  
    strMatchValue = Match.Value
    RegExp = strMatchValue
    MsgBox RegExp
Next
End Function
RegExp("(\d+)")

**kiksora_01** · 23/01/2013, 13h32

Merci pour toutes vos réponses, cela m'aide a avancer, par contre le problème des expression régulière, c'est que j'ai en tous 16700 ligne a m'occuper donc les écrires une par une... très peu pour moi