Discussion :

[kiksora_01]

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]

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]

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]

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

[hackoofr]

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

je n'ai pas saisi ce que vous voulez dire ici
Soyez plus explicite

[kiksora_01]

l'éxemple que je vous ai donner ( en 3 lignes ), en réalité il y a en tous plus de 16000 lignes, et non pas 3

[papyxy]

dans le même style que pc75, je propose ce qui suit :

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
16
17
18
19
  const    lu    = "fichier à lire.txt"
           const   fics  = "resultat.txt"
 Set        oFso = CreateObject("Scripting.FileSystemObject")
     if not ofso.fileexists(lu) then _
            msgbox "fichier non trouvé",, lu : wscript.quit
  Const ForReading = 1 ' Lire
  Const ecrire        = 2 ' écrire
             ficl= oFSO.GetFile(lu).path
        Set f    = oFso.OpenTextFile(ficl,ForReading)
        Set fe   = oFso.OpenTextFile(fics,ecrire,true)
  do
 MaChaine = f.readline   '"Date,Heure,NbIMP,@IP,5640,...."
 '                       après le "split",   item(4) aura la valeur 5640
 '                       pour le 1er enreg.  et ainsi de suite
    Items = split(MaChaine, ",")
            fe.writeline (item(4))
  loop until  f.AtEndOfStream
  f.Close : fe.close
' le fichier resultat.txt aura uniquement les nombres qui sont en 5ème position

[ProgElecT]

Salut

Si kiksora_01 est débutant en programmation VBScript, cela manque de clarté, il ne nous précise pas d'ailleurs qu'il veut écrire le résultat dans un fichiers.
papyxy, j'ai utilisé ton code , inspiré de celui de pc75

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim oFso, FichL, FichE 'variables objets
Dim MaChaine, LesItems 'variables littérales
 
Const ForReading = 1 ' Lire
Const ForWriting = 2 ' Écrire
 
Const ChemNomFichLut = "C:\Dossier\FichierAlire.txt"
Const ChemNomFichEcrit = "C:\Dossier\FichierResultat.txt"
 
Set oFso = CreateObject("Scripting.FileSystemObject")
If Not oFso.FileExists(ChemNomFichLut) Then MsgBox "fichier non trouvé", , ChemNomFichLut: WScript.Quit
 
'branchement des fichiers
Set FichL = oFso.OpenTextFile(ChemNomFichLut, ForReading) 
Set FichE = oFso.OpenTextFile(ChemNomFichEcrit, ForWriting, True)
 
Do
    MaChaine = FichL.ReadLine   '"Date,Heure,NbIMP,@IP,5640,...."
                            'après le "split",   LesItems(4) aura la valeur 5640
                            'pour le 1er enreg.  et ainsi de suite
    LesItems = Split(MaChaine, ",") 'Éclate la ligne
    FichE.WriteLine (LesItems(4)) 'Écrit avec le 5ème indice du tableau LesItems dans le fichier résultat
Loop Until FichL.AtEndOfStream
FichL.Close: FichE.Close
 
'nettoyage explicite
Set FichL = Nothing
Set FichE = Nothing
Set oFso = Nothing
'fichierResultat.txt aura uniquement les nombres qui sont en 5ème position
'de chaque ligne lut dans le fichier FichierAlire.txt

Le code de hackoofr pourrait aussi convenir et a des chances d'être plus rapide.