Webbrowser - Chronik

Wenn du die Chronik.txt öffnest, wo ist dann der blickende cursor?

SchokoMilch schrieb:

Wenn du die Chronik.txt öffnest, wo ist dann der blickende cursor?

Da ist keine Chronik.txt vorhanden. Bin ich im falschen Ordner? Es ist nur die ini-Datei zu sehen.

Dann halt .ini <.<
Du musst mich nicht immer zitieren, wenn ich genau über dir gepostet habe!

Da ist er ganz links oben..

Normal sollte er am ende der Datei sein...
Es wird ja immer eine Zeile hinzugefügt und dann ein zeilenumbruch gemacht.
Löse das ganze mal über eine Textdatei.

SchokoMilch schrieb:

Normal sollte er am ende der Datei sein...
Es wird ja immer eine Zeile hinzugefügt und dann ein zeilenumbruch gemacht.
Löse das ganze mal über eine Textdatei.

Ok. Wie soll ich da am besten anfangen?

@SchokoMilch:

Willst du mich verarschen?
Auch in einer beschriebenen Datei wird der Cursor
an den Beginn des Dokuments gesetzt.

Nein ganz sicher nicht.
Sonst würde die neue zeile oben hinzugefügt werden.
Sein zweck ist glaube ich zeile für zeile nach unten die Seiten aufzulisten.

SchokoMilch schrieb:

Nein ganz sicher nicht.
Sonst würde die neue zeile oben hinzugefügt werden.
Sein zweck ist glaube ich zeile für zeile nach unten die Seiten aufzulisten.

Ja. Deshalb ja auch vbNewLine
Wie soll ich das mit der Textdatei machen?

Trenn Name und Link durch ein komma, splitte den string und fertig.

Funktioniert nicht. Der Cursor ist immer noch am Anfang

Die Zeile wird ja nicht dranngehangen, also stimmt was mit der position nicht.
vbnewline sollte ja genau dies bewirken.

Ich glaube ich habe es auch falsch...

programmer71 schrieb:

Ich glaube ich habe es auch falsch...

VB.NET-Quellcode

1. Private Sub Chronik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2. Dim chronikpfad As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Internet Browser\"
3. Dim chronikarray() As String = Split(My.Computer.FileSystem.ReadAllText(chronikpfad & "chronik.txt"), vbNewLine)
4. ->>>>>>>>For i = chronikarray.Length - 1 To 0 Step -1
5. If Not chronikarray(i) = "" Then
6. Me.ListBox1.Items.Add(chronikarray(i))
7. Dim a As New RichTextBox
8. a.Text = IO.File.ReadAllText("Chronik.txt")
9. For c As Integer = 0 To a.Lines.Count - 1
10. ListBox1.Items.Add(a.Lines(c))
11. Next c
12. End If
13. NextEnd Sub

Was soll das? (Mit pfeilen makiert)

Ich versteh das Problem nicht, der Code funktioniert bei mir.

@SchokoMilch
Er geht rückwärts durch das Array..

@alca: Anscheinend funktioniert er nicht.
Der letzte eintrag wird von dem neusten überschrieben.
Wenn er mal meinen vorhin geposteten code einfügen würde, sollte es gehen.

@SchokoMilch

Nun ja keine Ahnung. Ich muss ja irgendwie einen Bereich festlegen