Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Анатолий (Киев)
Если предполагаются различные символы-разделители одновременно, то лучше выполнить последовательный перебор символов и сравнение с образцами. Например:

Function SplitString(sText As String, ParamArray Seps()) As Collection Dim i&, j&, x%, s As String * 1     Set SplitString = New Collection: i = 1  For j = i To Len(sText)     s = Mid$(sText, j, 1)   For x = LBound(Seps) To UBound(Seps)    If s = Seps(x) Then     SplitString.Add Mid$(sText, i, j - i): i = j + 1: Exit For    End If   Next x  Next j     j = Len(sText): If i < j Then SplitString.Add Mid$(sText, i) End Function

А это пример вызова:

Sub TestSplitString() Dim col As Collection, v As Variant     Set col = SplitString("ASTM A312/ASME SA312/EN 10216-5, TC1", "/", ",")  For Each v In col Debug.Print Trim$(v)  Next End Sub