Prikazi cijelu temu 21.05.2015 18:06
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Ha ha glupava greska vo kucajneto eve ispravno

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.  If IsNull(Podatok) Or Podatok = "" Then
  10.     GT = " "
  11.    ' Exit Function
  12. Else
  13.  
  14.   RedPod = Podatok ' "+CRLP: 61,61,78,6"
  15.  Vrati_Podatak RedPod, BrojVar, ArrPodaci
  16.     Arr = Split(ArrPodaci, ",")
  17.    'For I = 0 To BrojVar
  18.    GT = Arr(DelBroj)
  19.  'Next I
  20. End If
  21.  
  22. End Function