| |

Visual-Basic EinsteigerDynamische, mehrdimensionale Arrays | |  | Autor: Tim | Datum: 28.06.02 13:32 |
| Hi!
Ich arbeite gerade an einem Programm welches formatierte Datenbankdaten von einem PHP-Script entgegen nimmt und diese auswerten soll.
Ich bekomme Daten mehrerer Zeilen aus einer MySQL-Datenbank und will diese in einzelne Felder zerlegen. Zeilen sind mit einem Line Feed (das ist chr(10)) und Felder mit >< getrennt. Also etwa so:
Um alle Felder in ein Array zu bekommen habe ich folgende Funktion geschrieben:
Public Function DatenEinlesen(ByVal daten As String) As String
Dim Reihen() As String
Dim Felder() As String
Dim Feld As String
Dim n As Integer
'Erstmal alle Zeilen trennen'
Reihen = Split(daten, Chr(10), -1, vbTextCompare)
n = 0
'Alle Felder in den Zeilen der Reihe nach trennen und an das Array übergeben'
For n = LBound(Reihen) To (UBound(Reihen) - 1)
Feld = Reihen(n)
'Das < vorne und das > hinten abschneiden'
Feld = Mid(Feld, 2, (Len(Feld) - 1))
'Array mit den Feldern der aktuellen Zeile in einem mehrdimensionalen Array speichern'
Felder() = Split(Feld, "><", -1, vbTextCompare)
Next n
'Folgendes nur zu Testzwecken'
DatenEinlesen = Felder(0, 1)
End Function
Ich habe diese Funktion schon hin und her programmiert. Irgendwie komme ich mit der komischen Arraybehandlung von VB nicht klar.
Es soll ein Zweidimensionales Array entstehen, in dem alle Felder geordnet enthalten sind, um sie später z.b. in eine Access Datenbank zurückzuschreiben oder was auch immer.
Viele Grüße
Tim |  |
 | 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 |
  |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. 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
|
|