Frage : Schnurextraktion

Ich möchte das folgende von einer Schnur extrahieren:

any Ziffern folgten vom Buchstaben V oder V:
#V
##V

not
###V

must igonre alle Buchstaben nach dem V und ignorieren alle Buchstaben oder Ziffern vor #V oder vor ##V

Antwort : Schnurextraktion

Die folgende Funktion zurückbringt das erste solche eingebettete Zahl von einer Schnur ttete.

(°v°)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
Funktion GetNumV (Text)
    Schwache Position als ganze Zahl
    Tun
        Position = InStr (Position + 1, Text, „V“)
        Wenn Position > 2 dann
            Wenn mittler (Text, Position - 2, 2) wie „##“ dann
                GetNumV = Val (mittler (Text, Position - 2, 2))
                Funktion herausnehmen
            Beenden wenn
        Beenden wenn
        Wenn Position > 1 dann
            Wenn mittler (Text, Position - 1, 1) wie „#“ dann
                GetNumV = Val (mittler (Text, Position - 1, 1))
                Funktion herausnehmen
            Beenden wenn
        Beenden wenn
    Schlingen während Position
    GetNumV = Null
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us