• На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Тема: Как построить фильтр для строк "text", содержащих числа?

Пытался построить фильтр, выбирающий из всех объектов Text только объекты, содержащие числа. Была идея проверять каждый символ в строке по коду ASCI, но как это организовать, не имею понятия и времени пока нет покопаться. Или надо пойти другим путем?..
Может у кого есть готовые идеи относительно этого вопроса?

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как построить фильтр для строк "text", содержащих числа?

По коду ASCI долго, но вот ка получить код ASCI
Debug.Print Chr(65) 'напечатает A
Debug.Print Asc("A") 'напечатает 65
лучше использовать IsNumeric проверяет является ли вырожение числом, возвращает True если число. Функция обрабатывает данные любого типа без генерации ошибки

  • На форуме с 10 августа 2004г.
  • Сообщений: 917
  • Спасибо: 5

Re: Как построить фильтр для строк "text", содержащих числа?

> Сидор Лютый
У меня вроде так работает для Text & Mtext:

Dim groupCode() As Integer
Dim groupValue As Variant
ReDim groupCode(1): ReDim groupValue(1)
groupCode(0) = 0:    groupValue(0) = "*TEXT"
groupCode(1) = 1:       groupValue(1) = "*#*"
objSset.Select acSelectionSetAll, , , groupCode, groupValue

~'J'~

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как построить фильтр для строк "text", содержащих числа?

> Олег(jr.)
А у меня не работает...
Но интересно другое, скажи пожалуйста, откуда ты взял тип примитива "*#*" ?