Traitement dans un fichier texte(urgent)

Question

Salut tout le monde 
voici mon prob 

FICHIER1
001;12/12/2004;12:00:00
002;12/12/2004;13:00:00
001;12/12/2004;12:10:00
002;12/12/2004;13:10:00
FICHIER2
12/12/2004 12:00:00,E,001
12/12/2004 13:00:00,E,002
12/12/2004 12:10:00,S,001
12/12/2004 13:10:00,S,002

Index:
001,002 (identifiant de l'employer)
12/12/2004(date de pointage )
12:00:00,13:00:00 (heure pointage)
E/S(entree ou sortie)

LE fichier 1 est le fichier source apporter par une machine de pointage  je veut le rendre dans le format du fichier 2 pour pouvoir l'integrer dans le logiciel de pointage

crenaud76 · Answer

Dim L As String,Chp() as string,L2 As String,Mvt As String
Dim Memo() as string,IdEmp as Long

redim Memo(0)
open "Fichier1" for input as #1
open "Fichier2" for output as #2
While not eof(1)
Line input #1,L
Chp = split(L,";")
IdEmp = clng(chp(0))
If IdEmp < ubound(Memo) Then
  Redim Preserve Memo(IdEmp)
  Memo(IdEmp) = "S"
End If
Mvt = Iif(Memo(IdEmp)="S","E","S")
L2 = chp(1) & " " & chp(2) & "," & Mvt & "," & chp(0)
Print #2, L2
Wend
Close

Au pif (je n'ai plus VB sous la main), cela devrait le faire ...

Christophe R.

cs_limoun · Answer

merci  Mr Christophe R

j'ai due traiter le prob autrement en integant une nouvelle table dans la base qui va generer les resultat du fichier1 avant de les inserrer dans le fichier 2 car il ya d'autre prob teq les faute Humaine commise par les employer cad que chaque liqne du fichier 1 ne correspond pas automatiquement a une entree ou une sortie il fallue gerrer les entrees succseesive par maladresse de lemployer et les sorties dans le meme cas et je remercie dieu d'avoir terminer ce module .

mille merci et bonne année 2005

Cordiallemnet  Limoun

Traitement dans un fichier texte(urgent)

2 réponses

Discussions similaires