Hallo,
ich bin neu hier und arbeite zum ersten Mal mit VB. Habt also ein wenig Nachsicht
Ich möchte eine Textdatei auslesen. Diese Datei enthält wichtige Informationen in Form einer Zeichenkette (z.B: Artikelnummer; Hersteller; Bezeichnung; Lieferant). Die einzelnen Zeichen möchte ich nun getrennt dargestellt bekommen, z.B als Tabelle untereinander. Ich möchte also nun eine kleine Konsolenanwendung schreiben, die genau das macht.
Ich habe von Microsoft ein Beispiel kopiert und eingefügt. Folgende Probleme sind aufgetreten:
- MsgBox wurde nicht deklariert, habe stattdessen WriteLine genommen --> geht das?
- Fehlermeldung "Conversion from string "Test" to type 'Integer' is not valid."
- Wie kann ich nun die einzelnen Zeichen ausgeben? (Ich habe die Funktion hinter dem Code noch nicht ganz verstanden)
Code:
CodeTags gesetzt ~VaporiZed
ich bin neu hier und arbeite zum ersten Mal mit VB. Habt also ein wenig Nachsicht
Ich möchte eine Textdatei auslesen. Diese Datei enthält wichtige Informationen in Form einer Zeichenkette (z.B: Artikelnummer; Hersteller; Bezeichnung; Lieferant). Die einzelnen Zeichen möchte ich nun getrennt dargestellt bekommen, z.B als Tabelle untereinander. Ich möchte also nun eine kleine Konsolenanwendung schreiben, die genau das macht.
Ich habe von Microsoft ein Beispiel kopiert und eingefügt. Folgende Probleme sind aufgetreten:
- MsgBox wurde nicht deklariert, habe stattdessen WriteLine genommen --> geht das?
- Fehlermeldung "Conversion from string "Test" to type 'Integer' is not valid."
- Wie kann ich nun die einzelnen Zeichen ausgeben? (Ich habe die Funktion hinter dem Code noch nicht ganz verstanden)
Code:
VB.NET-Quellcode
- Module Program
- Sub Main()
- Using MyReader As New Microsoft.VisualBasic.
- FileIO.TextFieldParser("C:\Users\xxx\Desktop\Test.txt")
- MyReader.TextFieldType = FileIO.FieldType.Delimited
- MyReader.SetDelimiters(";")
- Dim currentRow As String()
- While Not MyReader.EndOfData
- Try
- currentRow = MyReader.ReadFields()
- Dim currentField As String
- For Each currentField In currentRow
- WriteLine(currentField)
- Next
- Catch ex As Microsoft.VisualBasic.
- FileIO.MalformedLineException
- WriteLine("Line " & ex.Message & "is not valid and will be skipped.")
- End Try
- End While
- End Using
- End Sub
- End Module
CodeTags gesetzt ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()