Forum

vb.net için me...
 
Bildirimler
Hepsini Temizle

vb.net için metin dosyasında ki veriyi textboxlara aktarma

3 Yazılar
3 Üyeler
0 Reactions
604 Görüntüleme
(@caneryavuz)
Gönderiler: 4
Active Member
Konu başlatıcı
 

arkadaşlar merhaba,

sizin için basit ama benim için zor bir sorum var 🙂 üzerinde çalıştığım bir stok programı var. 200 den fazla hammadde çeşidi ve bu hammaddelerin farklı bileşimlerinden 600 den fazla cihaz modeli ortaya çıkıyor. kısa yoldan ürün reçetesi gibi bir şey yapmayı amaçlıyorum. tabi becerebilirsek.

 örneğin deneme.txt dosyası içinde 

audi 2013

bmw 2012

opel 2010

diye 3 araç model ve yıl bilgisi var. ben bu bilgiyi 6 adet textbox oluşturup nasıl içerisine yazabilirim. yazdırdıktan sonra farklı matematiksel işlemlerle stok bilgisinin tutulduğu database tablosunda stok adetlerini güncellemeyi hedefliyorum.

textbox1(audi)  textbox2(2013)

textbox3(bmw) textbox4(2012)

textbox5(opel) textbox6(2010)

 metin dosyasından veri çekebiliyorum ama metin dosyasından satır olarak geliyor veri. ben audi ve 2013 metinlerinin ayrı textboxlara yazılmasını istiyorum. tıpkı yukarida göstermeye çalıştığım gibi

ya da ürün reçeteleri nasıl yapılır konusunda farklı bir önerisi olan varsa memnuniyetle cevabını okumak isterim. 

umarım sorum anlaşılmıştır. teşekkürler şimdiden. 

 
Gönderildi : 20/05/2013 17:11

(@FerideSOLMAZ)
Gönderiler: 72
Trusted Member
 

Merhabalar,

ürün reçetesi konusunda yardımcı olamayacağım, ancak txt dosyasından okuduğunuz satırı boşluk karakterine göre ayırırsanız iki ayrı kelimeyi de elde etmiş olursunuz. 

 
Gönderildi : 17/06/2013 18:41

(@HikmetSOYDAM)
Gönderiler: 218
Reputable Member
 

        Dim FILE_NAME As String = Application.StartupPath & "\Dosya.txt"
        Dim TextLine As String
        If System.IO.File.Exists(FILE_NAME) = True Then
            Dim objReader As New System.IO.StreamReader(FILE_NAME)
            Do While objReader.Peek() <> -1
                TextLine = TextLine & objReader.ReadLine() & vbNewLine
            Loop
            TextBox1.Text = TextLine
        Else
            MsgBox("Dosya Dizinde Yok")
        End If

 

Şu kodu denermisiniz...

 
Gönderildi : 17/06/2013 19:15

Paylaş: