Parser un fichier txt vers fichier xls

Version imprimable

12/10/2012, 09h37
amans

Parser un fichier txt vers fichier xls
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:

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:

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 !

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

Code:

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

12/10/2012, 11h04
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
12/10/2012, 12h21
amans

access ?
euuh c'est du excel que je sors ^^
12/10/2012, 14h29
omen999

ah, j'ai écris access alors que je pensais excel... :mouarf:
ça ne change rien sur le fond
14/10/2012, 12h30
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 !!