[VB 2008]Listview Items mit Spalten -Brauche Hilfe

03/13/2010 20:05 RoleS#1

Hallo,

ich habe ein Problem.
Und zwar bin ich gerade ein Projekt am Coden, indem ich ein ListView Control mit 3 Spalten habe: "ID", "PW" und "Beschreibung"

Die Texte die in die Spalten eingelesen werden sollen, stehen in einer Textdatei mit den Namen "Account1".

Zeile 1 = ID
Zeile 2 = PW
Zeile 3 = Beschreibung

Nur jetzt wei� ich nicht wie ich Zeile 1 in das erste Subitem einlese,
Zeile 2 in das zweite- und
Zeile 3 in das dritte Subitem lade.

PHP Code:


			
ListView1.Items.Add(Write(0) & Write(1) & Write(2))

So l�dt die Anwendung das leider nur in die erste Spalte.

Ich bitte um schnelle Hilfe und Entschuldigung, aber den kompletten Source kann ich leider nicht posten.

Ansonsten Danke f�r die Aufmerksamkeit.
.Inquisitor

€: Falls was unverst�ndlich ist bitte Bescheid sagen.
€�: Ja, ich habe bei Google gesucht, aber nichts passendes gefunden.
€�: Noch eine Frage, denn ich teste jetzt schon seit ner Stunde rum:
Ein Teil meines Source sieht im Moment so aus:

PHP Code:


			
  If File.Exists("save/Account1.txt") Then
            If Not File.Exists("save/Account2.txt") Then
                Dim WriteA2 As IO.StreamWriter = New IO.StreamWriter("save/Account2.txt")
                WriteA2.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text & vbNewLine & TextBox4.Text & vbNewLine & TextBox5.Text)
                WriteA2.Close()
            Else
                Dim WriteA1 As IO.StreamWriter = New IO.StreamWriter("save/Account1.txt")
                WriteA1.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text & vbNewLine & TextBox4.Text & vbNewLine & TextBox5.Text)
                WriteA1.Close()
            End If
        End If
        If File.Exists("save/Account2.txt") Then
            If Not File.Exists("save/Account3.txt") Then
                Dim WriteA3 As IO.StreamWriter = New IO.StreamWriter("save/Account3.txt")
                WriteA3.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text & vbNewLine & TextBox4.Text & vbNewLine & TextBox5.Text)
                WriteA3.Close()
            ElseIf File.Exists("save/Account3.txt") Then
                If Not File.Exists("save/Account4.txt") Then
                    Dim WriteA4 As IO.StreamWriter = New IO.StreamWriter("save/Account4.txt")
                    WriteA4.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text & vbNewLine & TextBox4.Text & vbNewLine & TextBox5.Text)
                    WriteA4.Close()
                End If
            End If
        End If
        If File.Exists("save/Accoun4.txt") Then
            If Not File.Exists("save/Account5.txt") Then
                Dim WriteA5 As IO.StreamWriter = New IO.StreamWriter("save/Account5.txt")
                WriteA5.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text & vbNewLine & TextBox4.Text & vbNewLine & TextBox5.Text)
                WriteA5.Close()
            End If
        End If

Doch leider erstellt er keine einzige Textdatei -.-.

03/14/2010 22:04 RoleS#2

#Push

Vielleicht versteht sich das so besser:

�ber Form 1 l�sst sich Form 2 �ffnen. In Form 2 werden dann die 3 Textboxen gef�llt, "E-Mail/ID", "PW" und "Beschreibung".
Wenn man dann auf den Button "Add" dr�ckt werden alle Daten dann in die Textdatei "Account1.txt" geschrieben.

PHP Code:


			
Dim WriteA2 As IO.StreamWriter = New IO.StreamWriter("save/Account1.txt")
WriteA2.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Textt)
WriteA2.Close()

Das ist dann der Account 1.
Nachdem klicken auf Add werden die Daten geschrieben und die Application neu gestartet.
Nun soll, wenn man auf den Tab Accountverwaltung geht in der ListView in Spalte "E-Mail/ID" die Zeile 1 stehen, in Spalte "PW" die Zeile 2 und in Spalte "Beschreibung" Zeile 3.

Doch ich verstehe nicht wie ich das nach dem anderen Thread in diese Form umsetzen soll.

Dann Frage 2:

Es sollen bis zu 5 Accounts gespeichert werden d�rfen. Daher der Code:

