Predmet:Re: Poruka o završetku printanja, dali može?
PreuzmiIzvorni kôd (Visual Basic):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
MsgBox "Greška Br: " & Err.Number, vbCritical + vbOKOnly + vbDefaultButton1, "Napomena!!!"
End If
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden
1
puta. Posljednja izmjena 09.12.2010 20:08 od strane zxz.