Rubrik: Variablen/Strings | VB-Versionen: VB2005, VB2008, VB2010 | 18.02.13 |
Funktion zum doppelten Splitten eines Strings Ein String kann mit dieser Funktion durch doppeltes Splitten in ein 2-dimensionales Feld gespeichert werden. | ||
Autor: Dietrich Herrmann | Bewertung: | Views: 7.738 |
ohne Homepage | System: WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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