andrewkard1980
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: т.е. если эту програмку с файлом перенести на другой ПК, то он и там откроется ? | да откроется и даже будет работать с включенными макросами, просто защиту Вы прописываете в код, который можно легко просмотреть, понять и выключить. Добавлено: Коллеги, голова дымит уже, есть 2 строки: sStr1="Виноградарь, Правды просп., 76, 5/16-эт. дома, 68/46/8 кв.м, капремонт, х/р, с/у разд., 2 лодж. застекл., консьерж, домофон, 105000у.е., торг. Тел: (96) 7069771, моб. " sStr2="Виноградарь, Правды просп., 9/9-эт. дома, 61/40/7.5 кв.м, требует ремонта, с/у совм., двойной балкон не застеклен, 83000у.е., торг. Тел: (44) 2293757, (67) 4471827, моб." Шаблон: Код: pRg.Global = True: pRg.Pattern = "[А-Яа-я-є-і-ї]{1,} (просп|шоссе|бульв|дорога|пл\.|бул\.|вул|ул|наб)" Set pMs = pRg.Execute(sStr) If pMs.Count > 0 Then sStr = pMs.Item(0) Else sStr = " " | Результат: sStr1=" " sStr2="Правды просп" Где ошибка? Почему не тянет в первом варианте? Заранее спасибо! Добавлено: Странно. В другом файле работает... Буду думать. Добавлено: Разобрался. Вопрос снят. Спасибо. |