Predmet:Re: Iz Å kole VB-a
Ovako imam ovu funkciju:
PreuzmiIzvorni kôd (Text):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 = Me.HCP
'------------------------------
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
Kako da na ovu funkciju dodam da ukoliko nađe naÅ¡a slova č,ć itd stavi c ...
Miro