1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Sub AppelStringToLongReg()
Dim T() As Long
T = StringToLongReg("100:2;3241,452£60")
Dim i As Long
For i = LBound(T) To UBound(T)
MsgBox T(i)
Next i
End Sub
Function StringToLongReg(ch As String) As Long()
Dim M, n, c As Long, i As Long, temp() As Long
With CreateObject("VBScript.RegExp")
.Pattern = "(\d)*"
.Global = True
Set M = .Execute(ch)
End With
ReDim temp(M.Count)
For Each n In M
If n <> "" Then temp(c) = n: c = c + 1
Next
ReDim Preserve temp(c - 1)
StringToLongReg = temp
End Function |
