..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Številke kot znaki

Pomoč pri izdelavi makrov

Številke kot znaki

OdgovorNapisal/-a Buba » Če sep 10, 2009 9:45 am

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
Buba
 
Prispevkov: 83
Pridružen: Sr mar 12, 2008 11:49 am
Kraj: Maribor



Matjazev.NET
 

OdgovorNapisal/-a admin » Če sep 10, 2009 9:59 am

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
admin
Site Admin
 
Prispevkov: 3537
Pridružen: Sr jul 20, 2005 10:06 pm

OdgovorNapisal/-a Buba » Če sep 10, 2009 10:16 am

Hvala za odgovor!
Buba
Buba
Buba
 
Prispevkov: 83
Pridružen: Sr mar 12, 2008 11:49 am
Kraj: Maribor


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 2 gostov

cron