Hallo miteinander,

ich habe ein Problem. Ich möchte ein Programm erstellen, dass Textdateien öffnet und dan den Inhalt nach einem ; zeilenweise trennt.

Ich bin soweit gekommen, dass das Programm die Datei öffnen kann, jedoch bringe ich es nicht fertig den Array zu teilen.

Ich habe das so gemacht

Code :

1 2 3 4

Dim list As New system.collections.arraylist         'werte zu array         dim test as string         test = list(0).split(";").tostring

Mfg
toggenburg

Verstehe ich das richtig:
Du hast einen String:

Hallo;ich;bin;ein;string

Und du willst als Ergebnis ein Array:

Hallo
ich
bin
ein
String

?

Nein, das ist ja gerade das Problem, ich habe den Text, den ich teilen will, nicht alls String sonders als Array vorliegen.
Nun möchte ich den wie von dir gesagt teilen.

Mit freundlichen Grüssen
Toggenburg

Poste bitte mal deinen relevanten Code und sag mal präzise was du machen willst (Mit dem Programm).
Glaube du gehst das zu umständlich an

Zitat von toggenburg

Hallo miteinander,

Code :

1 2 3 4

Dim list As New system.collections.arraylist         'werte zu array         dim test as string         test = list(0).split(";").tostring

Ich frag mich gerade, warum du da jetzt eine ArrayList hast Importierst du die Daten in eine ArrayList?

Wie ihr wahrscheinlich schon gemerkt habt, bin ich totaler Newbie.

Also, ich möchte einen Vokabelntrainer machen, der die Vokabeln aus einer Textdatei ausliest.

Die Datei sieht etwa so aus:

Code :

1 2	mögen;aimer nicht mögen;detester

Sind also durch ein Semikolon getrennt.
Diese sollen nun gespalten werden, dass man sie abfragen kann

Frage: mögen
Antwort: aimer
Dies ist der Code den ich schon habe:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73

[size=2][color=#0000ff]Private Sub [/color][/size][size=2]Button1Click(sender [/size][size=2][color=#0000ff]As [/color][/size][size=2]System.[/size][size=2][color=#0000ff]Object[/color][/size][size=2], e [/size][size=2][color=#0000ff]As [/color][/size][size=2]System.EventArgs)   [/size][size=2][color=#0000ff]With [/color][/size][size=2]OpenFileDialog1   .InitialDirectory = "c:\"   .[/size][size=2][color=#0000ff]Filter [/color][/size][size=2]= "txt Dateien (*.txt)|*.txt"   .FilterIndex = 1   .RestoreDirectory = [/size][size=2][color=#0000ff]True           If [/color][/size][size=2].ShowDialog() = DialogResult.[/size][size=2][color=#0000ff]OK Then   [/color][/size][size=2]myStream = .OpenFile()   [/size][size=2][color=#0000ff]If Not [/color][/size][size=2](myStream [/size][size=2][color=#0000ff]Is Nothing[/color][/size][size=2]) [/size][size=2][color=#0000ff]Then   Me[/color][/size][size=2].Text = .FileName   [/size][size=2][color=#0000ff]End if   End If       Dim [/color][/size][size=2]myReader [/size][size=2][color=#0000ff]As [/color][/size][size=2]StreamReader = [/size][size=2][color=#0000ff]New [/color][/size][size=2]StreamReader(mystream, System.Text.Encoding.[/size][size=2][color=#0000ff]Default[/color][/size][size=2])   [/size][size=2][color=#0000ff]Dim [/color][/size][size=2]i [/size][size=2][color=#0000ff]As Integer       Do Until [/color][/size][size=2]myReader.Peek() = -1   list.add(myReader.ReadLine)   [/size][size=2][color=#0000ff]Loop               End With       End Sub       Private Sub [/color][/size][size=2]Button2Click(sender [/size][size=2][color=#0000ff]As [/color][/size][size=2]System.[/size][size=2][color=#0000ff]Object[/color][/size][size=2], e [/size][size=2][color=#0000ff]As [/color][/size][size=2]System.EventArgs)                       [b]frage = list(0).[/b][/size][size=2][color=#0000ff][b]split[/b][/color][/size][size=2][b](";").[/b][/size][size=2][color=#0000ff]End Sub   [/color][/size][size=2][color=#0000ff]   [/color][/size]

Die fette Zeile, ist die die nicht funktioniert

Mfg
toggenburg

In eine ArrayList stopfst du Objekte. Daher wird das Split auch net wirklich funktionieren.

Code :

1	rage = list(0).ToString().split(";")

Wie kann ich den das anstellen, dass ich die Fragen und Antworten so importieren kann?

Mfg
toggenburg