Dış veri alma işlemlerinin otomatikleştirilmesi

mehmetdemiral · 5 Mayıs 2008

Arkadaşlar.. Hazırladığım bir program için .txt uzantılı $ ile ayrılmış verileri access'e almam gerekiyor. Bir başka programla oluşturulmuş bu veriler metin belgesi olarak .txt uzantılı kaydedilmiş. Her bir veri arasında $ işareti mevcut ve böylece $ ayıraçlı olarak verileri sorunsuz olarak alabiliyoruz. Ama bu veri yapısı her birim için farklı farklı uzantıya sahip. Yapıları tamamen aynı. Verilerin alma işlemini tamamen otomatik yapmamız gerekiyor. Yani kullanıcı verileri gözat düğmesi gibi bir düğme ile seçecek ve verileri aktar diyecek. Bunun dışında herhangi bir işlem yapmayacak. Alınacak veriler access'teki bir tablo yapısı içerisine gelecek ve daha sonra veriler üzerinde bazı değişimler yapacak. İşi tamamlandığında da işlem tersine işleyecek ve verileri tekrar bir metin dosyası şeklinde ve yine aynı yapı şeklinde -yani $ ayıraçlı olarak- dışa gönderecek.

Bu işlemleri ben elimle yapabiliyorum. Nasıl yapıyorum? Şöyle.. Access'i açıp tablo al komutunu çalıştırıp tablo türü olarak metin dosyasını seçiyorum ve txt uzantılı dosyayı gösteriyorum. Access bana nereye alayım diye soruyor. Yeni bir tabloya oluştur, oraya al diyorum. Yapı içerisinde metin belgesinin verilerinin $ ile ayrıldığını gösteriyorum. Bu arada yazı karakterlerinde Türkçe karakterlerde sorun oluştuğu için kodlama dilini de Gelişmişe basıp windows Türkçesi olarak değiştiriyorum. Bu arada alan23 diye bir alanın verilerinde tutarsızlık oluştuğu için onun sayı olarak gelen özelliğini de metin olarak değiştiriyorum. Ve verileri almaya başlıyorum. Verirken de aynı işlemlerin tersini yapıyorum.

Şimdi, bu işlemleri işi bilmeyen bir kullanıcı için nasıl otomatiğe bağlarım?. Asıl sorun bu. Ayrıca gelen dosyalar farklı uzunluklarda her mahalle için farklı adlarda gelecek. Yani A mahallesinin dosyasını seçip bu işlemler yapılıp bitince B mahallesinin işlemlerine başlayacak. Dosyaları da manuel seçmemiz gerekiyor yani..

Bu konuda fikri olan arkadaşlar aranıyor

)))

modalı · 5 Mayıs 2008

Sayın mehmetdemiral,

Sayın karaayhana yardım etmiştim. Modüle bir fonksiyon yazarsınız. Değişkeni seçeceğiniz dosyanın tam yolu olur. O fonksiyon içinde de istediğiniz değişiklikler yapılıp geçici bir tabloya kaydedilecek. Sonra o tablodan veriler teker teker alınıp dıştaki text dosyasına kaydedilecek.

Bir örnek üstünde çalışmak daha iyi.

İyi çalışmalar

karaayhan · 5 Mayıs 2008

evet sayın modalı bu konuda yardım etti ve hala sırf bu konu için bile müteşekkirim kendisine,
bu vesile ile bir kez daha sonsuz teşekkürlerimi sunarım...

link aşağıda ;

http://www.excel.web.tr/showthread.php?t=25344&highlight=bilinmeyen+veritaban%FDndan+veri+almak

mehmetdemiral · 5 Mayıs 2008

Arkadaşlar.. Çok teşekkür ederim hemen inceliyorum..

mehmetdemiral · 5 Mayıs 2008

