Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


2SendMessage, оффтопиком:
читать дальше »
Так:
Код: Выделить весь код
Dim arrRepl

arrRepl = Array("_something1_", "_something2_", "_something3_", "_something4_")
…
For Each elem In arrRepl
'или
'For i = LBound(arrRepl) To Ubound(arrRepl)
…
удобнее.

Отправлено: 02:17, 26-06-2012 | #13