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"
Как поместить неск. строк в массив?
есть строки (в примере абстракция)
mtext1 = "abv"
mtext2 = "drkkij"
mtext3 = "hkjju"
mtext4 = "erer"
Потом я их хочу подставлять в глобальную автозамену (в редакторе Ворд) по схеме mtext1 менять на mtext2, потом mtext3 менять на mtext4. Могут появиться и другие строки. Как бы их поместить в массив, что бы в заменах указывать только номер элемента - 1 и 2, потом 3 и 4, потом 5 и 6 (если они будут появляться? Т.е. мессив хорошо бы иметь динамический.
mtext1 = "abv"
mtext2 = "drkkij"
mtext3 = "hkjju"
mtext4 = "erer"
Потом я их хочу подставлять в глобальную автозамену (в редакторе Ворд) по схеме mtext1 менять на mtext2, потом mtext3 менять на mtext4. Могут появиться и другие строки. Как бы их поместить в массив, что бы в заменах указывать только номер элемента - 1 и 2, потом 3 и 4, потом 5 и 6 (если они будут появляться? Т.е. мессив хорошо бы иметь динамический.
Это уже есть, список называется:
Код:
Dim replasements As List(Of String)
replasements = New List(Of String)
replasements.Add("eeeeee")
replasements = New List(Of String)
replasements.Add("eeeeee")
Что-то у меня все покраснело. Наверное, это синтаксиси VB, VBA не понимает. ОК. Допишу руками размерность массива. Спасибо.
Это синтаксис VB.NET, а Вы можете попробовать использовать что-то вроде :
Код:
Возможно также Вам окажется полезна и коллекция, т.е.
Код:
Dim iCollection As New Collection
iCollection.Add "abv"
iCollection.Add "drkkij"
iCollection.Add "hkjju"
iCollection.Add "erer"
'...
iCollection.Add "new text"
MsgBox iCollection(5), , ""
iCollection.Add "abv"
iCollection.Add "drkkij"
iCollection.Add "hkjju"
iCollection.Add "erer"
'...
iCollection.Add "new text"
MsgBox iCollection(5), , ""
Цитата: pashulka
Возможно также Вам окажется полезна и коллекция, т.е.
Код:
Dim iCollection As New Collection
...
MsgBox iCollection(5), , ""
...
MsgBox iCollection(5), , ""
Да, через коллекцию мне понравилось. И наглядно и удобно. Спасибо!