Prikazi cijelu temu 09.12.2010 20:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Poruka o završetku printanja, dali može?
PreuzmiIzvorni kôd (Visual Basic):
  1. Function DioStr(Dio As Integer, str As String, Karakter As String, Opcija As Integer) 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 Opcija = 0 Then
  11.             If Right(str, 1) <> Karakter Then                           'Dali je desni karakter razlicit ako jeste tada
  12.                      str = Trim(str) & Karakter                          'Dodaj karakter na kraj
  13.             End If 'Kraj uslova
  14.        End If
  15.   'POZICIJA IZMEDJU DVA KARAKTERA
  16.            For Brojac = 1 To Dio
  17.                     Pozicija1 = InStr(Pozicija2, str, Karakter, 1)
  18.                             If Brojac < Dio Then
  19.                                Pozicija2 = Pozicija1 + 1
  20.                                If Pozicija1 = 0 Then GoTo Upozorenje
  21.                             End If
  22.             Next Brojac
  23.  'DIO STRINGA IZMEDJU DVIJE POZICIJE
  24.        DioStr = Mid(str, Pozicija2, Pozicija1 - Pozicija2)
  25.  Exit Function
  26. Greska:
  27.              If Err.Number = 5 Then
  28. Upozorenje:
  29.                    DioStr = ""
  30.              Else
  31.                     MsgBox "GreÅ¡ka Br: " & Err.Number, vbCritical + vbOKOnly + vbDefaultButton1, "Napomena!!!"
  32.              End If
  33. 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.