1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
'++++++++++++ MS-Version ++++++++++++
'danke an Pirmin für das C# Beispiel ;)
Dim ar() As String
Dim Str As String = "Franz<br>jagt im<br>völlig verwahrlosten<br>Taxi..."
Dim spltstr() As String = {"<br>"}
ar = Str.Split(spltstr, StringSplitOptions.None)
'++++++++++++ meine-Version ++++++++++++
'############### Aufruf ################
Dim Str As String = "Franz<br>jagt im<br>völlig verwahrlosten<br>Taxi..."
Dim ar() As String
ar = clsMySnippets.StringSplit(Str, "<br>")
'#######################################
''' <summary>
''' Splittet einen String an der angegebenen Zeichenfolge,
''' ähnlich wie "Replace"
''' </summary>
''' <param name="StrToSplt">
''' Der zu Splitendene String
''' </param>
''' <param name="SplitString">
''' Der String, an dem gesplitet werden soll
''' Dies kann ein Zeichen ";"
''' oder ein ganzer string sein "(br)"
''' </param>
Public Function StringSplit(ByVal StrToSplt As String, ByVal SplitString As String) As String()
'Ein Array mit den Dezimalen werten von NICHT druckbaren Zeichen
'Sollten eigentlich nicht in einem String vorkommen,
'aber sie KÖNNTEN ES! Deshalb alternativauswahlen ;)
Dim SplitTemp() As Integer = {7, 1, 23}
'Der ausgewählte ASCII Char,
'bei -1 enthielt der Text alle nicht druckbaren Zeichen
Dim selectedASCII As Integer = -1
'das Rückgabe Array
Dim arStr() As String
'Prüfen, ob der String NICHTDRUCKBARE ZEichen enthält und wähle das erste, dass NICHT entalten ist
For i As Integer = 0 To SplitTemp.Length - 1
If Not StrToSplt.Contains(SplitTemp(i)) Then
selectedASCII = SplitTemp(i)
Exit For
End If
Next
'wenn ein nicht vorkommendes Zeichen gefunden wurde,
'ersetzte den SplitString mit diesem zeichen und splitte es
If selectedASCII >= 0 Then
StrToSplt = StrToSplt.Replace(SplitString, ChrW(selectedASCII))
arStr = StrToSplt.Split(ChrW(selectedASCII))
Else
arStr = StrToSplt.Split("")
End If
Return arStr
End Function
|