Prikazi cijelu temu 19.05.2015 16:34
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Jas se izvinuvam ovaa funkcija DioStr e za secejne na stringot pomegu dva isti karakteri a vo slucajov kaj tebe se dva razlicni .
eve ti druga funkcija koja vadi broj od string ovaa ke ti zavrsi rabota

PreuzmiIzvorni kôd (Visual Basic):
  1. Function GetNumbers(Value As String) As String
  2. Dim Index As Long
  3. Dim Final As String
  4.  
  5.   For Index = 1 To Len(Value)
  6.     If Mid(Value, Index, 1) Like "[0-9]" Then
  7.       Final = Final & Mid(Value, Index, 1)
  8.     End If
  9.   Next
  10.  
  11.   GetNumbers = Final
  12. End Function


MsgBox GetNumbers("odlièan (5)")