[ Bozzzi @ 06.02.2008. 13:23 ] @
Već sam jednom postavio pitanje i nisam dobio odgovor. To je bilo otprilike prije mjesec - dva dana. Da probam ponovo.

Dakle,

imam problem sa konkretno excelovim VB editorom i on se ogleda samo u nasim slovima. Da bi vam malo primakao dacu vam primjer. Ja zelim da napisem jednu malo macro kontrolu koja ce mi nase slovo "š" pokretanjem prebaciti u slovo s, znaci samo ukloniti kucicu iznad.

To otprilike izgleda ovako:

Sub utf8()


' š malo
Cells.Replace What:="š", Replacement:="s", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True


End Sub

I ovo sve radi OK. Mozete i probati da bi se uvjerili. Znaci slova Š š Ž ž (veliko i malo š i veliko i malo ž) rade OK.

Problem je u tome što mi ne rade slova Đđ Čč Ćć.

Dakle isto je sve potpuno:

Sub utf8()


' č malo
Cells.Replace What:="č", Replacement:="c", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True


End Sub

i nece.

Ukoliko bi neko imao bilo kakvu sugestiju koja bi rjesila ovaj moj problem, bio bih puno zahvalan ako bi je podijelio samnom.

Odavno pokushavam ovo rijesiti bezuspjesno
[ Predrag Glumac @ 06.02.2008. 13:50 ] @
Omasio si forum

Uglavnom, problem ti je sto VB skripta nije unicode, ali karakteri Š š Ž ž mogu da prodju. Probaj da zamenis u poredjenu slova sa unicode hex vrednostima.
[ Bozzzi @ 06.02.2008. 14:25 ] @
Hvala na odgovoru.

Bi li mi mogao malo pomoci oko prestavljanja hex karaktera. Mogu na netu naci tabelu hex karaktera, ali da li treba nesto dodati ispred u VB-u?

[ Predrag Glumac @ 06.02.2008. 14:34 ] @
Hmmm, valjda nista Zameni Cells.Replace What:="š", sa Cells.Replace What:=&H353 i probaj da li radi.
[ Bozzzi @ 06.02.2008. 15:20 ] @
Citat:
Predrag Glumac: Hmmm, valjda nista :) Zameni Cells.Replace What:="š", sa Cells.Replace What:=&H353 i probaj da li radi.



NECE!!!
[ Predrag Glumac @ 06.02.2008. 15:41 ] @
Tja, onda ne znam, ali palo mi nesto na pamet: koji font se koristi u dokumentu ?
[ Bozzzi @ 07.02.2008. 12:18 ] @
Ljudi,

da li je moguce da niko nema odgovor na ovo pitanje??? Zar se niko nije susreo sa ovim?

Ja sam puno toga isprobao ali nikako da dodjem do rjeshenja.

Bilo kakva pomoc bi mi znachila.

HVALA
[ Shadowed @ 07.02.2008. 13:11 ] @
Da li ti je .vbs fajl snimljen kao utf-8? Ako jeste, pitanje je da li uopste moze, jer je uvek nekih problema sa vb6/vbscript-om. da li ti je obavezno da bude bas VBScript?

Btw, u tim situacijama kada "nece" sta se zapravo desi? Kakav je rezultat?
[ Bozzzi @ 07.02.2008. 13:26 ] @
Jeste, snimljen je kao UTF-8.

Nije mi obavezno da bude VB script, ali ja ne znam drugi nacin kako da u ogromnom excel dokumentu iz jednog poteza izmjenim sve karaktere osim koristeci VB script.

U situacijama kada "nece" - nishta se ne desi, č ostane č! Ne promijeni se.

Nemam bash nikakvu ideju!
[ Shadowed @ 07.02.2008. 13:52 ] @
Ako je jedan fajl onda mozes u samom Excel-u sa search and replace. Ako je vise.. onda treba skripta/program. Mozes u VB-u praviti program pa onda pogledaj po forumu teme koje se ticu nasih slova u VB-u.
Ako stignem (a mala je sansa, jer ne znam ni ja napamet kako treba pa bih morao traziti) uradicu ti ja u vb.net-u, ako ti samo te zamene trebaju.
[ Bozzzi @ 07.02.2008. 14:04 ] @
Meni to treba za vishe fajlova pa mi EXCEL nije kao opcija. Ako bi stigao pa i za 10 dana bi mi puno znacilo.

Hvala!
[ galahad @ 12.02.2008. 10:20 ] @
Evo sad videh ovu temicu, pa da probamo josh neshto... Pokusaj ovo:

Code:

Cells.Replace What:="č", Replacement:="c", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True

' *** zameni sa ***
Cells.Replace What:=ChrW$(268), Replacement:="c", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True


Znam da u VB6 ChrW$ se koristi za wide karaktere, odnosno Unicode, ali ne znam kakvo je stanje sa VBScriptom, mada, ako je radjen kao i VB, onda je u osnovi unicode... Pokushaj ovako, pa mi javi, pa ako ne ide, napisatjemo neshto u VB na brzinu, valjda tjemo smuljati...
[ Bozzzi @ 12.02.2008. 10:42 ] @
Ti si majstor stvarno!!!

Evo radi!

Nemash pojma kolkiko si mi pomogao!

Hvala i svak achast!