Listview, text, splitten, einfügen

[SuperOwnBash]

hey, ich habe folgendes problem:

In einem listview wird eine textdatei geladen, gelesen, nach jedem ":" getrennt und in die listview eingefügt.
Jetzt würde ich gern das ganze nur etwas andersrum machen, also von der textbox lesen, splitten und eintragen.

mein code um die textdatei zulesen und einzufügen:

 Try
            Dim srReader As StreamReader
            Dim bla As String
            Dim split() As String
            Dim X As Integer = 0
            Try
                srReader = New StreamReader(pfadZuDatei.Text)
                Do Until srReader.EndOfStream             
                    bla = srReader.ReadLine                 ' eine zeile lesen
                    split = bla.Split(":")        ' nach jedem ":" splitten
                    Listview1.Items.Add(split(0)) ' und einfügen
                    Listview1.Items(X).SubItems.Add(split(1))
                    Listview1.Items(X).SubItems.Add(split(2))
                    Listview1.Items(X).SubItems.Add(split(3))
                    Listview1.Items(X).SubItems.Add(split(4))
                    X = X + 1 'das ganze durchlaufen bis es am ende ist
                Loop
                srReader.Close()
                srReader.Dispose()
             
            Catch
        
            End Try
        Catch ex As Exception
        End Try

für eurer unbestechliches fachwissen bin ich jetzt schon dankbar


so ein format soll es in der textbox haben, damit ich es in die listview hinein bekomme -.- ichbinSpalte0:ichbinSpalte1:ichbinSpalte2:ichbinSpalte3

[nkkk]

hier, ist c# code aber im netz gibt es C# - VB übersetzter.

PHP Code:

            String[] entries = 
            listView1.Items
                .OfType<ListViewItem>()
                .Select(item => 
                    item.SubItems
                    .OfType<ListViewItem.ListViewSubItem>()
                    .Aggregate<ListViewItem.ListViewSubItem, String>("", (acc, elem) => (acc + ":" + elem.Text)).Remove(0,1)).ToArray();
            StreamWriter sw = new StreamWriter("asdfasdf.txt");
            foreach (string s in entries)
                sw.WriteLine(s); 


[SuperOwnBash]

danke aber wirft mir nen fehler auf

[nkkk]

da kann ich nicht helfen wenn ich nicht weis welcher.

[SuperOwnBash]

Originally Posted by nkkk

da kann ich nicht helfen wenn ich nicht weis welcher.

[COLOR="Red"]Dim entries As [String]() = listView1.Items.OfType(Of ListViewItem)().[Select](Function(item) item.SubItems.OfType(Of ListViewItem.ListViewSubItem)().Aggregate(Of ListViewItem.ListViewSubItem, [String])("", Function(acc, elem) (Convert.ToString(acc) & ":" & Convert.ToString(elem.Text))).Remove(0, 1)).ToArray()[/COLOR]

        Dim sw As New StreamWriter(TextBox1.Text)
        For Each s As String In entries
            sw.WriteLine(s)
        Next

[nkkk]

ja das da irgendwo der der fehler ist, ist klar aber was ist die fehlermeldung?


hmm merkwürdiger fehler, liegt glaube ich daran das der C# - VB überetzter nicht alles üverstzen kann.

naja bei diesem code sollte es klappen:

PHP Code:

            String[] entries =
            listView1.Items
                .OfType<System.Windows.Forms.ListViewItem>()
                .Select((System.Windows.Forms.ListViewItem item) =>
                    item.SubItems
                    .OfType<System.Windows.Forms.ListViewItem.ListViewSubItem>()
                    .Aggregate("", (String acc, System.Windows.Forms.ListViewItem.ListViewSubItem elem) => (acc + ":" + elem.Text)).Remove(0, 1)).ToArray();
            StreamWriter sw = new StreamWriter("asdfasdf.txt");
            foreach (string s in entries)
                sw.WriteLine(s); 


[SuperOwnBash]

Originally Posted by nkkk

ja das da irgendwo der der fehler ist, ist klar aber was ist die fehlermeldung?


hmm merkwürdiger fehler, liegt glaube ich daran das der C# - VB überetzter nicht alles üverstzen kann.

naja bei diesem code sollte es klappen:

PHP Code:

            String[] entries =
            listView1.Items
                .OfType<System.Windows.Forms.ListViewItem>()
                .Select((System.Windows.Forms.ListViewItem item) =>
                    item.SubItems
                    .OfType<System.Windows.Forms.ListViewItem.ListViewSubItem>()
                    .Aggregate("", (String acc, System.Windows.Forms.ListViewItem.ListViewSubItem elem) => (acc + ":" + elem.Text)).Remove(0, 1)).ToArray();
            StreamWriter sw = new StreamWriter("asdfasdf.txt");
            foreach (string s in entries)
                sw.WriteLine(s); 


