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 kd (Text):Public Function fnCZtoLAT(Naziv As String) As String
fnCZtoLAT = Naziv
fnCZtoLAT = Replace(fnCZtoLAT, "Z", "C") '
fnCZtoLAT = Replace(fnCZtoLAT, "9", "S") 'Š
fnCZtoLAT = Replace(fnCZtoLAT, "†", "C") '
fnCZtoLAT = Replace(fnCZtoLAT, "9", "s") 'š
fnCZtoLAT = Replace(fnCZtoLAT, "‡", "c") '
fnCZtoLAT = Replace(fnCZtoLAT, "d", "c") '
fnCZtoLAT = Replace(fnCZtoLAT, "‘", "d") '
fnCZtoLAT = Replace(fnCZtoLAT, "9>", "z") 'ž
fnCZtoLAT = Replace(fnCZtoLAT, "9", "Z") 'Ž
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.