Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 23. 2. 2011 12:26:36

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

Offline

#2 23. 2. 2011 12:30:59

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)

Offline

#3 23. 2. 2011 12:33:33

richardhold
Člen
Registrace: 23. 2. 2011
Příspěvků: 10

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

dik za rychlu odpoved

Offline

#4 23. 2. 2011 13:02:55

lp.
Člen
Registrace: 24. 9. 2009
Příspěvků: 769

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)

Offline

#5 15. 3. 2011 22:38:28

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

Offline

Zápatí