Sayın modalı kutluyorum.. Bu kadar olur yani.. Böylesi bir txt dosyasından hatasız veri almak bile mümkünmüş demekki.. Benim örneğimdeki txt dosyası karaayhan'ın kaynak dosyasının yanında zemzem suyuyla yıkanmış sayılır

)) Demek istiyorum ki, benim dosyamda veriler $ ile birbirinden ayrılmış. O yüzden alanlar belli bir sayıda değil. Yani sizin örneğinizde alanlar arası sanıyorum tab sekmesi ile ayrılmış. Oysa benim örneğimde $ ile ayrıldığı için alanlar belli noktalarda başlayıp bitmiyor. Mesela bir sayaç no alanı var, bazısında 3 karakter bazısında ise 8 karakter gibi.. İşin doğrusu kaynakların yapıları çok farklı gibi geldi bana.. O yüzden kafam iyice karıştı. Ben bu çevirme işleminde de kendi dosya örneğimi göndererek yine yardım talep edeceğim sizden. Bu arada rar dosyam içinde bir de excel örneği var. O da örnek olarak "işte madde başlıkları bu şekilde olacak" denilerek bana verildi. Yani sütun başlıkları orada yazılı. Çünkü orijinal txt dosyasında sütun başlıkları yok. Yanlış anlaşılmasın yani excele göre falan yapmayacağım. Access'te formunu falan oluşturuyorum şu anda ama verileri manuel alıyorum. Sizin kodları deneyip: "dosya bulunamadı göstermek ister misiniz?" diye sorması ve gösterdiğim dosyanın da adının "kaynak" olmamasına bakmaması süper işime yarıyor. Çünkü kurumdan gelen txt dosyalarının orijinal adları
4ac91038-5a7b-4623-a1ff-eb16123e2fa9AboneBilgileri.txt

falan biçiminde... Fakat benim dosyamın içeriğini kodlara nasıl uygularım veya nereleri değiştirmem gerek anlayamadım. Zamanınız olursa yardım eder misiniz?.. Selamlar..

yeni54 · 6 Mayıs 2008

Sayın Mehmet Demiral, split deyimini inceleyiniz.

mehmetdemiral · 6 Mayıs 2008

Sevgili yeni54
mid komutunun yerine kullanmak için mi?

Sanırım şöyleymiş

kelime = split(cumle, "$" )

yeni54 · 6 Mayıs 2008

Küçük bir örnek vereyim, sizi kendi programınıza uyarlayın.

Kod:

okunanCumle="qqqq$www$eee$rrr$ttt" ' olsun
strArray = split(okunanCumle,"$")
for i=0 to Ubound(strArray)
    msgbox strArray(i)
next i

mehmetdemiral · 6 Mayıs 2008

Aynı anda yazmışız

)

mehmetdemiral · 6 Mayıs 2008

Sayın Yeni54.... Bunu modalı'nın örneğine nasıl uygulayacağımı çok anladığımı söyleyemeyeceğim. Mümkünse örnek üzerinde gösterir misiniz?

Veri al komut düğmesinde şu kodlar varmış:

Sub OpenTextFileTest()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs, f
Dim name, name1, text, path As String
Dim txtLen, adetYıldız, adetTarih As Long
Dim cnn As New ADODB.Connection
Dim rst As New Recordset
Dim fileName As String
Dim result As Integer
'On Error GoTo Çıkış
On Error GoTo Err

path = CurrentProject.path
name = path & "\kaynak"
'name1 = "kaynak"

strFilePath = fReturnFilePath("kaynak", CurrentProject.path)

If strFilePath <> name Then
Response = MsgBox("Dosya bulunamadı yerini belirtmek ister misiniz?", vbYesNo, "UYARI")
If Response = 7 Then
Exit Sub
End If
name = getFileName

Response = MsgBox("Dosya bulundu verileri yüklemek ister misiniz?", vbYesNo, "UYARI")
If Response = 7 Then
Exit Sub
Else

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.OpenTextFile(name, 1, -2)
'f.Visible = False

text = f.ReadAll

