Predmet:Re: Iz Å kole VB-a
Ma niÅ¡ta bolje ne radit to sa dekoderom.LakÅ¡e je rjeÅ¡enje naprvit onu proceduru da mjenja naziv samo joÅ¡ dodati za ostala naÅ¡a slova:Å Å¡,Đđ,Ćć,Žž
PreuzmiIzvorni kôd (Text): Function Art(Naziv_Art As String) As String
Dim I As Integer
Dim DuzStr As Integer
Dim Temp As String
Dim Znak As String
Const Znak1 = "
"
Const Znak2 = ""
DuzStr = Len(Naziv_Art)
Temp = Naziv_Art
For I = 1 To DuzStr
Znak = Mid(Naziv_Art, I, 1)
If Znak = Znak1 Or Znak = Znak2 Then
Temp = Left(Temp, I - 1) & "c" & Mid(Temp, I + 1)
End If
Next I
Art = Temp
End Function
Miro