Pergunta : extração da corda

Eu gostaria de extrair o seguinte de uma corda: os numerais do

any seguiram pela letra V ou v: o igonre do
#V
##V

not
###V

must todos os caráteres após o V e ignora todos os caráteres ou numerais antes do #V ou antes do ##V

 class= > " desobstruído " do
soluções >Related class= número do >Extract do " qRelatedChild " " do class= da corda " do title= do " do href= " /Microsoft/Development/MS_Access/Q_26299623.html do

Resposta : extração da corda

A função abaixo retorna o primeiro tal número encaixado de uma corda.

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

Função GetNumV (texto)
    Posição não ofuscante como o inteiro
    Fazer
        posição = InStr (posição + 1, texto, “V”)
        Se posição > 2 então
            Se meados de (texto, posição - 2, 2) como o “##” então
                GetNumV = Val (meados de (texto, posição - 2, 2))
                Retirar a função
            Terminar se
        Terminar se
        Se posição > 1 então
            Se meados de (texto, posição - 1, 1) como “#” então
                GetNumV = Val (meados de (texto, posição - 1, 1))
                Retirar a função
            Terminar se
        Terminar se
    Dar laços quando posição
    GetNumV = zero
Função do fim
Outras soluções  
 
programming4us programming4us