Številke kot znaki

Pomoč pri izdelavi makrov
Odgovori
Buba
Prispevkov: 85
Pridružen: Sr Mar 12, 2008 11:49 am
Kraj: Maribor

Številke kot znaki

Odgovor Napisal/-a Buba »

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 :(
Buba
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Spodnja funkcija vam bo iz niza izločila prvo številko (samo prvo!):

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
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.
lp,
Matjaž Prtenjak
Administrator
Buba
Prispevkov: 85
Pridružen: Sr Mar 12, 2008 11:49 am
Kraj: Maribor

Odgovor Napisal/-a Buba »

Hvala za odgovor!
Buba
Buba
Odgovori