Prikazi cijelu temu 31.08.2012 08:15
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


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):
  1.     Function Art(Naziv_Art As String) As String
  2.     Dim I As Integer
  3.     Dim DuzStr As Integer
  4.     Dim Temp As String
  5.     Dim Znak As String
  6.     Const Znak1 = "
  7.     "
  8.     Const Znak2 = ""
  9.      
  10.     DuzStr = Len(Naziv_Art)
  11.     Temp = Naziv_Art
  12.     For I = 1 To DuzStr
  13.     Znak = Mid(Naziv_Art, I, 1)
  14.     If Znak = Znak1 Or Znak = Znak2 Then
  15.     Temp = Left(Temp, I - 1) & "c" & Mid(Temp, I + 1)
  16.     End If
  17.     Next I
  18.     Art = Temp
  19.     End Function
Miro