Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как поместить неск. строк в массив?

248
15 ноября 2012 года
Dmitry2064
590 / / 06.12.2006
есть строки (в примере абстракция)
mtext1 = "abv"
mtext2 = "drkkij"
mtext3 = "hkjju"
mtext4 = "erer"
Потом я их хочу подставлять в глобальную автозамену (в редакторе Ворд) по схеме mtext1 менять на mtext2, потом mtext3 менять на mtext4. Могут появиться и другие строки. Как бы их поместить в массив, что бы в заменах указывать только номер элемента - 1 и 2, потом 3 и 4, потом 5 и 6 (если они будут появляться? Т.е. мессив хорошо бы иметь динамический.
40K
15 ноября 2012 года
D129
228 / / 18.04.2012
Это уже есть, список называется:

 
Код:
Dim replasements As List(Of String)

replasements  = New List(Of String)

replasements.Add("eeeeee")
248
15 ноября 2012 года
Dmitry2064
590 / / 06.12.2006
Что-то у меня все покраснело. Наверное, это синтаксиси VB, VBA не понимает. ОК. Допишу руками размерность массива. Спасибо.
275
15 ноября 2012 года
pashulka
985 / / 19.09.2004
Это синтаксис VB.NET, а Вы можете попробовать использовать что-то вроде :

Код:
Dim iArrText$()

ReDim Preserve iArrText(0 To 3)
iArrText(0) = "abv"
iArrText(1) = "drkkij"
iArrText(2) = "hkjju"
iArrText(3) = "erer"

... 'по необходимости
ReDim Preserve iArrText(0 To 4)
iArrText(4) = "new text"
275
15 ноября 2012 года
pashulka
985 / / 19.09.2004
Возможно также Вам окажется полезна и коллекция, т.е.

Код:
Dim iCollection As New Collection

iCollection.Add "abv"
iCollection.Add "drkkij"
iCollection.Add "hkjju"
iCollection.Add "erer"

'...

iCollection.Add "new text"
MsgBox iCollection(5), , ""
248
18 ноября 2012 года
Dmitry2064
590 / / 06.12.2006
Цитата: pashulka
Возможно также Вам окажется полезна и коллекция, т.е.

 
Код:
Dim iCollection As New Collection
...
MsgBox iCollection(5), , ""



Да, через коллекцию мне понравилось. И наглядно и удобно. Спасибо!

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог