ada yg tahu ini file apa ya ?

[sbakirh]

ada yg tahu ini file apa ya...saya ambil dari mesin absensi...apa bisa dikonversi ke file dbf ?.....

[sinyonamakoe]

ada yg tahu ini file apa ya...saya ambil dari mesin absensi...apa bisa dikonversi ke file dbf ?.....

"Kebetulan", itu file Text biasa mas, hanya extensinya '.DAT'...anda bisa kovert ke table ...coba pake kode ini, tapi lumayan lama sich ...anda kembangkan sendiri aja ..

Code: [Select]

Create Cursor tampung (cfield c(254))

Append From 255_attlog.dat Type Sdf

Create Cursor tampung2 ;
(ufield01 i(4),;
ufield02 d(8),;
ufield03 c(8),;
ufield04 n(6),;
ufield05 i(1),;
ufield06 i(1),;
ufield07 i(1))

olddate =Set("Date")
Set Date To Ymd
Select tampung
Scan
xfield=Alltrim(cfield)
xfield=Strtran(xfield,' ',';')
xfield=Strtran(xfield,Chr(9),';')
Wait Window "record : " + Transform(Recno()) Nowait
Select tampung2
Append Blank
For i=1 To 7
ufieldx='ufield'+Transform(i, '@l 99')
ufill=null
Do Case
Case Transform(i)$'1;4;5;6;7'
ufill=Int(Val(GetWordNum(xfield,i,';')))
Case Transform(i)='2'
ufill=Ctod(GetWordNum(xfield,i,';'))
Otherwise
ufill=GetWordNum(xfield,i,';')
Endcase
Replace ;
(ufieldx) With ufill
Next
Select tampung
Endscan
Set Date To &oldate


[sbakirh]

hebuat sekali....bisa juga ya.....coba duluah......mungkin nanti hasilnya bisa dishare disini,