End If
End If

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.OpenTextFile(name, 1, -2)
'cnn yi mevcut vt bağlantısı olarak ayarlıyoruz
'rst olarak cnn bağlantısında bulunan tblAlınan Veriler tablosunu ekleme yapmak üzere
'açıyoruz.

Set cnn = CurrentProject.Connection
rst.Open "tblAlınanVeriler", cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect

'f dosyasının sonu gelene kadar çevrimi çalıştırıyoruz(bugün AtEndofStream i arıyordum)

Do While f.AtEndofStream <> True

'text değişkenine f deki satırları okuyup metni atamasını sağlıyoruz

text = f.readLine

'Eğer text değişkeninin ilk karakteri * ise

If Mid(text, 1, 1) = "*" Then

'rst kayıt kümesine yeni bir kayıt ekliyoruz parantez içine
'0 başlayarak alan indexlerini veya adlarını yazabiliyoruz
'Trim le aldığımız metnin sağ ve solundaki boşlukları temizliyoruz
'Mid ile ilk sırada text metninin 2. karakterinden başlamak üzere 6 karakter seçiyoruz
'Burada dikkat edilecek konu, metin dosyası yazılırken kayıtlar arasında
'boşluk bırakıldı bunları da göz önüne almak gerekiyor. Ben kaynak dosyasını notpad de açıp
'oradan sayarak buldum sayıları. Ve adım adım ilerliyerek
'İleti kutusuyla verileri teker teker kontrol ettim

rst.AddNew
rst("Sıra") = Trim(Mid(text, 2, 6))
rst("DoğumTarihi") = Trim(Mid(text, 8, 4))
rst("KütükNo") = Trim(Mid(text, 13, 4))
rst("TCKimlikNo") = Trim(Mid(text, 18, 11))
rst("Durumu") = Trim(Mid(text, 30, 120))
rst("Soyadı") = Trim(Mid(text, 151, 50))
rst("Adı") = Trim(Mid(text, 202, 50))
rst("DiğerAdı") = Trim(Mid(text, 253, 50))
rst("BabaAdı") = Trim(Mid(text, 304, 50))
rst("DiğerBabaAdı") = Trim(Mid(text, 355, 50))
rst("AnaAdı") = Trim(Mid(text, 407, 50))
rst("DiğerAnaAdı") = Trim(Mid(text, 457, 50))
rst("Köy/Mahalle") = Trim(Mid(text, 509, 50))
rst("AileSıraNo") = Trim(Mid(text, 560, 2))
rst("CiiltNo") = Trim(Mid(text, 563, 12))
rst("SayfaNo") = Trim(Mid(text, 576, 2))
rst("NüfusKayıtİli") = Trim(Mid(text, 579, 50))
rst.Update
End If

Loop

'f metin dosyasını kapatıyoruz
f.Close

'İlerde hataların önüne geçmek için mutlaka işin sonunda
'tüm ayarları hiçbirşey ile eşitlememiz gerekiyor

Set f = Nothing
Set fs = Nothing
Set rst = Nothing
Set cnn = Nothing
Err:
If Err.Number = 62 Then
MsgBox "Belirttiğiniz dosya boş", vbOKOnly, "UYARI"
Else
'MsgBox Err.Number
End If
Exit Sub
Çıkış:

'DoCmd.Quit
End Sub

Sanırım özellikle şu kodların yenileriyle değişmesi lazım ama nasıl?

