Prikazi cijelu temu 28.08.2012 11:25
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Iz Å kole VB-a
Ovako imam ovu funkciju:
PreuzmiIzvorni kôd (Text):
  1. Function Naziv_Art(NazivASrtikla As String)
  2.     Dim I As Integer
  3.     Dim Pozicija As Integer
  4.     Dim Duz_Art As Integer
  5.      
  6.     Const Znak = ""
  7.      
  8.      
  9.     '-------------------------------
  10.     'Duzina teksta u nazivu artikla
  11.     'Moze se postaviti kao konstanta
  12.     Duz_Art = Me.HCP
  13.     '------------------------------
  14.      
  15.     For I = 33 To 47
  16. Izmjena1:
  17.     Pozicija = InStr(1, NazivASrtikla, Chr(I))
  18.          If Pozicija > 0 Then
  19.          If I <> 44 Or I = 46 Then
  20.          NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
  21.          GoTo Izmjena1
  22.          End If
  23.          End If
  24.     Next I
  25.      
  26.     For I = 58 To 63
  27. Izmjena2:
  28.     Pozicija = InStr(1, NazivASrtikla, Chr(I))
  29.          If Pozicija > 0 Then
  30.          NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
  31.          GoTo Izmjena2
  32.          End If
  33.     Next I
  34.     If Len(NazivASrtikla) > Duz_Art Then
  35.      NazivASrtikla = Left(NazivASrtikla, Duz_Art - 1) & "."
  36.     End If
  37.      
  38.     Naziv_Art = NazivASrtikla
  39.     End Function
Kako da na ovu funkciju dodam da ukoliko nađe naÅ¡a slova č,ć itd stavi c ...
Miro