| |
|
|
| | Доброго дня!!! Подскажите пожалуйста каким образом строку 5A5B6MA разделить на 556 и ABMA???На форуме нашёл вариант такой функции funSplit = Split(str & vbNullString, " ")(Index), может можно константу поля "vbNullString" заменить на другую, для решения данной проблемы??? | |
| |
| |
| |
|
|
| | Константа в примере для того, что бы функция Split не ругалась, если значение ее первого параметра Null. | |
| |
| |
| |
|
|
| | В вашем примере функция Split делит строку на слова, используя пробел, и возвращает слово с указанным Index-ом. А vbNullString нужна для ситуации, когда в переменной str значение Null.
Для вашей задачи этот пример не годится. Мам нужен цикл по символам строки и анализ каждого символа. Например:
Dim a$, b$, c$, i%, s1 As String * 1
a = "5A5B6MA"
For i = 1 To Len(a)
s1 = Mid$(a, i, 1)
Select Case Asc(s1)
Case 48 To 57: b = b & s1
Case Else: c = c & s1
End Select
Next
Debug.Print "Числа: " & b
Debug.Print "Буквы: " & c
|
| |
| |
| |
|
|
