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
Eve probaj ova dali ke zavrsi rabota .
Ovaa funkcija ja napravi ZXZ za mene jas ja smenav malku pa vidi dali ke odgovara.

PreuzmiIzvorni kôd (Visual Basic):
  1.  
  2. Public Function OdsecenDel(Podatok As String, Optional DelBroj As Integer = 1)
  3. Dim RedPod As String
  4. Dim BrojVar As Integer
  5. Dim ArrPodaci
  6. Dim Arr() As String
  7. Dim I As Integer
  8.  
  9. RedPod = Podatok ' "+CRLP: 61,61,78,6"
  10. Vrati_Podatak RedPod, BrojVar, ArrPodaci
  11.  
  12.  If IsNull(ArrPodaci) Or ArrPodaci = "" Then
  13.     Exit Function
  14.  Else
  15.     Arr = Split(ArrPodaci, ",")
  16.    'For I = 0 To BrojVar
  17.    OdsecenDel = Arr(DelBroj)
  18.  'Next I
  19. End If
  20.  
  21. End Function
  22.  
  23.  
  24. Public Function Vrati_Podatak(UlazniPodatak As String, Optional BrojVar As Integer = 0, Optional ArrPodaci = "")
  25. Dim Poz As Integer, Duzina As Integer, I As Integer
  26. Dim PrviDio As String, DrugiDio As String, Skupa As String
  27. Dim Znak As String
  28.  
  29. Poz = InStr(1, UlazniPodatak, "(", vbBinaryCompare)
  30. If Poz = 0 Then GoTo Kraj
  31.  
  32. PrviDio = Mid(UlazniPodatak, 1, Poz - 1)
  33. DrugiDio = Mid(UlazniPodatak, Poz + 1)
  34. Skupa = PrviDio & "," & DrugiDio
  35. Duzina = Len(UlazniPodatak) - 1
  36. BrojVar = 0
  37.     For I = 1 To Duzina
  38.     Znak = Mid(Skupa, I, 1)
  39.         If Znak = "," Then
  40.         BrojVar = BrojVar + 1
  41.         End If
  42.     Next I
  43. ArrPodaci = Skupa
  44. Izlaz:
  45. Exit Function
  46. Kraj:
  47. ArrPodaci = ""
  48. BrojVar = 0
  49. GoTo Izlaz
  50. End Function

se povikuva

MsgBox OdsecenDel("odlièan (5)", 0)

Ovaa funkcija ke ti go odvoi prviot del od stringot do prvata zagrada (

Ako ti treba funkcija za vo zagradata imas vo korisan kod funkcija DeoString