Die folgende kleine Hilfsfunktion kann man verwenden, um die Teilstrings eines Strings mittels zweier unterschiedlicher Delimiter-Strings in ein 2-dimensionals Feld zu speichern: ''' <summary> ''' Splitten eines Strings in 2-dimensionales Array ''' </summary> ''' <param name="theString">der String</param> ''' <param name="delim1">erster Delimiter</param> ''' <param name="delim2">zweiter Delimiter</param> ''' <returns>die gesplitteten Werte in einem 2-dimensionalen Array</returns> Public Function doubleSplit(theString As String, _ Optional delim1 As String = ";", _ Optional delim2 As String = "=") As String(,) Dim tempF(,), temp1(), temp2() As String, j As Short ' 1.Stufe temp1 = Split(theString, delim1) ' 2.Stufe For i As Short = 0 To temp1.Length - 1 If temp1(i) <> "" Then ReDim Preserve tempF(1, j) temp2 = Split(temp1(i), delim2) tempF(0, i) = temp2(0) tempF(1, i) = temp2(1) j += 1 End If Next Return tempF End Function Dieser Tipp wurde bereits 7.857 mal aufgerufen.
Anzeige
![]() ![]() ![]() Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
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! Tipp des Monats ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. TOP Entwickler-Paket ![]() TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |