Обработка строк VBA

Question

Я застрял в очень простой проблеме. У меня есть следующая строка:

Dim s as String 
s = "031, 603-604, 803-804, 617, 817, 619, 819, 621, 821, 627, 827, 629, 829, 831, 645-646, 845-846, 647-648, 847-848, 649-650, 849-850, 667-668, 867-868, 671-672, 871-872, 677-678, 675-676, 875-876, 679-680" 

Теперь я хочу, чтобы отделить коды в массив, так что у меня есть цикл Собирается полукокса по полукокса (concatting вверх), если символ является либо «» или „-“ , верните код и сбросьте удержание.

For i = 1 To Len(s) 
    If Not ((Mid(s, i, 1) = ",") Or (Mid(s, i, 1) = " ") Or (Mid(s, i, 1) = "-")) Then 
     code = code & Mid(s, i, 1) 
    ElseIf (Mid(s, i, 1) = ",") Or (Mid(s, i, 1) = "-") Then 
     Debug.Print code 
     code = "" 
    End If 
Next i 

Вместо того, чтобы 031, 603, 604 ... Я получаю 031, 603-604 ... В основном петля игнорирует (Mid(s, i, 1) = "-") часть, но принимает (Mid(s, i, 1) = ",") как условие для сброса значения кода.

Answer 1

Вы могли бы сделать это намного проще, если вы использовали некоторые функции обработки строк, как это так,

Dim s as String, tmpArr() As String 

s = "031, 603-604, 803-804, 617, 817, 619, 819, 621, 821, 627, 827, 629, 829, 831, " & _ 
    "645-646, 845-846, 647-648, 847-848, 649-650, 849-850, 667-668, 867-868, 671-672, " & _ 
    "871-872, 677-678, 675-676, 875-876, 679-680" 

s = Replace(Replace(s, "-", ","), " ", "") 

tmpArr = Split(s, ",") 

Теперь tmpArr содержит массив строк, который будет только 031, 603, 604 ... и т. д. Для подтверждения вы можете использовать

Dim iCtr As Long 
For iCtr = 0 To UBound(tmpArr) 
    Debug.Print tmpArr(iCtr) 
Next