vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
ReadLine Zeile Merken und Später wieder dort einsteigen 
Autor: stumpi_8
Datum: 23.06.09 11:42

Hallo,
ich bin noch ein relativer VB.NET Newbee und habe ein Problem beim Einlesen einer .csv-Datei. Ich lese die Dateizeilenweise ein und Verarbeite die Daten. Das geht ganz gut so lange ich die komplette .csv-Datei einlese. Jetzt will ich aber das einlesen an einer Stelle unterbrechen und später an genau dieser Stelle fortsetzen. Wie kann ich das realisieren? Anbei mein Code. Ich will beim Einlesen eines "}" an erster Stelle das Einlesen unterbrechen und Später eine Zeile weiter unten Fortsetzen. Ich hoffe mir kann jemand helfen, bin gerade bisschen am Verzweifeln.
 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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ReadLine Zeile Merken und Später wieder dort einsteigen1.652stumpi_823.06.09 11:42
Re: ReadLine Zeile Merken und Später wieder dort einsteigen652sollniss26.06.09 22:26

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel