[VB 2008]Listview Items mit Spalten -Brauche Hilfe

RoleS · 03/13/2010, 20:05

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 -.-.

RoleS · 03/14/2010, 22:04

#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

waldi_ · 03/14/2010, 23:50

werde mich morgen mal an dein problem dransetzen ^__^

waldi_ · 03/15/2010, 16:30

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

xNopex · 03/15/2010, 17:19

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...

RoleS · 03/15/2010, 18:11

Danke an beide

. Dann wäre das 2te Problem ja endlich gelöst.
Jetzt fehlt "nur" noch das Erste.