developers-forum.de

Hallo Leute ich habe mal wieder ein Problem beim Visual Basic Programmieren
meine Basic version:
Visual Studio 6.0 Professionelö

mein Programm hat 5 Listboxen und wenn man auf ein BUtton klickt sollten aus einer Textdatei von Zeile
1-500 alle Daten die drinne stehen (nicht welche mit "") in "Prim1"
500-1000 in "Prim2"
1000-1500 in "Kochen"
1500-2000 in "Angeln" und
2000-2500 in "Erstehilfe"
Alle in "" sind Listboxen !!

so der code für die erste Listbox "prim1" heist

Code:

Public Sub Rezeptloadprim1(ByVal sCharname As String)

' ############# Deklarieren ########################

Dim i As Integer

Dim Readline1 As String

' ############# Ende ##############################

' ############# Alle gespeicherten Rezepte laden #####

For i = 1 To 500

    Readline1 = txt_ReadLine("C:\Rezepte" + sCharname + ".txt", i)

    If Readline1 = "" Then

    Else

    Prim1.AddItem Readline1

    Text320.Text = i

    End If

Next

' ############# Ende ##############################

End Sub

das ganze Wird aufgerufen mit

Code:

'############ Prim1 Berufe laden ############

Rezepte.Prim1.Clear

Charname = Charname1.Text

Rezeptloadprim1 (Charname)

Charnametext.Text = Charname

'############ Ende #########################

bis hierhin geht alles gut aber sobald ich jetzt die Zweite listbox Füllen will
code :

Code:

Public Sub Rezeptloadprim2(ByVal sCharname As String)

' ############# Deklarieren ########################

Dim i As Integer

Dim Readline1 As String

' ############# Ende ##############################

' ############# Alle gespeicherten Rezepte laden #####

For i = 500 To 1000

        Readline1 = txt_ReadLine("C:\Rezepte" + sCharname + ".txt", i)

        If Readline1 = "" Then

        Else

        Prim2.AddItem Readline1

        Text320.Text = i

        End If

Next

' ############# Ende ##############################

End Sub

schreibt er mir in die ERste Listbox ( "Prim1") den Ersten Eintrag der Zweiten bsp !!
Listbox 1 = Prim1
Listbox 2 = Prim2
in der :txt stehen 2 Einträge für Jede Listbox
Listbox 1 = HALLO, TSCHÜSS
Listbox 2 = WIE, GEHTS

so wenn ich jetzt auslese und in die Listbox füllen will kommt dann das raus

Listbox 1.Inhalt = HALLO, TSCHÜSS, WIE
Listbox 2.Inhalt = WIE, GEHTS
komisch oder ^^ bild !!
[attachment=2]

wenn ihr noch Daten braucht um mir zu helfen dann sagt es ansonsten danke für Antworten

Hallo,

die Schleife für prim1 geht bis einschließlich Zeile 500 und die Schleife für prim2 beginnt bei 500. Also sind das erste Element der 2. Listbox und das letzte der 1. identisch.

Die erste Schleife darf also nur bis 499 gehen, oder die 2. muss ab 501 beginnen.

N43

Danke hat super funktioniert Bin halt doch ein bissle blöd ^^ oder manchmal nicht so ganz "wach"

nacramell

N43

nacramell