rst.AddNew
rst("Sıra") = Trim(Mid(text, 2, 6))
rst("DoğumTarihi") = Trim(Mid(text, 8, 4))
rst("KütükNo") = Trim(Mid(text, 13, 4))
rst("TCKimlikNo") = Trim(Mid(text, 18, 11))
rst("Durumu") = Trim(Mid(text, 30, 120))
rst("Soyadı") = Trim(Mid(text, 151, 50))
rst("Adı") = Trim(Mid(text, 202, 50))
rst("DiğerAdı") = Trim(Mid(text, 253, 50))
rst("BabaAdı") = Trim(Mid(text, 304, 50))
rst("DiğerBabaAdı") = Trim(Mid(text, 355, 50))
rst("AnaAdı") = Trim(Mid(text, 407, 50))
rst("DiğerAnaAdı") = Trim(Mid(text, 457, 50))
rst("Köy/Mahalle") = Trim(Mid(text, 509, 50))
rst("AileSıraNo") = Trim(Mid(text, 560, 2))
rst("CiiltNo") = Trim(Mid(text, 563, 12))
rst("SayfaNo") = Trim(Mid(text, 576, 2))
rst("NüfusKayıtİli") = Trim(Mid(text, 579, 50))
rst.Update
End If

mehmetdemiral · 6 Mayıs 2008

Vb kodları konusunda eksiklerim çok. Daha çok ana komutları biliyorum. Onları da örnekler üzerinde uygulayarak falan öğrendim. Bu da bahsettiğim işleri oldukça zor hale getiriyor benim için. Bazen diyorum ya, modalı, yeni54 ve beab05 için 3 satırlık kodla yapılacak işleri ben 8 tane sorgu, 12 tane makro, 24 tane de tablo ile yapabiliyorum. Visual (Görsel) programlama benim yaptığım olsa gerek

)))

yeni54 · 6 Mayıs 2008

text = f.readLine
satırına kadar aynı olduğunu kabül edelim. (buradaki text örneğimizdeki okunan cümle oluyor)
strArray = split(text,"$")
rst.AddNew
rst("Telefon_No") = strArray(0)
rst("Cep_Telefon_No") = strArray(1)
....
rst.update

Burada kırmızı ile yazılı olanlar, sizin tablonuzun alanları olacak.

mehmetdemiral · 6 Mayıs 2008

Çok sağol yeni54... Deneyeceğim yarın. Çünkü sabah 5.30'da kalkmam lazım. Yarın okul var. 6.15'de servis... Birazdan yatarım artık. Hemen denemem mümkün değil çünkü bütün alan adlarını benim örneğime uydurmam veya karaayhan'ın txt tablosunu benim $ seperatorlu hale benzetmem lazım. Artık yarın inşallah.... Çok teşekkürler... Siz de olmasanız.....

mehmetdemiral · 6 Mayıs 2008

Bu arada tüm bunlar içe aktarım için. Modalı'nın dediği gibi bunları daha sonra tekrar txt olarak dışa aktarmak için bu yol tersine nasıl çalışacak?

mehmetdemiral · 6 Mayıs 2008

Biz de içe aktardık da neleri düşünmeye başladık.

)

mehmetdemiral · 6 Mayıs 2008

Sayın yeni54
Yine de dayanamadım ve işi hızlandırmak için karaayhan'ın verilerini $ aralıklı olarak düzenledim (Sadece bir cümlesini).. Modalı'nın veri al düğme yordamındaki kodlarını da sizin belirttiğiniz gibi düzenledim. Şöyle:

text = f.readLine

'Eğer text değişkeninin ilk karakteri * ise

'If Mid(text, 1, 1) = "$" Then

'rst kayıt kümesine yeni bir kayıt ekliyoruz parantez içine
'0 başlayarak alan indexlerini veya adlarını yazabiliyoruz
'Trim le aldığımız metnin sağ ve solundaki boşlukları temizliyoruz
'Mid ile ilk sırada text metninin 2. karakterinden başlamak üzere 6 karakter seçiyoruz
'Burada dikkat edilecek konu, metin dosyası yazılırken kayıtlar arasında
'boşluk bırakıldı bunları da göz önüne almak gerekiyor. Ben kaynak dosyasını notpad de açıp
'oradan sayarak buldum sayıları. Ve adım adım ilerliyerek
'İleti kutusuyla verileri teker teker kontrol ettim

