Discussion :

[amans]

Bonjour à tous,

Je suis pas vraiment calé en vbs mais je cherche à parser un fichier texte où chaque ligne est structurée comme ci-dessous :

Code :

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

XXXXXX,2012/10/11 16:11:51,login,xxxxxx,xxxxxx,xxxxxxx,xxxxxxxxx,xxxxx,xxxxxx

pour le convertir en xls avec :

date/heure en colonne 1
et login en colonne 2

Code :

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

1
2
    Colonne 1       | Colonne 2
2012/10/11 16:11:51 | login

les autres champs ne m'interesse pas....

Merci à vous pour votre aide !

[amans]

bon j'ai trouvé un bout de code qui me permet de parser !

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
Option Explicit
Dim strXlsFile,objExl,strSrcFullPath,strSrcFileName,objTmpArray,strDelimiter,strTargetDir,strExtension
Const xlDelimited  = 1
Const xlTextQualifierDoubleQuote = 1 'Double quotation mark (").
Const xlTextQualifierNone = -4142    'No delimiter.
Const xlTextQualifierSingleQuote = 2 'Single quotation mark (').
 
strSrcFullPath = "c:\tmp\work\test.txt"
strTargetDir   = "c:\tmp\work"
strDelimiter   = ","
objTmpArray    = Split(strSrcFullPath,"\")
strSrcFileName = objTmpArray(UBound(objTmpArray))
If( Right(strTargetDir,1) <> "\" ) Then
 strTargetDir = strTargetDir & "\"
End If
objTmpArray    = Split(strSrcFileName,".")
strExtension   = objTmpArray(UBound(objTmpArray))
strSrcFileName = Replace(strSrcFileName,"."&strExtension,"")
strXlsFile     = strTargetDir &strSrcFileName &".xls"
 
Set objExl = CreateObject("Excel.Application")
objExl.Visible = False
objExl.CutCopyMode = False
objExl.Workbooks.OpenText strSrcFullPath,,,xlDelimited,xlTextQualifierDoubleQuote,,,,,,True,strDelimiter
objExl.Cells.Select
objExl.Selection.Columns.AutoFit
objExl.Range("A1").Select
objExl.ActiveWorkbook.SaveAs strXlsFile, -4143
objExl.ActiveWorkbook.Close True
objExl.Application.Quit
Set objExl = Nothing

mais avec ce code je me retrouve avec tous les champs dans le fichier xls !
comment puis-je faire pour seulement récupérer les champs voulus ?

de plus j'aimerai pouvoir faire un tri sur les logins.
du genre si le login commence par "a0...." ou "a1...." j'écris la ligne correspondante dans le fichier xls, sinon non.

merci à vous !!

[omen999]

bonjour,
je ne suis pas familier du modèle objet d'access, mais soit la méthode OpenText permet le chargement
sélectif de certains items de chaque ligne du fichier texte,
soit la méthode Select doit se limiter à la 2ème et 3ème colonne.
tu peux poser la question dans le sous-forum Access du forum Office

[amans]

access ?
euuh c'est du excel que je sors ^^

[omen999]

ah, j'ai écris access alors que je pensais excel...
ça ne change rien sur le fond

[l_autodidacte]

Si tu jettes un coup d’œil ici, tu verras qu'il y a peut-être quelque chose à modifier dans ton code notamment l'affectation de certains paramètres qui attendent un objet alors tu y mets un nombre !!