Questione : estrazione della stringa

Vorrei estrarre quanto segue da una stringa: i numeri del

any hanno seguito dalle lettere V o v: il igonre del
#V
##V

not
###V

must tutti i caratteri dopo la V ed ignora tutti i caratteri o numeri prima di #V o prima di ##V

 class= > " libero " del
soluzioni >Related class= numero del >Extract " del qRelatedChild " " del class= dalla stringa " del title= " del href= " /Microsoft/Development/MS_Access/Q_26299623.html di

Risposta : estrazione della stringa

La funzione sotto restituisce il primo tale numero incluso da una stringa.

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

Funzione GetNumV (testo)
    Posizione fioca come numero intero
    Fare
        posizione = InStr (posizione + 1, testo, “V„)
        Se posizione > 2 allora
            Se metà di (testo, posizione - 2, 2) come “##„ allora
                GetNumV = Val (metà di (testo, posizione - 2, 2))
                Uscire la funzione
            Concluder se
        Concluder se
        Se posizione > 1 allora
            Se metà di (testo, posizione - 1, 1) come “#„ allora
                GetNumV = Val (metà di (testo, posizione - 1, 1))
                Uscire la funzione
            Concluder se
        Concluder se
    Collegare mentre posizione
    GetNumV = posizione di segnale minimo
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us