strArray = Split(text, "$")
rst.AddNew
rst("Sıra") = strArray(0)
rst("DoğumTarihi") = strArray(1)
rst("KütükNo") = strArray(2)
rst("TCKimlikNo") = strArray(3)
rst("Durumu") = strArray(4)
rst("Soyadı") = strArray(5)
rst("Adı") = strArray(6)
rst("DiğerAdı") = strArray(7)
rst("BabaAdı") = strArray(8)
rst("DiğerBabaAdı") = strArray(9)
rst("AnaAdı") = strArray(10)
rst("DiğerAnaAdı") = strArray(11)
rst("Köy/Mahalle") = strArray(12)
rst("AileSıraNo") = strArray(13)
rst("CiiltNo") = strArray(14)
rst("SayfaNo") = strArray(15)
rst("NüfusKayıtİli") = strArray(16)
rst.Update
'End If

Fakat sonuç alamadım. StrArray ifadesinden sonraki parantez içi sayıları acaba bir yerlerde düzenleme yapmamı mı gerektiriyor. Bu yapıya göre onlar $ işaretlerini saymıyor mu? Ben öyle düşündüm. Fakat veri al deyip tabloyu göstermeme rağmen dosyayı gösterip tamam dediğimde program kitlenip kalıyor. Herhangi bir mesaj veya hata vermiyor. Çalışmayı olduğu gibi ekliyorum. Bir de siz deneyin nerde hata yaptım?..

mehmetdemiral · 6 Mayıs 2008

Neyse hallettim.. Verilerin tam 16 adet $ içermesi gerekiyormuş. Ben baştaki $'ı silince sonda da olmayınca çalıştı. Çok teşekkürler sevgili yeni54, modalı ve karaayhan.. Çok büyük bir yardım ettiniz bana üçünüz de..Şimdi alan adlarını da düzenlersem herhalde bu iş ok. Bir de geri yükleme kafamda soru işareti. Bakalım ona da sıra gelince yardımlarınızı isterim yine

)) Aslında form üzerinde Veri ekle tuşuyla sanırım modalı yapılan değişiklikleri kaynak dosyaya yazdırmak istemiş, fakat dosya adı "kaynak" olmayınca -hem de uzantısız olmalı, txt falan değil- kendisi o klasöre "kaynak" adlı bir dosya atıyor. Fakat dosyanın içi boş oluyor. Dış veri gönderme ile ilgili modalının yardımına ihtiyacım var anlaşılan.. İnşallah sesimi duyar

)

Zeki Gürsoy · 6 Mayıs 2008

Eğer fieldlar düzenliyse kod kısalablir.

Kod:

strArray = split(text,"$")
rst.AddNew
for i=0 to ubound(strarray)
rst(i) = strArray(i)
next
rst.update

*******************************
MS Jet ile de alınabilir. Delimiter = ; olan örnek aşağıdadır.
http://www.excel.web.tr/showthread.php?t=41918&highlight=text

mehmetdemiral · 6 Mayıs 2008

Arkadaşlar veri alma konusunda tüm işi hallettim. Çalışıyor, fakat 998 adet kayıt aktarabiliyorum. Buna anlam veremedim. Kayıtlar da özel bir kurumun verileri olduğu için buraya tamamen ekleyemiyorum. İçinde birsürü insanın telefonu adresi falan mevcut. Ne olur ne olmaz.. Fakat formu ekleyeyeim bir inceleyin ne gibi bir hata var. Modalı daha önce bir read satırında
text = f.ReadAll
değişikliği yaptırmış. Neden aktarma konusunda 998 kayıtttan yukarısını aktarmaz ki? Anlam veremedim.
Denemek için daha önce gönderdiğim orijinal dosyanın -txt- eksiltilmiş halini kullanabilirsiniz.

mehmetdemiral · 6 Mayıs 2008

Sanırım adresi 50 karakterden uzun olunca program veri aktarımını kesiyor. Çünkü bir başka dosyada kesildiği yerde uzun bir adres var. O zaman geçici tabloyu Not yapacağım bakalım ne oluyor.

Dış veri alma işlemlerinin otomatikleştirilmesi

Uzman