Prikazi cijelu temu 18.01.2021 13:00
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: VBA zamjena slova
Hvala Gjoreski, probat cu prilagoditi za svoje potrebe.
Problem je kod mene sto za 1 slovo daje 2 znaka :
primjer:

ÄŚ = Č

evo otkrio gdje je greska, znaci trebalo je provjeriti kolone 3,5,6.
Ja sam provjeravao kolone 5 i 6, a 3 sam zaboravio tako da mi se u 3 koloni javljali neprevedeni znakovi.
Cudno mi je bilo kada sam uneo naredbu

if Instr(naziv,"ÄŚ")>0 then stop

kod se nije zaustavio na tom mjestu tako da sam isao istrazivati i otkrio aljkavost u kodu.

upotrijebio sam Gjoreskovu funkciju koja odlicno obavlja posao.

PreuzmiIzvorni kôd (Text):
  1. Public Function fnCZtoLAT(Naziv As String) As String
  2.     fnCZtoLAT = Naziv
  3.    
  4.     fnCZtoLAT = Replace(fnCZtoLAT, "ÄZ", "C") '
  5.     fnCZtoLAT = Replace(fnCZtoLAT, "9 ", "S") 'Å 
  6.     fnCZtoLAT = Replace(fnCZtoLAT, "Ć", "C") '
  7.     fnCZtoLAT = Replace(fnCZtoLAT, "9Ç", "s") 'Å¡
  8.     fnCZtoLAT = Replace(fnCZtoLAT, "ć", "c") '
  9.     fnCZtoLAT = Replace(fnCZtoLAT, "Äd", "c") '
  10.     fnCZtoLAT = Replace(fnCZtoLAT, "Ä‘", "d") '
  11.     fnCZtoLAT = Replace(fnCZtoLAT, "9>", "z") 'ž
  12.     fnCZtoLAT = Replace(fnCZtoLAT, "9Ý", "Z") 'Ž
  13. End Function

pozivam ju na sljedeci nacin

nekiString=fnCZtoLat(nekiString)

kada nadete vremena mozete li mi reci kako upotrijebiti ovo:

FranceskoFoti je opisao kako prevesti znakove i rijesiti BOOM, usporeduje to sa Notepadom++
pa ako znate samo recite kako to upotrijebiti u VBA excelu

<franceskoFoti - Solving the Unicode, UTF8, UTF16 and Text Files conundrum in VBA>
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 18.01.2021 13:37 od strane Avko.