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
|