Hallo!
Ich bin noch ein ziemlicher .NET Newbee und habe ein Problem mit der MyReader.ReadLine Funktion.
Ich lese aus einer .csv Datei Daten ein, die ich dann Verarbeite. Funktioniert auch so weit ganz gut. Allerdings hab ich jetzt ein Problem. Ich möchte auf einen anderen parallel ablaufenden Programmteil warten. Hierzu möchte ich immer wieder die gleiche zeile einlesen bis Meine weiterschaltbedingung erfüllt ist. Wie kann ich das realsieren? Oder gibt es noch eine geschicktere Möglichkeit das einlesen der nächsten Zeilen zu unterbrechen? Anbei mein Code. Ich möchte, wenn ich ein } eingelesen hab, immer wieder die Zeile einlesen bis "=" Bedingung erfüllt ist. Kann mir da jemand helfen?
Ich bin noch ein ziemlicher .NET Newbee und habe ein Problem mit der MyReader.ReadLine Funktion.
Ich lese aus einer .csv Datei Daten ein, die ich dann Verarbeite. Funktioniert auch so weit ganz gut. Allerdings hab ich jetzt ein Problem. Ich möchte auf einen anderen parallel ablaufenden Programmteil warten. Hierzu möchte ich immer wieder die gleiche zeile einlesen bis Meine weiterschaltbedingung erfüllt ist. Wie kann ich das realsieren? Oder gibt es noch eine geschicktere Möglichkeit das einlesen der nächsten Zeilen zu unterbrechen? Anbei mein Code. Ich möchte, wenn ich ein } eingelesen hab, immer wieder die Zeile einlesen bis "=" Bedingung erfüllt ist. Kann mir da jemand helfen?
Code:
Sub LoadSettings(ByVal Path As String) Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(Path) MyReader.Delimiters = New String() {","} Dim currentRow As String Dim Index As Integer = 0 While Not MyReader.EndOfData Try currentRow = MyReader.ReadLine() SplitRow = Split(currentRow, ",") If SplitRow(0) = "{" Then LoadServer() End If If SplitRow(0) = "[" Then LoadGroup() End If If SplitRow(0) = "(" Then CollectItems() End If If SplitRow(0) = "]" Then LoadItem() End If If SplitRow(0) = "}" Then If ItemCnt <> MainForm.GroupUpdatesCTRL.UpdatesLV.Items.Count Then End If If ItemCnt = MainForm.GroupUpdatesCTRL.UpdatesLV.Items.Count Then End If End If If SplitRow(0) = "%%" Then FinishLoad() End If Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException MsgBox("line " & ex.Message & "is invalid.") End Try End While End Using End Sub
Comment