List boxtan txt dosyasına veri aktarımı

[a_self_lion]

Selam arkadaşlar benim excelde sizlerin yardımı ile yapmış oluduğum proğramımda listbox 5 inci sırada bulunan sayısal ve harflerden oluşan bilgilerimi c:\devir dosyası içinde bulunan gecis.txt dosyama aktarabilirmiyim. ama her seferinde gecis.txt dosyası içindeki bilgiler tamamen silinsin ve en son aktardığım kalsın. mümkünmüdür.

 

[a_self_lion]

 

[zafer]

Merhaba

Excel dosyanızı ekleyebilirmisiniz.

 

[zafer]

Merhaba

Kolon sayısı 8 olarak verilmiştir.

Private Sub CommandButton1_Click()
pth = "c:\devir\gecis.txt"
Open pth For Output As #1
    For sut = 1 To 8
        veri = veri & ListBox1.List(4, sut - 1) & vbTab
    Next sut
    Print #1, veri
Close #1
End Sub

 

[a_self_lion]

Çok Teşekkür ederim sayın Zafer Bey Kodlarınızı denemedim deneyip yapamazsam dosyamı size ekleyeceğim.

 

[a_self_lion]

Sayın Zafer Bey Dosyayı ekliyorum size

Şimdi kısaca yapmak istediğimi anlatacak olursam size;

Cari isim den birisini seçip enter e basınca o kişiye ait bilgileri borçlarını list box a getiriyor. Burdan da eğer ödeme yapmış ise şahıs list box da ListBox1.MultiSelect = fmMultiSelectMulti özelliği sayesinde bütün ödenenleri seçip option1 i seçip Cmd_Sec_kaydet butonuna basınca aşağıdaki kodlar yardımı ile listbox daki verilere göre excelde veri sayfasındaki verilerime ödendi olarak kaydediyor ve tarihini dtpicker1 den okuyarak yazıyor.

Benim burda sizden istediğim List Box dan

0 1 2 3 üncü sırada bulunan Barkod sutunu ve .......16 sıra da bulunan MlzKod sutunu txt dosyasına ikiside 16 karekter olarak atabilirmiyiz ikisi arasında atarken 1 boşluk olucak örnek txt dosyası da

8690101111419___B700_0505________
olacaktır

Private Sub Cmd_Sec_kaydet_Click()
' list box ta seçilmiş olan kayıtları ödendi olrak işaretler

ListBox1.MultiSelect = fmMultiSelectMulti
'Eğer (Ali Geldi) ve (Ayşe Geldi) ve (Mehmet Geldi) iseler (Ekip tamam demektir)

If (OptionButton1 = False) Then
MsgBox "Malzeme Seçiminizden Sonra Ödendi Opsiyonunu Seçmelisiniz."
Exit Sub
End If


Dim aktifdeger As Integer

ListBox1.SetFocus


For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then


Text_SNo = ListBox1.List(i, 0)

Com_Bilgi = ListBox1.List(i, 10)


If OptionButton1 = True Then
Text_Bilgi = "ÖDENDİ"

End If

aktifdeger = CInt(Text_SNo.Text) + 1

Cells(aktifdeger, 11) = Text_Bilgi.Text
Cells(aktifdeger, 12) = DTPicker1.Value

End If
Next
OptionButton1 = False


Listboxveriaktar_Click
MsgBox "Seçilenlerin hepsi ÖDENDİ olarak Kaydedilmiştir.!", vbInformation
End Sub

Yardım ederseniz çok sevineceğim.

 

[zafer]

Merhbaba

Listboxa bilgiler geliyor.Ama sizin dediğiniz gibi listbox 0 1 2 3 nolu sütunlar barkoda ait değil.

Siz hangi sayfadaki hangi bilgilerin text dosyasına aktarılacağını söyleyebilirmisiniz.
veya userformda cari seçip entere basınca listboxa gelen bilgilerden hangilerinin text dosyasında görmek istiyorsunuz.istenen bilgiler nelerdir.

 

[a_self_lion]

Sayın Zafer bey istediğim bilgiler 3 nolu ve 16 nolu sutunlar gelmesini istiyorum.

 

[a_self_lion]

Sayın Zafer bey çok yoğun olduğunuzu biliyorum acaba benim sorumda anlaşılmayan bir şey varmı şu anda sadece merak ettiğim için sordum.

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz

Yalnız listboxta 16 sütun yok mlzkodu 12 sütunda.