Hallo,
ich nutze Steam und schreibe dennoch ein kleines Programm, das meine liebsten Spiele direkt startet. Im grunde ganz einfach: Ein Klick führt einfach die ausführbare Datei im Steamordner aus. (Diese startet dann Steam, etc aber das Spiel läuft)
Dazu habe ich eine kleine Textdatei, die wie folgt aussieht: "GAMESLIST.txt"
Spiel1,Spiel1Pfad,SPiel1Exe,SPiel1Kategorie
Spiel2,Spiel2Pfad,SPiel2Exe,SPiel2Kategorie
Spiel3,Spiel3Pfad,SPiel3Exe,SPiel3Kategorie
und so weiter.
Nun das problem:
FOLGENDES FUNKTIONIERT
ALSO GANZ EINFACH MEIN ERSTES TESTPROGRAMM
Und jetzt in meinem eigentlichen Programm folgendes:
Ich erhalte bei der Ausführung "System.IndexOutOfRangeException: "Index was outside the bounds of the array." und als alter Mann steige ich nicht hinter das Problem.
PS: STARTFAD stimmt, die Datei ist vorhanden und wird auch gelesen. Aber bei dem Versuch dann die ZEILE zu spiltten, der mir nicht erklärbare Fehler
Hilfe bitte....
CodeTags gesetzt ~VaporiZed
ich nutze Steam und schreibe dennoch ein kleines Programm, das meine liebsten Spiele direkt startet. Im grunde ganz einfach: Ein Klick führt einfach die ausführbare Datei im Steamordner aus. (Diese startet dann Steam, etc aber das Spiel läuft)
Dazu habe ich eine kleine Textdatei, die wie folgt aussieht: "GAMESLIST.txt"
Spiel1,Spiel1Pfad,SPiel1Exe,SPiel1Kategorie
Spiel2,Spiel2Pfad,SPiel2Exe,SPiel2Kategorie
Spiel3,Spiel3Pfad,SPiel3Exe,SPiel3Kategorie
und so weiter.
Nun das problem:
FOLGENDES FUNKTIONIERT
VB.NET-Quellcode
- Public Class Form1
- Dim ZEILE As String
- Dim TEMP1, TEMP2, TEMP3, TEMP4 As String
- Dim UMWANDEL() As String
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- ZEILE = "GameTitel,GamePfad,GameExe,GameKat"
- ' Dim str2() As String = Split(ZEILE, ",")
- UMWANDEL = Split(ZEILE, ",")
- TEMP1 = UMWANDEL(0)
- TEMP2 = UMWANDEL(1)
- TEMP3 = UMWANDEL(2)
- TEMP4 = UMWANDEL(3)
- Label1.Text = TEMP1 + "=" + TEMP2 + "=" + TEMP3 + "=" + TEMP4
- End Sub
- End Class
ALSO GANZ EINFACH MEIN ERSTES TESTPROGRAMM
Und jetzt in meinem eigentlichen Programm folgendes:
VB.NET-Quellcode
- Dim ZEILE As String
- Dim UMWANDEL() As String
- Dim TEMP1, TEMP2, TEMP3, TEMP4 As String
- Private Sub SPIELE_EINLESEN()
- If My.Computer.FileSystem.FileExists(STARTPFAD + "\GAMESLIST.txt") Then
- Dim objReader As New System.IO.StreamReader(STARTPFAD + "\GAMESLIST.txt")
- Do
- ZEILE = objReader.ReadLine()
- If Not ZEILE Is Nothing Then
- UMWANDEL = Split(ZEILE, ",")
- TEMP1 = UMWANDEL(0)
- TEMP2 = UMWANDEL(1)
- TEMP3 = UMWANDEL(2)
- TEMP4 = UMWANDEL(3)
- End If
- Loop Until ZEILE Is Nothing
- objReader.Close()
- Else
- MsgBox(STARTPFAD + "\GAMESLIST.txt missing!")
- End If
- End Sub
Ich erhalte bei der Ausführung "System.IndexOutOfRangeException: "Index was outside the bounds of the array." und als alter Mann steige ich nicht hinter das Problem.
PS: STARTFAD stimmt, die Datei ist vorhanden und wird auch gelesen. Aber bei dem Versuch dann die ZEILE zu spiltten, der mir nicht erklärbare Fehler
Hilfe bitte....
CodeTags gesetzt ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()