Prikazi cijelu temu 19.01.2021 18:22
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: VBA zamjena slova
eevo moja funkcija.
u str1 upisite znake koje trazite u stringu a u str2 na istoj poziciji znak u koji se mijenja.
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function fnCZtoLAT(Naziv As String) As String
  2. '******************************************************
  3. 'Autor:zxz
  4. 'datum: 19.01.2021
  5. 'mijenja karaktere iz str1 u adekvatne po poziciji u str2
  6. 'u string kao ulazni parametar Naziv
  7. '********************************************************
  8. Const str1 = "IÅ EOŽÝÁÍÉÚUiÅ¡eožýáíéúua "
  9. Const str2 = "ESCRZYAIEUUescrzyaieuucu"
  10. Dim duz As Integer, i As Integer, poz As Integer, n As Integer
  11. Dim car1 As String * 1, car2 As String * 1, str As String
  12.  
  13. duz = Len(str1)
  14. str = Naziv
  15. n = 1
  16.   For i = 1 To duz
  17.   car1 = Mid(str1, i, 1)
  18.   car2 = Mid(str2, i, 1)
  19.   poz = InStr(n, str, car1)
  20.     If poz > 0 Then
  21.     str = Replace(str, car1, car2)
  22.     End If
  23.   Next i
  24.  fnCZtoLAT = str
  25. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.