Buongiorno, avrei bisogno di un consiglio su questo problema:
Ho diversi file di testo che contengono una serie di righe con dati delimitati da un separatore "\"
Ho diverse Procedure che di volta in volta leggono una riga per volta e ne estraggono i dati che interessano.
Per ognuna di queste Procedure ho utilizzato nella prima parte, il metodo Do While come riportato sotto.
Dim Elenco As New System.IO.StreamReader(Percorso)
Do While Elenco.Peek() <> -1
Dim VarLine As String = Elenco.ReadLine()
Dim VarLineData() As String = Split(VarLine, "\")
For Cont = 0 To UBound(VarLineData)
If Cont = "0" Then
Data0 = VarLineData(Cont)
ElseIf Cont = "1" Then
Data1 = VarLineData(Cont)
ElseIf Cont = "2" Then
Data2 = VarLineData(Cont)
End If
Next
Nella seconda parte ogni procedura esegue delle operazioni diverse a seconda della necessità, es:
If Data0 = "x" Then
esegue un'operazione
ElseIf Data3 <> "y" Then
esegue un'altra operazione
.............
End If
Loop
Il tutto funziona perfettamente, ma siccome le procedure sono 7 o 8, e se ne dovrebbero aggiungere altre,
avrei bisogno che la prima parte fosse una sola routine richiamabile con un Call - Return, con il ciclo che si ferma
ad ogni riga e, dopo il trattamento dei dati riparta da dove si era fermato.
Ho tentato di interrompere il metodo Do While, ma credo che con questo metodo non sia possibile.
Quale altra soluzione posso adottare?
Grazie.