Fråga : stränga extraktion

Jag skulle något liknande till det extraktet efter från en stränga: tal för

any följde förbi märka V eller v: igonre för
#V
##V

not
###V

must alla tecken efter vet och ignorerar alla tecken eller tal för #V eller för ##V

 Related lösningar för class= ": title= " extrakt för Extract numrerar av dörrar från string

Svar : stränga extraktion

De nedanföra returna för fungera som det första inbäddade sådan numrerar från en stränga.

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

Fungera GetNumV (text)
    Dunkelt pos. som heltal
    Gör
        pos. = InStr (pos. + 1, text, ”V”)
        Om pos. > 2 därefter
            Om mitt- (text, pos. - 2, 2) gilla ”##” därefter
                GetNumV = mitt-, Val ((text, pos. - 2, 2))
                Gå ut fungerar
            Avsluta om
        Avsluta om
        Om pos. > 1 därefter
            Om mitt- (text, pos. - 1, 1) något liknande ”nr.” därefter
                GetNumV = mitt-, Val ((text, pos. - 1, 1))
                Gå ut fungerar
            Avsluta om
        Avsluta om
    Kretsa stundpos.
    GetNumV = ogiltigt
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us