Prikazi cijelu temu 30.08.2012 01:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Iz Å kole VB-a
Vidim da ti izgleda ne pase odgovor.
Evo u proceduri.
PreuzmiIzvorni kôd (Visual Basic):
  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.  
  11. DuzStr = Len(Naziv_Art)
  12. Temp = Naziv_Art
  13. For I = 1 To DuzStr
  14. Znak = Mid(Naziv_Art, I, 1)
  15. If Znak = Znak1 Or Znak = Znak2 Then
  16.     If Asc(Znak) > 200 Then
  17.     Temp = Left(Temp, I - 1) & "c" & Mid(Temp, I + 1)
  18.     Else
  19.     Temp = Left(Temp, I - 1) & "C" & Mid(Temp, I + 1)
  20.     End If
  21. End If
  22. Next I
  23. Art = Temp
  24. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.