items maken uit een string (voor een listbox)

Status
Niet open voor verdere reacties.

pontoe

Gebruiker
Lid geworden
9 jan 2008
Berichten
351
ey all,

Ik ben een programma aan het maken om allemaal links, voor bijvoorbeeld rapidshare, bij te houden. je vult een naam in en alle links, en je kan ze altijd terugkijken! ik werk nu met een soort 'database' in een textdocument, maar ik heb nu de links gewoon in een textbox staan, allemaal achter elkaar. maar ik wil ze eigenlijk stuk voor stuk in een listbox hebben, zodat je ze kunt selecteren, en het liefst dan ook dat je met een button ze naar een andere listbox kunt verplaatsen als hij klaar is. maar dat laatste doe ik zelf later wel; mij gaat het erom, hoe moet ik nu van mijn string meerdere items maken? mijn textdocument ziet er ongeveer zo uit:

Code:
[]schoollink1
http://link1.xhtm
http://link2.xhtm
http://link3.xhtm
http://link4.xhtm
http://link5.xhtm[]soulstorm[]
[]schoolstuff2
http://www.megaupload.com/?d=MP0L4C27
http://www.megaupload.com/?d=BSMRCQVU
http://www.megaupload.com/?d=2BX8PDMK
http://www.megaupload.com/?d=BK8Z90ID
http://www.megaupload.com/?d=WH4CZSTV
http://www.megaupload.com/?d=UJSIQNJ5
http://www.megaupload.com/?d=AX8MAWZI
http://www.megaupload.com/?d=VT1TNYY3
http://www.megaupload.com/?d=N158871I
http://www.megaupload.com/?d=H7GXG0WT
http://www.megaupload.com/?d=4NYGUDJ4
http://www.megaupload.com/?d=Q67GVGUD[]bioshock[]

even als voorbeeldje. ik heb hem wel zo ver gekregen dat ik het goede stuk in een string kan krijgen, maar hoe breek ik dat dan weer op in items? dit is mijn code op het moment (om de text in de textbox te krijgen)

Code:
  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Clear()


        Dim i, j As Integer
        Dim mulisttext As String = My.Computer.FileSystem.ReadAllText("mulist.txt")
        i = InStr(My.Computer.FileSystem.ReadAllText("mulist.txt"), ComboBox1.Text)

        j = InStr(i + 15, My.Computer.FileSystem.ReadAllText("mulist.txt"), ComboBox1.Text)

        TextBox1.Text = mulisttext.Substring(i + ComboBox1.Text.Length + 1, j - i - ComboBox1.Text.Length - 2)

kan iemand me hiermee helpen?

edit: laat maar, het is me al gelukt. ik heb gewoon een split gebruikt.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan