Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.70/30: Рейтинг темы: голосов - 30, средняя оценка - 4.70
mormax
0 / 0 / 0
Регистрация: 01.06.2010
Сообщений: 4
1

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

27.03.2011, 14:02. Просмотров 5855. Ответов 3
Метки нет (Все метки)

Как строку преобразовать в массив посимвольно?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2011, 14:02
Ответы с готовыми решениями:

Как корректно преобразовать строку в число?
Dim RetVal As Single RetVal = CSng(InputBox("Input any number", "Mother...

Как преобразовать текстовую строку в формулу?
Здравствуйте! Пожалуйста помогите разобраться с проблемой. В Excel в ячейке...

Преобразовать символьную строку в строку, в которой после каждого символа стоят две звездочки
Надо составить программу на VBA которая бы 1. Преобразовывала символьную...

Как преобразовать стринг в массив?
Есть например такой стринг: "3, 6, 8" как превратить этот стринг в числовое...

Преобразовать строку S в строку длины N
3. Дана строка S и число N. Преобразовать строку S в строку длины N следующим...

3
Deminik
4 / 4 / 0
Регистрация: 15.09.2010
Сообщений: 228
27.03.2011, 16:13 2
Visual Basic
1
2
3
4
5
6
7
Public Function StringInArray(s As String)
   Dim arr, i As Integer, sTmp As String
   For i = 1 To Len(s)
      sTmp = sTmp & Mid(s, i, 1) & ';'
   Next i
   arr = Split(Left(sTmp, Len(sTmp) - 1), ';')
End Function
0
Masalov
22 / 5 / 1
Регистрация: 05.09.2010
Сообщений: 370
28.03.2011, 08:50 3
Еще вариант:
Visual Basic
1
2
3
4
5
6
strt = 'hghhfghfg рапра ра dhg пва ор'
Dim msStr()
ReDim msStr(Len(strt))
For i = 1 To UBound(msStr)
  msStr(i) = Mid(strt, i, 1)
Next
0
pashulka
2429 / 1244 / 506
Регистрация: 01.12.2010
Сообщений: 2,506
28.03.2011, 09:23 4
Если у Вас установлен MS Excel 97 или Вы не хотите использовать Split, то можете использовать нижеприведённый код :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Option Base 1
 
Sub CreateSymbolArray()
 
Dim iSymb(): iData = ActiveCell.Value
 
For iCount = 1 To Len(iData)
    ReDim Preserve iSymb(iCount)
    iSymb(iCount) = Mid(iData, iCount, 1)
Next
 
End Sub
P.S. Не забудьте выделить ячейку, содержащую исходный текст, который необходимо 'преобразовать'

To Massalov
Свой вариант написал ещё вчера, а учитывая что он не является полным клоном Вашего ответа, решил всё-таки опубликовать. Данный ответ не является ни критикой, ни дополнением к Вашему.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.03.2011, 09:23

Как преобразовать строку вида "20060705000000" в тип данных дата?
Как преобразовать строку вида "20060705000000" в тип данных дата?

Как конвертировать строку в массив?
Добрый день! Ребята, такой вопрос: У меня есть строка String, как можно ее...

Преобразовать строку в число
Всем добрый день! Уже 2 часа бьюсь, но делает выборку не по-моему. Есль код,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru