Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

vb.net text içinden satır satır veri alma

Konu, 'Visual Basic .Net' kısmında körhaydut tarafından paylaşıldı.

  1. körhaydut

    körhaydut Üye

    Kayıt:
    1 Nisan 2012
    Mesajlar:
    25
    Beğenilen Mesajlar:
    0
    selamlar arkadaşlar

    Private Sub Command1_Click()
    Open "C:\Users\windows\Desktop\deneme.txt" For Input As #1
    Do Until EOF(1)
    Line Input #1, a
    'subsequent lines
    List1.AddItem a
    Loop
    Close #1


    Timer1.Interval = 1
    Timer2.Interval = 500 '10 saniyeye eşdeğer
    List1.Visible = False
    Timer1.Enabled = True
    Timer2.Enabled = False


    End Sub


    Private Sub Form_Load()


    End Sub


    Private Sub Timer1_Timer()
    Static i
    i = i + 1


    If i >= 30 Then
    i = 0


    Timer1.Enabled = False
    Exit Sub
    End If


    Text1.Text = List1.List(i)


    Timer1.Enabled = False
    Timer2.Enabled = True
    End Sub


    Private Sub Timer2_Timer()
    Timer1.Enabled = True
    Timer2.Enabled = False
    End Sub
    bu kod vb.6 da calışıyot tımer e göre alt alta yazılmıs satırları text e atıyor bunu aynını vb net ile nasıl yaparım

    text dosyası içinde alt alta yazılan satırları tek tek çekip text1 e yada combo1 e atmam lazım yukardakı vb.6 kodlarının aynını vb.net e cevırılmesıde olur
     
  2. aslan.e

    aslan.e Daimi Üye

    Kayıt:
    4 Şubat 2011
    Mesajlar:
    1,192
    Beğenilen Mesajlar:
    0
    Şehir:
    Eskişehir
    Kod:
    imports system.io
    
    private sub islem()
    
    dim rd as new streamreader("c:\deneme.txt")
    do while rd.peek()<>-1
    combobox1.items.add(rd.readline)
    loop
    
    end sub
    
     
  3. Cihan Yakar

    Cihan Yakar Daimi Üye

    Kayıt:
    8 Temmuz 2003
    Mesajlar:
    5,888
    Beğenilen Mesajlar:
    1
    Şehir:
    Ankara
    Tek satır yeterli

    Kod:
    ComboBox1.DataSource = IO.File.ReadAllLines("C:\deneme.txt")
    
    Datasource ile yapmak istemezseniz :

    Kod:
    IO.File.ReadAllLines("C:\d\deneme.txt").ToList().ForEach(AddressOf ComboBox1.Items.Add)
    
     
  4. körhaydut

    körhaydut Üye

    Kayıt:
    1 Nisan 2012
    Mesajlar:
    25
    Beğenilen Mesajlar:
    0
    öncelikle yardımınız için tesekkurler . kodlama yeterlı lakın örnek : text dosyası içinde alt alta xxxxxxxxxxxxxxxxxxxxx yyyyyyyyyyyyyyyyyyyyyyy zzzzzzzzzzzzzzzzzzz yazıyor almak istedıgım şu tımer belırtılen surede ilk xxxxxxxxxxxxxxxxxx alıcak sonra aynı sure sonra yyyyyyyyyyyyyyyyyyyyyyyyyy alacak sonrada zzzzzzzzzzzzzzzzzzzzz alıcak bu devam edecek bunu yapabılmemız mumkun mu?
     
  5. aslan.e

    aslan.e Daimi Üye

    Kayıt:
    4 Şubat 2011
    Mesajlar:
    1,192
    Beğenilen Mesajlar:
    0
    Şehir:
    Eskişehir
    Timer gerekliliğini anlayamadım, belirli sürelerde değişen metin istiyorsun demek istiyorum ama bununla combobox arasındaki alakayı kurabilmiş değilim. Yine de başta dediğim gibiyse şu şekilde bir kod işini görür.

    Kod:
        Dim liste As New Collection
        Dim i As Integer = 0
        Dim tmr As New Timer
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            IO.File.ReadAllLines("c:\deneme.txt").ToList().ForEach(AddressOf liste.Add)
            AddHandler tmr.Tick, AddressOf Timer_Tick
            tmr.Interval = 1000
            tmr.Start()
        End Sub
        Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
            i += 1
            TextBox1.Text = liste(i)
            If i = liste.Count Then i = 0
        End Sub
    
     
  6. körhaydut

    körhaydut Üye

    Kayıt:
    1 Nisan 2012
    Mesajlar:
    25
    Beğenilen Mesajlar:
    0
    o text dosyasında alt alta link olucak combo için umarım olur aylardır buna kafa yoruyorum arkadaşlar saolun
     
  7. körhaydut

    körhaydut Üye

    Kayıt:
    1 Nisan 2012
    Mesajlar:
    25
    Beğenilen Mesajlar:
    0
    teşekkurler aslane bu son kodlar oldu eline saglık Cihan Yakar kardesım sende saol
     
  8. Cihan Yakar

    Cihan Yakar Daimi Üye

    Kayıt:
    8 Temmuz 2003
    Mesajlar:
    5,888
    Beğenilen Mesajlar:
    1
    Şehir:
    Ankara
  9. aslan.e

    aslan.e Daimi Üye

    Kayıt:
    4 Şubat 2011
    Mesajlar:
    1,192
    Beğenilen Mesajlar:
    0
    Şehir:
    Eskişehir
    Tamamen el alışkanlığı :D
     
  10. Cihan Yakar

    Cihan Yakar Daimi Üye

    Kayıt:
    8 Temmuz 2003
    Mesajlar:
    5,888
    Beğenilen Mesajlar:
    1
    Şehir:
    Ankara
    Tamam gündelik kullanımda iki nesne arasında devasa fark yok ama küçük küçük performans kayıpları birikip uygulamanın genelinde olumsuzluklara yol açabilir. Dikkatli olmak lazım.
     
  11. aslan.e

    aslan.e Daimi Üye

    Kayıt:
    4 Şubat 2011
    Mesajlar:
    1,192
    Beğenilen Mesajlar:
    0
    Şehir:
    Eskişehir
    Bu aslında messagebox.show yerine msgbox.show tercih etmem gibi... verdiğim yanıtın sorunu çözeceğinden emin olmadığım için karalama niteliğinde. Bütün bir uygulama söz konusu olduğunda işler değişiyor tabii.


    Bu arada in cin top oynar oldu... okullar kapandı diye mi ki? :D
     
  12. Cihan Yakar

    Cihan Yakar Daimi Üye

    Kayıt:
    8 Temmuz 2003
    Mesajlar:
    5,888
    Beğenilen Mesajlar:
    1
    Şehir:
    Ankara
    Onu hele hiç tercih etme :D Kötü bir alışkanlık o. .net tarafında dile özgü özelliklere çok bulaşmamak en iyisi.