Karakter Sayacı ve Birleştirme

[serinci]

Merhabalar,

Düzenlemeye Çalıştığım bir uygulamada, Metin Dosyasına Excelde Olan verileri yazdırmam gerekmekte,

Ancak Metin Dosyasının bir şablonu mevcut bu şablona göre Rakamlar arasında Nokta ve Virgül olmayacak yani 1.235,00 olan rakam metin dosyasına 123500 olarak kaydedilecek, aradaki , ve . karakterlerini kaldırmayı bir fonksiyonla yapıyorum.

Ancak Metin Dosyasının 2. Şartı ise rakamların 17 hane olması yani 123500 yerine metin dosyasına kaydolurken 00000000000123500 şeklinde kaydolması gerekmekte, rakamların metin dosyasına bu şekilde kaydedilmesini nasıl sağlarım,

 

[dEdE]

Merhaba,
Örnek dosya ekler misiniz?

 

[Necdet]

Merhaba,

Ekteki kodları kendinize uyarlayınız.

Sub TextYaz()
Open "c:\Deneme.txt" For Output As #1
For i = 1 To [A65526].End(3).Row
    Sayı = Int(Cells(i, "A"))
    Kurus = (Cells(i, "A") - Sayı) * 100
    Print #1, Format(Sayı, "000000000000000") & Format(Kurus, "00")
Next i
Close #1
End Sub

 

[serinci]

Merhaba,

ilgili dosya ektedir. TXT yap butonuna basınca ekteki txt formatına dönüşmösi gerekmekte, Kuruş haneleri her zaman 00 değil tabloda ne ise o şekilde yaılacaktır.

XLS Dosyası : www.serinci.com/destek/KUR_TXT.xls
TXT Dosyası :www.serinci.com/destek/kurlar.txt

 

[Necdet]

Merhaba,

İlgili yerleri kendinize göre düzenleyiiz.

Sub MetinDosyasiDuzenle()
Dim i As Long
Open "[B][COLOR=red]c:\Deneme.txt[/COLOR][/B]" For Output As #1
For i = 6 To [A65536].End(3).Row
    Satır = Cells(i, "B") & Space(4 - Len(Cells(i, "B"))) & _
            Format(Cells(i, "A"), "yyyymmdd") & _
            Format(Cells(i, "C") * 10000, "00000000000000000") & _
            Format(Cells(i, "D") * 10000, "00000000000000000") & _
            Format(Cells(i, "E") * 10000, "00000000000000000") & _
            Format(Cells(i, "F") * 10000, "00000000000000000")
     Print #1, Satır
Next i
MsgBox "İşlem Tamamdır..."
End Sub

 

[serinci]

ilginiz için teşekkür ederim dosya sorunsuz olarak çalışmakta ve oluşan dosya paket programıma otomatik olarak bilgileri import etmekte,

böylece paket programım online döviz güncelleme özelliği kazanmış oldu

 

[Necdet]

çaktırmadan da bende dosyanızı arşivime aldım.