Разделение строк в массив - Microsoft Office Excel

Abdukhafiz · 19.04.2012, 21:09

Привет всем.. У меня в файле есть такие строки:

Код:

Cabinet No.=0, Subrack No.=40, Slot No.=0, Port No.=0, Board Type=EMU, Site No.=144, Site Type=BTS3900 GSM
Site Index=89, Cell Index=269, Alarm Cause=Other causes, Site Type=BTS3900 GSM, Cell CGI=436-01-f-1448

нужно их разделить с помощью символа "," и добавить в массив в VBA. Не поможете?

EducatedFool · 19.04.2012, 21:22

Это искали?
http://excelvba.ru/code/Text2Array

И здесь ещё поглядите:
http://excelvba.ru/code/arrays

Abdukhafiz · 19.04.2012, 21:28

не вот нашелся вариант..

Public Sub qqq()
e = "Subrack No.=40, Slot No.=0, Port No.=0, Board Type=EMU, Site No.=144, Site Type=BTS3900"
Dim mass() As String

mass = Split(e, ",")
End Sub

19.04.2012, 21:09	#1
Abdukhafiz Пользователь Регистрация: 29.12.2011 Сообщений: 31	Разделение строк в массив Привет всем.. У меня в файле есть такие строки: Код: `Cabinet No.=0, Subrack No.=40, Slot No.=0, Port No.=0, Board Type=EMU, Site No.=144, Site Type=BTS3900 GSM Site Index=89, Cell Index=269, Alarm Cause=Other causes, Site Type=BTS3900 GSM, Cell CGI=436-01-f-1448` нужно их разделить с помощью символа "," и добавить в массив в VBA. Не поможете?

19.04.2012, 21:22	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Это искали? http://excelvba.ru/code/Text2Array И здесь ещё поглядите: http://excelvba.ru/code/arrays __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как преобразовать массив строк в массив чисел на C#?	orfos	Помощь студентам	4	03.10.2014 15:56
Разделение строк в StringGrid на группы	Хохол	Компоненты Delphi	6	21.03.2011 11:51
Разделение строк удовлетворяющих определенным условиям	prettyfly	Microsoft Office Excel	1	15.11.2010 16:52

19.04.2012, 21:28	#3
Abdukhafiz Пользователь Регистрация: 29.12.2011 Сообщений: 31	не вот нашелся вариант.. Public Sub qqq() e = "Subrack No.=40, Slot No.=0, Port No.=0, Board Type=EMU, Site No.=144, Site Type=BTS3900" Dim mass() As String mass = Split(e, ",") End Sub