Вопрос : извлечение шнура

Я хотел был бы извлечь следующий от шнура: цифры

any последовали за письмом v или v: igonre
#V
##V

not
###V

must все характеры после v и игнорирует все характеры или цифры перед #V или перед ##V

class= " ясное " >

Related: номер >Extract " qRelatedChild " " class= шнура " title= " href= " /Microsoft/Development/MS_Access/Q_26299623.html

Ответ : извлечение шнура

Функция ниже возвращает первое такой врезанный номер от шнура.

(°v°)

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:

Функция GetNumV (текст) Тусклый pos как интежер Сделайте pos = InStr (pos + 1, текст, «v») Если pos > 2 после этого Если средний, то (текст, pos - 2, 2) как «##» после этого GetNumV = Val (среднее (текст, pos - 2, 2)) Выходите функция Закончитесь если Закончитесь если Если pos > 1 после этого Если средний, то (текст, pos - 1, 1) как «#» после этого GetNumV = Val (среднее (текст, pos - 1, 1)) Выходите функция Закончитесь если Закончитесь если Закрепите петлеть пока pos GetNumV = Null Функция конца