[VBA] Optik Form okuma
#7
Sayın martineden-30
Dat dosyasını accese tablo olarak aldım. Sizin yazdığınız değerler ile dat dosyası içeriği eşleşmiyor kimi yerde geniş boşluklar bulunurken kimi yerde hiç boşluk yok. yaklaşık 5 saattir bunun mantığını arıyorum ancak başarılı olduğumu söyleyemem. Size kullanıcı olarak başvurmak durumunda kaldım dat dosyası içeriğini notepad ile açıp bakın sizin dediğiniz gibi mi?. Cevabınızı bekliyorum . İyi çalışmalar
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#8
Sayın Adnan Yurdakul
öncelikle harcadığınız emeklerden dolayı teşekkür ediyorum.
dat dosyası içeriği aynen dediğim gibi. zaten öyle olmak zorunda.
mesela cevap anahtarındaki Türkçe testinde 1. soru öğrencinin Türkçe testindeki birinci soruya denk gelmeli. 2. soru yine öyle. anlayacağınız tüm sorular alt alta olmalı.

ayrıca olmuyorsa çok uğraşmanız gerekmiyor. ben böyle birşey mümkün mü diye sormuştum. Access Sql sayesinde birşeyler öğrendim. ilginiz için ayrıca sağolun...



  Alıntı
Bu mesajı beğenenler:
#9
ayrıca belirtmem gereken bir şey daha var.
biliyorsunuz ki bir çok optik form çeşidi var. bunları optik okuyucuda okutmak için FMT uzantılı dosyalar lazım. optik formlara göre FMT dosyasını hazırlıyorum ve ardından okutuyorum.
size değerlerini gönderdiğim sadece bir optik form için geçerli. bu nedenle iş daha da karmaşık hal alır.



  Alıntı
Bu mesajı beğenenler:
#10
siz dat dosyasına baktınız mı? Meraktan soruyorum ben mesela öğrenci numarasını bulamadım sizdeki dosya farklımı. Ayrıca olmuyor diye bir şey yok
mesela
AYŞENUR SANSAR 001 7 BK186920661980 CDADBABCDDAAB C CDACD ADCCA ADC DBCCDCC BDAB ACCDBDBDDCDD ADABB


bu öğrenciye ait bilgiler 2.satırdaki C nereye ait öğrenci nosu kac ben tespit edemedim
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#11
Sayın Adnan hocam
evet dat dosyasını tekrar inceledim.
belki size gönderdiğim örnekte öğrenci numarası yazılı değil ama csv dosyasında belirttim. kurum kodundan (001) sonraki 5 tane boşluk öğrenci numarası olarak geçiyor. orada yazılı olmadığında o kısım boş kalıyor. csv dosyasında hangi alanın kaç karakterden oluştuğunu belirttim.
ayrıca sizi yorduğum için özür diliyorum.
ben biraz uğraşırım. en azından başlangıcını yaparım. sonra takıldığımda teker teker sorarım sorularımı.
tekrar teşekkür ediyorum hocam.



  Alıntı
Bu mesajı beğenenler:
#12
Sayın martineden-30
evet csv de belirtmiştiniz ancak ben dat dosyasınıda doğru kabul edip ona göre döngüler kurmuştum tabiiki hep yanlış çıkıyordu. Madem siz uğraşacaksınız. Size Dat dosyasını accese tablo olarak alma kodunu vereyim. Onu kullanın.
Visual Basic
  1. Sub bilgicek(strYol As String, strTabloadi As String)
  2. Dim objDosyaSistemi
  3. Dim objDosya
  4. Dim strKopyalanacakDosya As String
  5. Dim intPozisyon As Integer
  6.  
  7. Set objDosyaSistemi = CreateObject("Scripting.FileSystemObject")
  8.  
  9. Set objDosya = objDosyaSistemi.GetFile(strYol)
  10. intPozisyon = InStr(objDosya.Name, ".")
  11. If intPozisyon > 0 Then
  12. strKopyalanacakDosya = Left(objDosya.Name, intPozisyon - 1) & ".txt"
  13. Else
  14. strKopyalanacakDosya = objDosya.Name & ".txt"
  15. End If
  16.  
  17. objDosya.Copy strKopyalanacakDosya, True
  18. DoCmd.TransferText acImportDelim, , strTabloadi, strKopyalanacakDosya, True
  19. End Sub


Kullanımı ise
Visual Basic
  1. Private Sub Komut0_Click()
  2. bilgicek "C:\Users\Cem\Downloads\7.sınıf\7.sınıf.dat", "adnan7sınıf"
  3. End Sub


şeklinde olabilir yol ve dosya adı değiştirilmeli
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Vba Okuma Hatası metınaycıcek 4 369 24-09-2023, 23:46
Son Mesaj: metınaycıcek
  [FORM] Tüm Kelimelerde Sesli Okuma örneği bozuk arşiv hatası orderyazbim 3 2.068 07-06-2023, 09:22
Son Mesaj: ates2014
  Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası OGUZTURKYILMAZ 3 690 13-04-2023, 23:39
Son Mesaj: OGUZTURKYILMAZ
  [VBA] Text Dosyasına Yazma, Okuma, Düzenleme A.Serdar 4 512 19-01-2022, 12:13
Son Mesaj: halily
  Optik Form Okuyucu adnnfrm 2 645 09-05-2021, 19:15
Son Mesaj: adnnfrm
  [FORM] form açıp form gizleme sorunu hersey 4 2.168 28-03-2018, 00:14
Son Mesaj: hersey
  [FORM] Tek Form üzerinden birden fazla form açmak. m_demir 2 1.819 27-01-2018, 21:07
Son Mesaj: m_demir
access-sql-9 [FORM] Yazılı /Sınav/ Optik Okuyucu arackiralama 1 3.758 20-01-2018, 11:44
Son Mesaj: romanci

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi