|
| |
Fortgeschrittene Programmierung| Re: The LargeSeekPointer Class 3. | |  | | Autor: tinzu | | Datum: 23.09.08 18:34 |
| und der Rest
Case 5 'PFAHRT
x = Mid(strBlock, i, 1)
If x = ";" Then bolAttrOk = False
If x = ";" And bolAttrOk = False Then
intAttrZähler = 6
PFAHRT = 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 6 'VONHPUNKTNR
x = Mid(strBlock, i, 1)
If x = ";" Then bolAttrOk = False
If x = ";" And bolAttrOk = False Then
intAttrZähler = 7
If Not IsNull(varAttrWert) Then
VONHPUNKTNR = varAttrWert
End If
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 7 'NACHHPUNKTNR
x = Mid(strBlock, i, 1)
If x = ";" Then bolAttrOk = False
If x = ";" And bolAttrOk = False Then
intAttrZähler = 8
NACHHPUNKTNR = 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 8 'VSYSCODE
x = Mid(strBlock, i, 1)
If fncCheckEOL((x)) = False Then
If x = ";" And bolAttrOk = False Then
If IsNull(varAttrWert) Then
bolzeilenkomplett = False
Else
bolZeilekomplett = True
End If
VSYSCODE = varAttrWert
varAttrWert = Null
bolAttrOk = True
Else
varAttrWert = varAttrWert & x
bolAttrOk = False
End If
Else
i = i + 1
intAttrZähler = 1
If IsNull(varAttrWert) Then
bolzeilenkomplett = False
Else
bolZeilekomplett = True
VSYSCODE = varAttrWert
varAttrWert = Null
bolAttrOk = True
End If
End If
Case Else
'Hoffe nicht ......
End Select
If bolZeilekomplett = True Then
Call fncWriteZeile(QBEZNR, ZBEZNR, WEGIND, TWEGIND, PFAHRT, _
VONHPUNKTNR, NACHHPUNKTNR, VSYSCODE)
bolZeilekomplett = False
End If
Next i
End Function
'
'Dies Funktion wird in die Tabellen, welche in den schon bestehenden Datenbanken existieren auffüllen
Function fncWriteZeile(QBEZNR As Variant, ZBEZNR As Variant, WEGIND As Variant, TWEGIND As Variant, _
PFAHRT As Variant, VONHPUNKTNR As Variant, NACHHPUNKTNR As Variant, VSYSCODE As Variant)
Select Case VSYSCODE
Case "ZUG"
'Schreiben in entsprechende Tabelle der DB ZUG
Debug.Print QBEZNR & " " & ZBEZNR; " " & WEGIND; " " & TWEGIND; " " & PFAHRT; " " & VONHPUNKTNR; " " & NACHHPUNKTNR; " " & VSYSCODE
Case "BUS"
'Schreiben in entsprechende Tabelle der DB ZUG
Case Else
End Select
End Function
Function fncCheckEOL(myWert As String) As Boolean
Select Case myWert
Case vbCr
fncCheckEOL = True
Case vbLf
fncCheckEOL = True
Case Else
fncCheckEOL = False
End Select
End Function | |
 | 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 |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
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
|
|
Sie sind aktuell nicht angemeldet.
