Prikazi cijelu temu 06.12.2011 21:00
roko Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Rijeka


Predmet:Okretanjem stringa
Neznam dali se neko sretao s okretanjem stringa al ja ga dosta puta moram koristiti

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function Naopako(StrZaNaop As String) As String
  2.     Dim TempStr As String
  3.     Dim BrojSlovaAs Long
  4.     BrojSlova= Len(StrZaNaop)
  5.     Do Until BrojSlova= 0
  6.         TempStr = TempStr & Mid(StrZaNaop, lngCount, 1)
  7.         BrojSlova= BrojSlova- 1
  8.     Loop
  9.     Naopako = TempStr
  10. End Function
Ovaj post je ureden 1 puta. Posljednja izmjena 04.03.2012 00:09 od strane zxz.