V spremenljivki je ime lista sestavljeno iz črk in številk. Kako iz te spremenljivke izluščiti številke. Spremenljivka je deklarirana kot niz znakov (string).
Primer:
Dim ime as string
ime = "bolha12majhna"
Iz tega bi rad izluščil niz 12.
Za pomoč se zahvaljujem!
Lep dan!
Buba
Številke kot znaki
Številke kot znaki
Buba
Spodnja funkcija vam bo iz niza izločila prvo številko (samo prvo!):
Funkcija se preprosto "sprehodi" preko vseh znakov v besedi in če naleti na cifro si jo zapomni v drug niz znakov. Ko cifer ni več ali pa je prišla do konca niza konča zanko. Na koncu zanke prebran niz znakov pretvori v številko.
Koda: Izberi vse
'
' www.matjazev.net
' 10.09.2009
'
Function IzluscuiStevilko(vhod As String) As Long
Dim stevilka As String, znak As String
Dim naselCifro As Boolean
Dim pozicija As Integer
naselCifro = False
pozicija = 1
Do While (pozicija <= Len(vhod))
znak = Mid(vhod, pozicija, 1)
If (znak >= "0") And (znak <= "9") Then
naselCifro = True
stevilka = stevilka + znak
Else
If (naselCifro) Then Exit Do
End If
pozicija = pozicija + 1
Loop
IzluscuiStevilko = 0
If (stevilka <> "") Then IzluscuiStevilko = CLng(stevilka)
End Function
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator