Страница 1 из 1

Как в VB преобразовать строку в массив?

Добавлено: 17 янв 2005, 11:40
mormax
Нужно разбить строку на отдельные символы, как это сделать?

Добавлено: 18 янв 2005, 01:16
Naeel Maqsudov
В цикле присвоить i-тому элементу массива выражение mid(S,i,1)

Только зачем это надо, если не секрет? :)

Добавлено: 19 янв 2005, 10:29
mormax
Просто нужно из строки удалить все буквы, оставив только цифры.
Как сделать, не перебирая каждый символ и проверяя его ф-ией IsNumeric, я не знаю...

Добавлено: 19 янв 2005, 23:22
Naeel Maqsudov
проще пареной репы

Код: Выделить всё

S="1 Исходная строка с цифрами 123 и 741. Вот"
S2=""
For i=1 to Len(S) 
  Si=mid(S,i,1) 
  select case Si
    case "0" to "9": S2 = S2 & Si
  end select
Next
S=S2 'А теперь остались одни цифры - "1123741"