danke doch dies funktioniert auch nicht:

 Dim entries As [String]() = listView1.Items.OfType(Of System.Windows.Forms.ListViewItem)().[Select](Function(item As System.Windows.Forms.ListViewItem) item.SubItems.OfType(Of System.Windows.Forms.ListViewItem.ListViewSubItem)().Aggregate("", Function(acc As [String], elem As System.Windows.Forms.ListViewItem.ListViewSubItem) (acc & ":" & elem.Text)).Remove(0, 1)).ToArray()
Dim sw As New StreamWriter("asdfasdf.txt")
For Each s As String In entries
	sw.WriteLine(s)
Next

ich denke ich sollte mal klartext reden damit auch du weisst was ich vor habe :S
Also, meine Tool ladet einen verschlüsselten text (AES-128), übergibt dies in textbox1, entschlüsselt dies wiederum in textbox2 und dan erst wird gesplitet und eingefügt.

Dim entries As [String]() = listView1.Items.OfType(Of System.Windows.Forms.ListViewItem)().[Select](Function(item As System.Windows.Forms.ListViewItem) item.SubItems.OfType(Of System.Windows.Forms.ListViewItem.ListViewSubItem)().Aggregate("", Function(acc As [String], elem As System.Windows.Forms.ListViewItem.ListViewSubItem) (acc & ":" & elem.Text)).Remove(0, 1)).ToArray()
Dim sw As New StreamWriter(textbox2.text) '' <-wird aufjedenfall geändert :P
For Each s As String In entries
	sw.WriteLine(s)
Next

so ein stieres problem hatte ich noch nie...

[nkkk]

Originally Posted by SuperOwnBash

danke doch dies funktioniert auch nicht:

 Dim entries As [String]() = listView1.Items.OfType(Of System.Windows.Forms.ListViewItem)().[Select](Function(item As System.Windows.Forms.ListViewItem) item.SubItems.OfType(Of System.Windows.Forms.ListViewItem.ListViewSubItem)().Aggregate("", Function(acc As [String], elem As System.Windows.Forms.ListViewItem.ListViewSubItem) (acc & ":" & elem.Text)).Remove(0, 1)).ToArray()
Dim sw As New StreamWriter("asdfasdf.txt")
For Each s As String In entries
	sw.WriteLine(s)
Next

ich denke ich sollte mal klartext reden damit auch du weisst was ich vor habe :S
Also, meine Tool ladet einen verschlüsselten text (AES-128), übergibt dies in textbox1, entschlüsselt dies wiederum in textbox2 und dan erst wird gesplitet und eingefügt.

Dim entries As [String]() = listView1.Items.OfType(Of System.Windows.Forms.ListViewItem)().[Select](Function(item As System.Windows.Forms.ListViewItem) item.SubItems.OfType(Of System.Windows.Forms.ListViewItem.ListViewSubItem)().Aggregate("", Function(acc As [String], elem As System.Windows.Forms.ListViewItem.ListViewSubItem) (acc & ":" & elem.Text)).Remove(0, 1)).ToArray()
Dim sw As New StreamWriter(textbox2.text) '' <-wird aufjedenfall geändert :P
For Each s As String In entries
	sw.WriteLine(s)
Next

so ein stieres problem hatte ich noch nie...

was ist denn das problem ?
wenn es das ist das am Ende die datei leer ist, liegt das daran dass man am Ende noch ein sw.Close() einfügen muss.

[SuperOwnBash]

Originally Posted by nkkk

was ist denn das problem ?
wenn es das ist das am Ende die datei leer ist, liegt das daran dass man am Ende noch ein sw.Close() einfügen muss.

das problem wird bei textbox1.text ausgegeben, "illegales Zeichen im pfad"
aber ich möchte doch kein Pfad zur datei angeben, denn dan hab ich bereits. kein code kann direkt von textbox1.text spliten

[nkkk]

achso ich dachte du wolltest einen code der die sachen aus der listbox liest und dann wieder in eine datei schreibt, weil das macht der code.

naja die sachen aus der textbox in die listwiew zu packen ist sehr einfach:

PHP Code:

            listView1.Items.Clear();//um die vohherigen einträge zu löschen
            foreach (String line in textBox1.Lines)
                listView1.Items.Add(new ListViewItem(line.Split(':'))); 


[SuperOwnBash]

Originally Posted by nkkk

achso ich dachte du wolltest einen code der die sachen aus der listbox liest und dann wieder in eine datei schreibt, weil das macht der code.

naja die sachen aus der textbox in die listwiew zu packen ist sehr einfach:

PHP Code:

            listView1.Items.Clear();//um die vohherigen einträge zu löschen
            foreach (String line in textBox1.Lines)
                listView1.Items.Add(new ListViewItem(line.Split(':'))); 


oh man ich bin dir sehr dankbar
vb code:

listView1.Items.Clear()
'um die vohherigen einträge zu löschen
For Each line As [String] In textBox1.Lines
	listView1.Items.Add(New ListViewItem(line.Split(":"C)))
Next

[MrSm!th]

#moved