Prikazi cijelu temu 19.05.2015 15:47
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Eve i za megu zagradite

PreuzmiIzvorni kфd (Visual Basic):
  1. Function DioStr(Dio As Integer, Str As String, Karakter As String) As String
  2. Dim Pozicija1, Pozicija2, Brojac
  3. '***************************************************************************
  4. 'FUNKCIJA ZA SJECENJE STRINGA KADA JE POZNAT
  5. 'KARAKTER IZMEDJU KOJEG SE SIJECE STRING
  6. 'Autor funkcije(ZXZ)
  7. '***************************************************************************
  8. On Error GoTo Greska:
  9. Pozicija2 = 1
  10. If Right(Str, 1) <> Karakter Then 'Ako je desni karakter razlicit tada
  11. Str = Trim(Str) & Karakter 'Dodaj karakter na kraj
  12. End If 'Kraj uslova
  13.  
  14. 'POZICIJA IZMEDJU DVA KARAKTERA
  15. For Brojac = 1 To Dio
  16. Pozicija1 = InStr(Pozicija2, Str, Karakter, 1)
  17. If Brojac < Dio Then
  18. Pozicija2 = Pozicija1 + 1
  19. If Pozicija1 = 0 Then GoTo Upozorenje
  20. End If
  21. Next Brojac
  22. 'DIO STRINGA IZMEDJU DVIJE POZICIJE
  23. DioStr = Mid(Str, Pozicija2, Pozicija1 - Pozicija2)
  24. Exit Function
  25. Greska:
  26. If Err.Number = 5 Then
  27. Upozorenje:
  28. Beep
  29. MsgBox "Баравте дел кој не постои!!!!", vbCritical + vbOKOnly + _
  30.         vbDefaultButton1, "Напомена!!!"
  31. Else
  32. MsgBox "Greska Br: " & Err.Number, vbCritical + vbOKOnly + _
  33.         vbDefaultButton1, "Napomena!!!"
  34. End If
  35. End Function
  36.