Konu: Text Dosyayı dbf yapma
mevcut olan bir text dosyayı en kısa yoldan nasıl dbf uzantılı bir dosyaya dönüştürebilirim?
- smentes
- Uzman Üye
- Offline
- smentes
- Uzman Üye
- Offline
Re: Text Dosyayı dbf yapma
Hocam örnek kod yazabilir misiniz?
4 26.04.2008 09:43:26 Son düzenleyen, cetinbasoz (26.04.2008 09:45:10)
- cetinbasoz
- Uzman Üye
- Offline
Re: Text Dosyayı dbf yapma
append from mytext.txt type SDF
append from mytext.txt type delimited
append from mytext.txt type delimited with blank
append from mytext.txt type delimited with tab
append from mytext.txt type delimited with "" with tab
append from mytext.txt type delimited with "|" with character "-"
append from mytext.csv type csv
...
FoxyClasses importer bu isi kullaniciya neyi aldigini gosterip yapiyor.
Sadece text dosyasi demissin. Text deyince burada yazdiklarim da text. Dosya formati belirler nasil alinacagini. SampleDataToText diye bir ornek gondermistim. Onu ara icinde ornek var.
- smentes
- Uzman Üye
- Offline
Re: Text Dosyayı dbf yapma
Hocam cevaplarınız için teşekkürler.
aşağıda vb ile yazılmış bir kod var. Bu kodları fox9 a göre düzenleyebilir misiniz? bu kodlar Bir kart okuyucudaki bilgileri almak için düzenlenmiş. vb de çalışıyor. Ama foxa nasıl aktaracağımı bilemedim. (Lvx listview)
Private Sub Command1_Click()
Dim dwEnrollNumber As Long
Dim dwVerifyMode As Long
Dim dwInOutMode As Long
Dim timeStr As String
Dim i As Long
lvX.Refresh
lvX.ColumnHeaders.Add 1, , "personel kodu", 2000
lvX.ColumnHeaders.Add 2, , "kart kodu", 2000
lvX.ColumnHeaders.Add 3, , "giriş-çıkış kodu ", 2000
lvX.ColumnHeaders.Add 4, , "zaman", 4000
If CZKEM1.ReadGeneralLogData(CInt(1)) Then
i = i + 1
While CZKEM1.GetGeneralLogDataStr(CInt(1), dwEnrollNumber, dwVerifyMode, dwInOutMode, timeStr)
lvX.ListItems.Add i, , dwEnrollNumber
With lvX.ListItems(i)
.SubItems(1) = IIf(IsNull(dwVerifyMode), "", dwVerifyMode)
.SubItems(2) = IIf(IsNull(dwInOutMode), "", dwInOutMode)
.SubItems(3) = IIf(IsNull(timeStr), "", timeStr)
End With
i = i + 1
lvX.Refresh
Wend
End If
End Sub
- cetinbasoz
- Uzman Üye
- Offline
Re: Text Dosyayı dbf yapma
Visual Fox Pro
store 0 to dwEnrollNumber,dwVerifyMode,dwInOutMode,i
timeStr = space(20)
lvX.Refresh
lvX.ColumnHeaders.Add( 1, , "personel kodu", 2000)
lvX.ColumnHeaders.Add( 2, , "kart kodu", 2000)
lvX.ColumnHeaders.Add( 3, , "giriş-çıkış kodu ", 2000)
lvX.ColumnHeaders.Add( 4, , "zaman", 4000)
If CZKEM1.ReadGeneralLogData(1)
i = m.i + 1
do While CZKEM1.GetGeneralLogDataStr(1, @dwEnrollNumber, @dwVerifyMode, @dwInOutMode, @timeStr)
lvX.ListItems.Add(m.i, , m.dwEnrollNumber)
With lvX.ListItems(m.i)
.SubItems(1) = IIf(IsNull(dwVerifyMode), "", dwVerifyMode)
.SubItems(2) = IIf(IsNull(dwInOutMode), "", dwInOutMode)
.SubItems(3) = IIf(IsNull(timeStr), "", timeStr)
EndWith
i = m.i + 1
lvX.Refresh
enddo
EndIf
- smentes
- Uzman Üye
- Offline
Re: Text Dosyayı dbf yapma
Çetin bey çok teşekkürler. İşlem tamam