Sabit boşluklu txt yapmak için sifir ve boşluk ekleyen fonksiyon
#1
Merhaba Arkadaşlar,
Malumunuz verileri txt yapmak veya almak için 2 yöntem kullanılıyor.
1- Sınırlandırılmamış ( Sabit Boşluşlu )
2- Sınırlandırmış (Özel işaretlerle ayırırma)

Access ortamındaki sorgu ve tabloyu txt yaparken,
Sınırlandırılmamış (Sabit Boşluklu) veri gerekli olduğunda işe yarayacak kendi yazdığım 2 fonksiyonu gönderiyorum.
Umarım faydalılı olur.
Saygılarımla.

Function SifirEkle(Saha, Adet) As String
Dim i As Integer
Say = Len(Saha)
Fark = Adet - Say
Sifir = ""
For i = 1 To Fark
Sifir = Sifir & "0"
Next i
SifirEkle = Sifir & Saha
End Function

Function Bosluk(Saha, Adet) As String
Say = Len(Saha)
Fark = Adet - Say
Bosluk = Saha & Space(Fark)
End Function


Eklenti Dosyaları
.zip   TXT.zip (Boyut: 15,79 KB / İndirilme: 58)



  Alıntı
Bu mesajı beğenenler:
#2
Sayın metinse çok teşekkürler..

Faydalı ve başarılı çalışmalarınızın devamını bekleriz.. Bu son çalışmanızı KOD BANKASI'na ekledim..



  Alıntı
Bu mesajı beğenenler:
#3
Sayın Metinse
Çok güzel bir kod
Ellerinize sağlık
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#4
Merhaba Arkadaşlar,
Sayıları txt alanına yazarken kuruş için aşağıdaki işlemi yapmak gerek.
Önce 2 den fazla ondalık saha için için round ile 2 ondalık alınır ve sayısal saha 100 ile çapılarak ondalıktan kurtarılır. Tabi txt dosyası accesse tekrar alınması gererirse 100 bölünür.
Örnek:
SAYI=125,159
SAYI1:Round([SAYI];2)*100
sonuç 12516 olur.
TXT:SifirEkle([SAYI1], 10)
Sonuç: 0000012516 olur.

Saygılarımla.



  Alıntı
Bu mesajı beğenenler:
#5
merhaba metinse, ilk mesajdaki örneği indirdim. sormak istediğim birkaç şey var ama yardımcı olursanız sevinirim. yapmak istediğim uygulama örneğini ekliyorum. bu örnek üzerinden anlatırsam sanırım daha açıklayıcı olur. ürünlerimizin barkodlarından okutup adetlerini yazmak sonrasında okutmuş olduğumuz bu barkodları ve adetleri (bilgileri geçici tabloda tutabiliriz) herbiri farklı bir txt dosyaya kaydetmek. a firmasından gelen ürünlerin dosyası a.txt vs. gibi bu txt leri daha sonra farklı bir programdan okuttuğumda veritabanındaki ürün barkodları ile karşılaştırıp fatura-irsaliye ve diğer kısımlarda kullanmak istiyorum. txt deki kullanmak istediğim format şu şekilde

12345670..............................;4 (noktalı olan kısım boşluk olması gerekiyor. ama forumda boşluk kabul etmedi)
1234567890123456789012345;355

ilk kısım barkod ; sonraki kısım adet

txt deki dizaynım bu olmalı. umarım anlatabilmişimdir. acemi olduğumuz için sizin örnekte ayarlayamadım. yani barkod 8 karakterde olsa 25 karakterlide olsa hep aynı boşluk olmalı ki farklı programda okuttuğumda stok kodları ile karşılaştırma yapıp sorunsuz olarak aktarım olabilsin.


Eklenti Dosyaları
.rar   TXTYE_KAYIT.rar (Boyut: 46,05 KB / İndirilme: 8)



  Alıntı
Bu mesajı beğenenler:
#6
bence yapman gereken bu
1234567890123456789012345;355
sayısını veya metnini
";" karakterini kriter olarak kabul edip
iki kısma ayırmak
ilk kısım barkod ikinci kısım adet olacak
böylece uzunluk fark etmeyecek
ben nasıl yazılacağını bilmiyorum ama olması gereken bu bence



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-6 64 Bit Versiyonlardaki Deklarasyon Kaynaklı Fonksiyon Hataları Taruz 16 15.874 10-01-2019, 19:35
Son Mesaj: dsezgin
  İki Tarih Farkını "YIL-AY-GÜN" Veren Fonksiyon (DateDiff_ze_bb) Zeki Gürsoy 21 26.681 18-03-2017, 05:11
Son Mesaj: dsezgin
  Resim Dosya EkleME Saklama ve Gösterme (Sıfır kodla birkaç tıkla Form ve Rapor) Mehmet Eser 11 19.683 24-07-2014, 20:56
Son Mesaj: mengene
access-sql-3 YazME: MsgBox inputBox için satır atlama ve girintileme (Parametreli fonksiyon) Mehmet Eser 6 7.770 01-05-2012, 13:00
Son Mesaj: aydın3838
access-sql-10 Yeni Access Dosyasının Varsayılan adını AVT yapmak. Mehmet Eser 4 2.505 30-04-2012, 09:06
Son Mesaj: makrovba
  Sabit bir karaktere göre yer değiştirme beab05 4 3.856 13-03-2008, 01:31
Son Mesaj: beab05

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):