Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function DioStr(Dio As Integer, str As String, Karakter As String, Opcija As Integer) As String Dim Pozicija1, Pozicija2, Brojac '*********************************************************************** 'FUNKCIJA ZA SJECENJE STRINGA KADA JE POZNAT 'KARAKTER IZMEDJU KOJEG SE SIJECE STRING 'Autor funkcije(ZXZ) '*********************************************************************** On Error GoTo Greska: Pozicija2 = 1 If Opcija = 0 Then If Right(str, 1) <> Karakter Then 'Dali je desni karakter razlicit ako jeste tada str = Trim(str) & Karakter 'Dodaj karakter na kraj End If 'Kraj uslova End If 'POZICIJA IZMEDJU DVA KARAKTERA For Brojac = 1 To Dio Pozicija1 = InStr(Pozicija2, str, Karakter, 1) If Brojac < Dio Then Pozicija2 = Pozicija1 + 1 If Pozicija1 = 0 Then GoTo Upozorenje End If Next Brojac 'DIO STRINGA IZMEDJU DVIJE POZICIJE DioStr = Mid(str, Pozicija2, Pozicija1 - Pozicija2) Exit Function Greska: If Err.Number = 5 Then Upozorenje: DioStr = "" Else