vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 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

Fortgeschrittene Programmierung
Re: Sehr grosses Textfile lesen 
Autor: tinzu
Datum: 23.09.08 18:33
Hier ist der zweite Teil
'Die Funktion erhält den gelesenen String und sollte den abarbeiteten. Dabei werden folgende Fälle berücksichtigt
' 1) Es kommen 2 Semikolon nacheinander ==> Zeile ist unbrauchbar
' 2) Nach dem letzten Semikolon kommt kein Wert ==> Zeile ist unbrauchbar
' 3) Der String ist zu Ende und ein neuer Block muss eingelesen werden
' Dabei wird gemerkt welches Attribut wurde zuletzt bearbeitet und an der Stelle wird wieder aufgesetzt
' Input: strBlock ==> String der mit cF.Lget() gelesen wird
' lngBlock ==> Länge des Strings als Long
' AttrNr ==> Nummer des Attributes welches bearbeitet wird
Function fncReadZeile(strBlock As String, lngBlock As Long, AttrNr As Integer)
'Die Zeile kann ermittelt werden
'Debug.Print strBlock
For i = 1 To lngBlock
Select Case intAttrZähler
Case 1 'QBEZNR
x = Mid(strBlock, i, 1)
If x = ";" Then bolAttrOk = False
If x = ";" And bolAttrOk = False Then
intAttrZähler = 2
QBEZNR = CLng(varAttrWert)
varAttrWert = Null
bolAttrOk = True
Else
If bolAttrOk = False Then
'2 Semikolon die Zeile wird unvollständig
bolZeilekomplett = False
i = i + 1
End If
varAttrWert = varAttrWert & x
End If
Case 2 'ZBEZNR
x = Mid(strBlock, i, 1)
If x = ";" Then bolAttrOk = False
If x = ";" And bolAttrOk = False Then
intAttrZähler = 3
ZBEZNR = CLng(varAttrWert)
varAttrWert = Null
bolAttrOk = True
Else
If bolAttrOk = False Then
'2 Semikolon die Zeile wird unvollständig
bolZeilekomplett = False
i = i + 1
End If
varAttrWert = varAttrWert & x
End If
Case 3 'WEGIND
x = Mid(strBlock, i, 1)
If x = ";" Then bolAttrOk = False
If x = ";" And bolAttrOk = False Then
intAttrZähler = 4
WEGIND = varAttrWert
varAttrWert = Null
bolAttrOk = True
Else
If bolAttrOk = False Then
'2 Semikolon die Zeile wird unvollständig
bolZeilekomplett = False
i = i + 1
End If
varAttrWert = varAttrWert & x
End If
Case 4 'TWEGIND
x = Mid(strBlock, i, 1)
If x = ";" Then bolAttrOk = False
If x = ";" And bolAttrOk = False Then
intAttrZähler = 5
TWEGIND = varAttrWert
varAttrWert = Null
bolAttrOk = True
Else
If bolAttrOk = False Then
'2 Semikolon die Zeile wird unvollständig
bolZeilekomplett = False
i = i + 1
End If
varAttrWert = varAttrWert & x
End If
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Sehr grosses Textfile lesen1.826tinzu08.09.08 19:01
Re: Sehr grosses Textfile lesen1.207VBStein08.09.08 19:10
Re: Sehr grosses Textfile lesen1.206tinzu08.09.08 19:16
Re: Sehr grosses Textfile lesen1.178icetea12308.09.08 19:20
Re: Sehr grosses Textfile lesen1.188VBStein08.09.08 20:01
Re: Sehr grosses Textfile lesen1.144tinzu08.09.08 20:31
Re: Sehr grosses Textfile lesen1.163VBStein08.09.08 20:52
Re: Sehr grosses Textfile lesen1.245effeff09.09.08 10:02
Re: Sehr grosses Textfile lesen1.161VBStein09.09.08 23:06
Re: Sehr grosses Textfile lesen1.162effeff10.09.08 09:26
Re: Sehr grosses Textfile lesen1.109tinzu10.09.08 17:12
Re: Sehr grosses Textfile lesen1.107VBStein10.09.08 18:30
Re: Sehr grosses Textfile lesen1.095VBStein10.09.08 20:09
Re: Sehr grosses Textfile lesen1.135tinzu10.09.08 20:24
Re: Sehr grosses Textfile lesen1.113VBStein10.09.08 20:38
Re: Sehr grosses Textfile lesen1.109tinzu10.09.08 20:55
Re: Sehr grosses Textfile lesen1.089TheNukeduke13.09.08 12:16
Re: Sehr grosses Textfile lesen1.084tinzu14.09.08 19:22
Re: Sehr grosses Textfile lesen1.046VBStein14.09.08 22:33
The LargeSeekPointer Class1.131VBStein15.09.08 18:01
Re: The LargeSeekPointer Class 2.1.122VBStein15.09.08 18:02
Re: The LargeSeekPointer Class 3.1.202VBStein15.09.08 18:02
Re: The LargeSeekPointer Class 3.1.057tinzu16.09.08 21:50
Re: The LargeSeekPointer Class 3.1.074VBStein17.09.08 19:28
Re: The LargeSeekPointer Class 3.1.051tinzu17.09.08 20:23
Re: The LargeSeekPointer Class 3.1.071VBStein17.09.08 21:25
Re: The LargeSeekPointer Class 3.1.041tinzu18.09.08 21:06
Re: The LargeSeekPointer Class 3.1.107VBStein18.09.08 21:39
Re: The LargeSeekPointer Class 3.1.097tinzu18.09.08 22:25
Re: The LargeSeekPointer Class 3.1.103tinzu23.09.08 18:23
Re: The LargeSeekPointer Class 3.1.094tinzu23.09.08 18:34
Re: The LargeSeekPointer Class 3.1.008VBStein23.09.08 19:07
Re: Sehr grosses Textfile lesen1.132tinzu23.09.08 18:33

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