Function Naziv_Art(NazivASrtikla As String)
Dim I As Integer
Dim Pozicija As Integer
Dim Duz_Art As Integer

Const Znak = ""
 
 
'-------------------------------
'Duzina teksta u nazivu artikla
'Moze se postaviti kao konstanta
Duz_Art = 38
'------------------------------
 
For I = 33 To 47
Izmjena1:
Pozicija = InStr(1, NazivASrtikla, Chr(I))
     If Pozicija > 0 Then
     If I <> 44 Or I = 46 Then
     NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
     GoTo Izmjena1
     End If
     End If
Next I
 
For I = 58 To 63
Izmjena2:
Pozicija = InStr(1, NazivASrtikla, Chr(I))
     If Pozicija > 0 Then
     NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
     GoTo Izmjena2
     End If
Next I
If Len(NazivASrtikla) > Duz_Art Then
 NazivASrtikla = Left(NazivASrtikla, Duz_Art - 1) & "."
End If
 
Naziv_Art = NazivASrtikla
End Function