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

Yazılım Genel

Son Cevaplar gön: Hikmet SOYDAM 11 yıl önce

3 Yazılar

3 Üyeler

0 Likes

477 Görüntüleme

RSS

caner yavuz

(@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

Feride SOLMAZ

(@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

Hikmet SOYDAM

(@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