PHP Code:


			
If File.Exists("save/Account1.txt") Then
If Not File.Exists("save/Account2.txt") Then
Dim WriteA2 As IO.StreamWriter = New IO.StreamWriter("save/Account2.txt")
WriteA2.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text & vbNewLine & TextBox4.Text & vbNewLine & TextBox5.Text)
WriteA2.Close()
Else
Dim WriteA1 As IO.StreamWriter = New IO.StreamWriter("save/Account1.txt")
WriteA1.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text & vbNewLine & TextBox4.Text & vbNewLine & TextBox5.Text)
WriteA1.Close()
End If
End If
If File.Exists("save/Account2.txt") Then
If Not File.Exists("save/Account3.txt") Then
Dim WriteA3 As IO.StreamWriter = New IO.StreamWriter("save/Account3.txt")
WriteA3.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text & vbNewLine & TextBox4.Text & vbNewLine & TextBox5.Text)
WriteA3.Close()
ElseIf File.Exists("save/Account3.txt") Then
If Not File.Exists("save/Account4.txt") Then
Dim WriteA4 As IO.StreamWriter = New IO.StreamWriter("save/Account4.txt")
WriteA4.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text & vbNewLine & TextBox4.Text & vbNewLine & TextBox5.Text)
WriteA4.Close()
End If
End If
End If
If File.Exists("save/Accoun4.txt") Then
If Not File.Exists("save/Account5.txt") Then
Dim WriteA5 As IO.StreamWriter = New IO.StreamWriter("save/Account5.txt")
WriteA5.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text & vbNewLine & TextBox4.Text & vbNewLine & TextBox5.Text)
WriteA5.Close()
End If
End If

Doch der funktioniert auch nicht so wie ich es will.

Ich hoffe meine Fragen sind nun verst�ndlicher.

Viele Gr��e
.Inquisitor

03/14/2010 23:50 waldi_#3

werde mich morgen mal an dein problem dransetzen ^__^

03/15/2010 16:30 waldi_#4

Code:

Public Sub AccountSpeichern()
        If File.Exists("Account1.txt") Then
            If File.Exists("Account2.txt") Then
                If File.Exists("Account3.txt") Then
                    If File.Exists("Account4.txt") Then
                        If File.Exists("Account5.txt") Then
                            MsgBox("Du darfst nur 5 Accounts erstellen!")
                        Else
                            Dim WriteA As IO.StreamWriter = New IO.StreamWriter("Account5.txt")
                            WriteA.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text)
                            WriteA.Close()
                        End If
                    Else
                        Dim WriteA As IO.StreamWriter = New IO.StreamWriter("Account4.txt")
                        WriteA.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text)
                        WriteA.Close()
                    End If
                Else
                    Dim WriteA As IO.StreamWriter = New IO.StreamWriter("Account3.txt")
                    WriteA.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text)
                    WriteA.Close()
                End If
            Else
                Dim WriteA As IO.StreamWriter = New IO.StreamWriter("Account2.txt")
                WriteA.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text)
                WriteA.Close()
            End If
        Else
            Dim WriteA As IO.StreamWriter = New IO.StreamWriter("Account1.txt")
            WriteA.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text)
            WriteA.Close()
        End If
    End Sub

03/15/2010 17:19 xNopex#5

Pseudo-Code:

Code:

FUNKTION CheckFiles( ZAHL pos, STRING_ARRAY files[5] )
    WENN pos < 5
          WENN_NICHT File.Exists(files[i])
              ZUR�CK_GEBEN pos
          ANDERNFALLS
              ZUR�CK CheckFiles( pos+1, files )
    ANDERNFALLS
          ZUR�CK_GEBEN pos
ENDE_FUNKTION

FUNKTION Main
    STRING_ARRAY str[5]
    str[0] = "Account1.txt"
    str[1] = "Account2.txt"
    str[2] = "Account3.txt"
    str[3] = "Account4.txt"
    str[4] = "Account5.txt"

    ZAHL i = CheckFiles( 0, str )
    WENN i > 4
        MSGBOX( "Du darfst nur 5 Acc's erstellen" )
    ANDERNFALLS
        Dim WriteA As IO.StreamWriter = New IO.StreamWriter(str[i])
        WriteA.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & TextBox3.Text)
         WriteA.Close()
ENDE_FUNKTION

EDIT: Die Version meines Vorposters fand ich iwie zu umst�ndlich mit den 10,000 bedingten Anweisungen und Wiederholungen...

03/15/2010 18:11 RoleS#6

Danke an beide :). Dann w�re das 2te Problem ja endlich gel�st.
Jetzt fehlt "nur" noch das Erste.