Bosna i Hercegovina



#31 21.05.2015-17:06
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,528


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

DownloadIzvorni kod (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
↑  ↓

#32 21.05.2015-17:13
Amelasar Offline
Clan
Registrovan/a od: 07.04.2011-18:28
Komentari: 234


Subject: Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Hvala puno. Ovo je odlično.
Pozdrav, Amela
↑  ↓

Stranice (3): 1, 2, 3


All times are GMT +01:00. Current time: 17.10.2018-20:19.