DOS tabanlı veri tabanını açmak

[ilkaykteke]

Eski tip bir netsisden aldığımız datalar var. Ancak programda olan bir sorundan dolayı açamıyoruz. Dosyalar .dat uzantılı. Bunları ne şekilde açabiliriz? Yardımcı olursanız sevinirim.

 

[Orion1]

Bu dosyaları not defteri ile açabilirsiniz.
Exceldede bu şekilde verileri alabilirsiniz.Kaç değişken varsa o kadarı kullanın.

Sub dosya_oku()
Open "C:\Belgelerim\deneme1.[B][COLOR="Red"]dat[/COLOR][/B]" For Input As #2
sat = 2
Do While Not EOF(2)
Input #2, a, b, c, d, e
Cells(sat, 1).NumberFormat = "#,##0.00"
Cells(sat, 2).NumberFormat = "#,##0.00"
Cells(sat, 3).NumberFormat = "#,##0.00"
Cells(sat, 4).NumberFormat = "#,##0.00"
Cells(sat, 5).NumberFormat = "#,##0.00"
Cells(sat, 1) = a: Cells(sat, 2) = b
Cells(sat, 3) = c: Cells(sat, 4) = d: Cells(sat, 5) = e
sat = sat + 1
Loop
Close #2
MsgBox "Dosya Okuma Bitti"
End Sub

 

[modalı]

Büyük bir ihtimalle text dosyaları halindedirler. Sağ klikleyip not defteriyle açmayı denediniz mi?

Mümkünse bu dosyalardan bir tanesini ekleyebilirmisiniz. Bir bakıp nasıl yardımcı olabileceğime karar vereyim.

İyi çalışmalar

 

[ilkaykteke]

teşekkür ederim ilginize ama bunlar dos tabanlı. tüm karakterler kutucuk şeklinde çıkıyor. herhangi bir karakter belli olmuyor. isteyene özelden atabilirim dosyaları.

 

[Orion1]

teşekkür ederim ilginize ama bunlar dos tabanlı. tüm karakterler kutucuk şeklinde çıkıyor. herhangi bir karakter belli olmuyor. isteyene özelden atabilirim dosyaları.

Not defterindemi baktınız.Kutucuk şeklinde çıktığını gördünüz.
Eğer öyleyse dosya bozulmuş.

 

[modalı]

teşekkür ederim ilginize ama bunlar dos tabanlı. tüm karakterler kutucuk şeklinde çıkıyor. herhangi bir karakter belli olmuyor. isteyene özelden atabilirim dosyaları.

Sayın ilkayteke,

modali2006@hotmail.com a yollayabilirsiniz.

İyi çalışmalar

 

[ilkaykteke]

mail attım dosyaları