Member Avatar for royaloba

hello Guys,

can somebody help me reading a .dat file then output the file in a textfile

sample .dat file

1 2007-02-12 18:13:13 1
1 2007-02-12 18:13:20 1
1 2007-02-12 18:13:23 1
1 2007-02-12 18:14:04 1
12345 2007-02-12 18:15:15 1
1 2007-02-12 18:15:17 1
12345 2007-02-12 18:15:19 1

sample Output
the content of the text file should have this kind of format.

2007/02/12 18:13:13, Event:Access Door:1, Card No.00001
2007/02/12 18:13:20, Event:Access Door:1, Card No.00001
2007/02/12 18:13:23, Event:Access Door:1, Card No.00001
2007/02/12 18:14:04, Event:Access Door:1, Card No.00001
2007/02/12 18:15:15, Event:Access Door:1, Card No.12345
2007/02/12 18:15:17, Event:Access Door:1, Card No.00001
2007/02/12 18:15:19, Event:Access Door:1, Card No.12345

here's the sample code.

Dim MyFile As String
Dim FNo As Long
Dim data() As String
Dim fields As Integer
Dim InLine As String

    MyFile = "C:\Textlog\1_attlog.dat"
    On Error Resume Next
    Open "C:\Andoks\" & Format(Date, "MMDDYYYY") & ".txt" For Output As #1
    FNo = FreeFile
    If Dir(MyFile, vbDirectory) <> "" Then
    Open MyFile For Input As FNo
     While Not EOF(FNo)
        Line Input #FNo, InLine
        data() = Split(InLine)
        fields = UBound(data())
        'Open "C:\Andoks\" & Format(Left(data(0), 10), "MMDDYYYY") & ".txt" For Output As #1
        'Back Up "" Print #1, Format(Right(data(0), 10), "YYYY/MM/DD") & " " & Left(data(1), 8)
        Print #1, Format(data(1), "YYYY/MM/DD") & " " & Left(data(2), 8) & "," & " " & "Event:Access," & " " & "Door:1," & " " & "Card No.:" & Format(Right(data(0), 5), "00000")
   
    Wend
    End If
    MsgBox "Attendance successfully downloaded       ", vbInformation + vbOKOnly, "Record Saved"
    Unload Me
    Me.Show
'close
    Close #FNo
    Close #1
Exit Sub
  • 2 Contributors
  • 2 Replies
  • 839 Views
  • 3 Days Discussion Span
  • Latest Post Latest Post by royaloba
Member Avatar for WaltP

So what's the problem? You should describe what's wrong so we know what were looking for.

Member Avatar for royaloba

my sample code gives me a wrong output,
, Event:Access Door:1, Card No.:
, Event:Access Door:1, Card No.:
, Event:Access Door:1, Card No.:
, Event:Access Door:1, Card No.:
, Event:Access Door:1, Card No.:

my code doesn't read the data(0) and data(1)

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.