ben vbyi kullanarak textbox taki bilgileri bir text belgesine atmak istiyorum
işin ilginci atıyorum onu buldum
ama şimdiki sorunum şu kaydedilen verileri txt belgesine surekli yan yana kaydediyor
or : aaaaaaaaaaaaa bbbbbbbbbbbbbb ccccccccccccc
ben ise bunu alt alta kaydetmesini istiyorum
or: aaaaaaaaaaaaaaaaa
bbbbbbbbbbbbbbb
ccccccccccccccccc
şeklinde
bu sekilde kaydedebilecek olursam listboxta işim goruluyor.
alt tarafada o kısımdaki yazılımı verecegim uzerinde hatam varsa daha rahat gorursunuz simdiden tesekkur ederim.
Private Type ayakkabıcı
stok As Integer
n As Integer
urunno As String * 10
stokno As String * 10
urunfiyat As String * 10
cinsiyet As String * 10
renk As String * 10
tarz As String * 10
saat As String * 14
tarih As String * 14
End Type
Dim ayakkabı As ayakkabıcı
Private Sub Command1_Click()
Open "C:Program Filesstokkayıt.txt" For Random As #1 'dosyayı ac
Text1 = ayakkabı.stok 'stoğu texte yazdır
If n ayakkabı.stok Then 'eger stokla n esit değilse
n = ayakkabı.stok 'n stoğa esitle
n = n + 1 'n ni bir arttır
Text1.Text = n 'texte yazdır
ayakkabı.stok = Text1.Text
ayakkabı.urunno = Text2.Text
ayakkabı.stokno = Text3.Text
ayakkabı.urunfiyat = Text4.Text
ayakkabı.renk = Combo2.Text
ayakkabı.tarz = Combo3.Text
ayakkabı.cinsiyet = Combo1.Text
ayakkabı.saat = Label11.Caption
ayakkabı.tarih = Label10.Caption
Put #1, ayakkabı.stok, ayakkabı 'stok no ve geriye kalanları kaydet
GoTo 100 '100 e git
End If 'işlemi bitir
If n = ayakkabı.stok Then 'n stoga esitse
n = ayakkabı.stok 'n i stoga esitle
n = n + 1 'n i bir arttır
Text1.Text = n 'texte yaz
ayakkabı.stok = Text1.Text
ayakkabı.urunno = Text2.Text
ayakkabı.stokno = Text3.Text
ayakkabı.urunfiyat = Text4.Text
ayakkabı.renk = Combo2.Text
ayakkabı.tarz = Combo3.Text
ayakkabı.cinsiyet = Combo1.Text
ayakkabı.saat = Label11.Caption
ayakkabı.tarih = Label10.Caption
Put #1, ayakkabı.stok, ayakkabı 'stogu ve degerleri kaydet
GoTo 100 '100 e git
End If
100:
Close #1: 'dosyadan cık
Dim Eklenecek As String
Open "C:Program Filesstokkayıt.txt" For Input As #1
List1.Clear
While Not EOF(1)
Input #1, Eklenecek
List1.AddItem Eklenecek
Wend
List1.Refresh
Close #1
Close #1:
Exit Sub
End Sub
yandaki notlar icin kusura bakmayın hatırlatma
__________________