import kodov do listboxu

import kodov do listboxu otázka

Dobrý deň

v prvom listboxe mam načitane data s databaza.txt súboru a potrebujem z toho importovat do druheho listboxu všetky 13 miestne kódy ktore obsahuju aj čisla aj písmena a všetky začinaju čislicami "05"

postupoval som podľa nejakých návodov z tohto fora a dospel som k tomu:

txtbox.Text = "05"
        lstbox2.Items.Clear()
        Dim KOD As String
        For x = 0 To lstbox1.Items.Count - 1
            KOD = lstbox1.Items.Item(x)
            If InStr(KOD, txtbox.Text) Then
                If KOD.Substring(KOD.IndexOf(txtbox.Text)).ToString.Length >= 13 Then
                    lstbox2.Items.Add(KOD.Substring(KOD.IndexOf(txtbox.Text)).Substring(0, 13).ToUpper)
                End If
            End If
        Next

ale narazil som na taky problém že keď v tom istom riadku sa nachadzaju viac veci so začiatočnými čislicami "05" napr. datum apod. tak mi zoberie ten 13 miestny kód odtiaľ a to nechcem.

Som len začiatočník a neviem či som na to šiel aspoň dobre... , alebo by to bolo jednoduchšie spraviť nie cez listbox ale cez textbox ?

Možno by sa to niekomu tiež hodilo.

Vedel by mi niekto pomôct?

Ďakujem pekne

nahlásit spam

odpovědět

Po dlhom trapeni sa mi to podarilo vyrišiť :)

nahlásit spam

-1 / 1

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz