Prikazi cijelu temu 21.05.2015 16:51
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
eve izmenati funkcii kako sto si trazila

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function GT(Podatok, Optional DelBroj As Integer = 1)
  2. Dim RedPod As String
  3. Dim BrojVar As Integer
  4. Dim ArrPodaci
  5. Dim Arr() As String
  6. Dim I As Integer
  7.  
  8.  
  9.  
  10.  If IsNull(ArrPodaci) Or ArrPodaci = "" Then
  11.     GT = " "
  12.    ' Exit Function
  13. Else
  14.  
  15.   RedPod = Podatok ' "+CRLP: 61,61,78,6"
  16.  Vrati_Podatak RedPod, BrojVar, ArrPodaci
  17.     Arr = Split(ArrPodaci, ",")
  18.    'For I = 0 To BrojVar
  19.    GT = Arr(DelBroj)
  20.  'Next I
  21. End If
  22.  
  23. End Function
  24.  
  25. Function GN(Value) As String
  26. Dim Index As Long
  27. Dim Final As String
  28.  
  29.  If IsNull(Value) Or Value = "" Then
  30.     GN = " "
  31.     Exit Function
  32.  Else
  33.  
  34.   For Index = 1 To Len(Value)
  35.     If Mid(Value, Index, 1) Like "[0-9]" Then
  36.       Final = Final & Mid(Value, Index, 1)
  37.     End If
  38.   Next
  39.  
  40.  
  41.   GN = Final
  42.   End If
  43.  
  44. End Function