Salut,
je cherche a faire une tache automatisé d'un filtrage d'un gros fichier. Pour cela, je me suis tourné vers du VBScript.
J ai trouvé des multitude d'exemple comment ouvrir et lire une ligne.
Mais mon problème est que mon fichier text source est pas francement conforme. chaque ligne ne se fini pas avec CRLF, mais juste CR.
Résultat : quand je demande de lire une ligne, il lit la totalité du fichier.
Voila mon "programme" de test, il est relativement simple.
Code :
- Set objFSO = CreateObject("Scripting.FileSystemObject" )
- Set objTextFile = objFSO.OpenTextFile("c:\ISA-User.csv", 1,TRUE)
- Dim Domain(2000)
- Dim Name(2000)
- Dim Department(2000)
- Dim Mail(2000)
- Dim Desc(2000)
- i=0
- Do Until objTextFile.AtEndOfStream
- arrWorkstations = split(objTextFile.ReadLine, ";" )
- Domain(i)=arrWorkstations(0)
- Name(i)=arrWorkstations(1)
- Department(i)=arrWorkstations(2)
- Mail(i)=arrWorkstations(2)
- Desc(i)=arrWorkstations(3)
- i=i+1
- wscript.echo Desc(i)
- loop
- objTextFile.Close
|
Voyez vous une solution pour que mon ReadLine interprète bien le caractère de fin de ligne ?
Merci