Cuestión : extracción de la secuencia

Quisiera extraer el siguiente de una secuencia: los números del

any siguieron por la letra V o v: el igonre del
#V
##V

not
###V

must todos los carácteres después del V y no hace caso de todos los carácteres o números antes de #V o antes del ##V

 class= > " claro " del
soluciones >Related class= número del >Extract del " qRelatedChild " del class= de la secuencia " del title= " del href= " /Microsoft/Development/MS_Access/Q_26299623.html " del

Respuesta : extracción de la secuencia

La función abajo vuelve el primer tal número encajado de una secuencia.

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

Función GetNumV (texto)
    Posición dévil como número entero
    Hacer
        posición = InStr (posición + 1, texto, “V”)
        Si posición > 2 entonces
            Si es mediados de (texto, posición - 2, 2) como “##” entonces
                GetNumV = Val (mediados de (texto, posición - 2, 2))
                Salir la función
            Terminar si
        Terminar si
        Si posición > 1 entonces
            Si es mediados de (texto, posición - 1, 1) como “#” entonces
                GetNumV = Val (mediados de (texto, posición - 1, 1))
                Salir la función
            Terminar si
        Terminar si
    Colocar mientras que posición
    GetNumV = falta de información
Función del final
Otras soluciones  
 
programming4us programming4us