OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

richardhold

Člen

Registrace: 23. 2. 2011

Příspěvků: 10

Konvertovat text na cislo makro - VYŘEŠENO

Prosim mozete mi niekdo pomoct vytvorit makro ktore by prepisalo text vo vybranych bunkach napriklad "1245.6 kg" na cislo "1245.6" , alebo napisat link kde by som to mohol najst.

Dik

hanus

Člen

Místo Olomouc

Registrace: 29. 11. 2006

Příspěvků: 573

Web

Re: Konvertovat text na cislo makro - VYŘEŠENO

menu Úpravy -> Najít a nahradit: hledat " kg" a nahradit za nic ""; pak je ještě otázka desetinné tečky/čárky - opět hledat "." a nahradit za ",", pokud máte nastavenu pro čísla des.čárku - řešilo se to tu už X krát.

Jak níže doplňuje lp. - nahrazení provést v opačném pořadí (nejřív . na , a pak výmaz jednotek).

Editoval hanus (23. 2. 2011 13:25:33)

richardhold

Člen

Registrace: 23. 2. 2011

Příspěvků: 10

Re: Konvertovat text na cislo makro - VYŘEŠENO

dik za rychlu odpoved

lp.

Člen

Registrace: 24. 9. 2009

Příspěvků: 842

Re: Konvertovat text na cislo makro - VYŘEŠENO

Otočete pořadí - napřed srovnejte tečku a až potom vymažte kg (jinak se některá čísla změní na datum)

richardhold

Člen

Registrace: 23. 2. 2011

Příspěvků: 10

Re: Konvertovat text na cislo makro - VYŘEŠENO

Makro co moze pomoct. Priklad je na vyhladanie napriklad textu:

SUB Vyhladaj_Prepis
DIM Dokument, Vymena AS object
DIM kolko, teraz AS Long
REM premenná kolko obsahuje celkový počet zámen, premenna teraz počet zámen v jednom cykle
Dokument=ThisComponent
Vymena=Dokument.createReplaceDescriptor()
Vymena.SearchString=" Tu napis text co hladas"
Vymena.ReplaceString=" Tu co chces vymenit"
teraz=Dokument.replaceAll(Vymena) ' prevedieme základnú výmenu
kolko=teraz
DO WHILE teraz<>0 ' Opakujeme pokiaľ bola urobená nejaká výmena
' aktuálny počet zámien uložíme do premennej teraz
teraz=Dokument.replaceAll(Vymena) ' prevedieme opakovanú výmenu
REM spočítame úplne všetky zámeny
kolko=kolko+teraz
LOOP
msgbox("Nahradených "+kolko+"x textu.",0,"TEXT")
END SUB