Prikazi cijelu temu 16.08.2012 15:02
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Iz Å kole VB-a
I ovo sam našao negdje u Arhivi neznam mogu li ovo iskoristiti:
PreuzmiIzvorni kôd (Text):
  1. Public Function pretvori(dovezi As String) As String
  2. Dim staraslova As String
  3.  
  4. staraslova = dovezi
  5. staraslova = Replace(staraslova, "[", "Å ")
  6. staraslova = Replace(staraslova, "{", "Å¡")
  7.  
  8. staraslova = Replace(staraslova, "]", "")
  9. staraslova = Replace(staraslova, "}", "")
  10.  
  11. staraslova = Replace(staraslova, "^", " ")
  12. staraslova = Replace(staraslova, "~", "
  13. ")
  14.  
  15. staraslova = Replace(staraslova, "@", "Ž")
  16. staraslova = Replace(staraslova, "`", "ž")
  17.  
  18. staraslova = Replace(staraslova, "\", "")
  19. staraslova = Replace(staraslova, "|", "")
  20. pretvori = staraslova
  21. End Function
Miro
Ovaj post je ureden 1 puta. Posljednja izmjena 16.08.2012 15:04 od strane miro35.