52 lines
1.2 KiB
Text
52 lines
1.2 KiB
Text
' FB 1.05.0 Win64
|
|
|
|
Sub split (s As String, sepList As String, result() As String, removeEmpty As Boolean = False)
|
|
If s = "" OrElse sepList = "" Then
|
|
Redim result(0)
|
|
result(0) = s
|
|
Return
|
|
End If
|
|
Dim As Integer i, j, count = 0, empty = 0, length
|
|
Dim As Integer position(Len(s) + 1)
|
|
position(0) = 0
|
|
|
|
For i = 0 To len(s) - 1
|
|
For j = 0 to Len(sepList) - 1
|
|
If s[i] = sepList[j] Then
|
|
count += 1
|
|
position(count) = i + 1
|
|
End If
|
|
Next j
|
|
Next i
|
|
|
|
Redim result(count)
|
|
If count = 0 Then
|
|
result(0) = s
|
|
Return
|
|
End If
|
|
|
|
position(count + 1) = len(s) + 1
|
|
|
|
For i = 1 To count + 1
|
|
length = position(i) - position(i - 1) - 1
|
|
result(i - 1 - empty) = Mid(s, position(i - 1) + 1, length)
|
|
If removeEmpty Andalso CBool(length = 0) Then empty += 1
|
|
Next
|
|
|
|
If empty > 0 Then Redim Preserve result(count - empty)
|
|
End Sub
|
|
|
|
Dim s As String = "Hey you, Bub!"
|
|
Dim a() As String
|
|
split(s, " ", a(), true)
|
|
Dim reversed As String = ""
|
|
For i As Integer = UBound(a) To LBound(a) Step -1
|
|
reversed += a(i)
|
|
If i > LBound(a) Then reversed += " "
|
|
Next
|
|
|
|
Print "Original String = "; s
|
|
Print "Reversed String = "; reversed
|
|
Print
|
|
Print "Press any key to quit"
|
|
Sleep
|