Kecy v kleci

Pochlubte se svými úspěchy, zanadávejte na fotobanky, upozorněte na novinky

Re: Kecy v kleci

Příspěvekod cristographic » 11. leden 2020 23:12

hanse píše:Především aktuální "Závislost mezi výší výdělků a velikostí portfolia" (v minulosti se mi osvědčilo pro porovnání, i když aktuálně se začínám trochu rozcházet), a pak výdělečnost jednotlivých fotobank :)

Samozřejmě bych se opět účastnil (děkuji) ;)


Tyto dvě věci by mě také zajímaly.
Hodnocení: 0
cristographic
 
Příspěvky: 15
Registrován: 28. červen 2017 09:53

Reputace: +16

Re: Kecy v kleci

Příspěvekod shalom3 » 11. leden 2020 23:52

Nejsem si jistá, jestli tenhle vztah o něčem vypovídá, řekla bych, že to hodně závisí na tématech a kvalitě. A při té konkurenci také dost o štěstí...
Hodnocení: 0
Uživatelský avatar
shalom3
 
Příspěvky: 3495
Registrován: 1. březen 2014 22:50

Reputace: +708

Re: Kecy v kleci

Příspěvekod vlastas » 15. leden 2020 09:37

Prosím o radu, jsem grafik a cokoli načáchnutý programováním je pro mě zapovězené a nepochopitelné. Jestli je tu ještě Panda... :)

Potřebuji udělat úplně triviální jednoduchý makro pro Libreoffice, které mi jedno slovo nahradí jiným.

Něco jako tohle, co jsem používal pro Adobe InDesigh a fungovalo skvěle
myDoc.search("původní",false,false,"nahrazené");

Pro Libreoffice jsem našel tento návod ale nevím jak to rozběhat, pořád mi to nefunguje
Replace(seno, jehla, nahrad) V řetězci seno nahradí všechny řetězce jehla
řetězcem nahrad.

Nevím jak to interpretovat, zkoušel jsem všechno možný a nejde mi to. Nevím kam dát "původní" kam "nahrazené" a co bude mezi tím?

Čerpám z tohoto, ale pro mě je to jen hromada nicneříkajících čísel závorek uvozovek a písmenek.
http://archiv.gymkrom.cz/web/ict/materi ... O-Calc.pdf
Hodnocení: 0
vlastas
 
IP: 178.255.168.xx

Reputace: 0

Re: Kecy v kleci

Příspěvekod PandaWild » 15. leden 2020 12:14

Předpokládám že nestačí klávesa Ctrl+H "Najít a nahradit", protože je potřeba náhrada více textů?

Nainstaloval jsem si LibreOffice (OpenOffice mi tu přestal jet, tuhne) a tady našel celkem dobře popsaný návod https://prahladyeri.com/blog/2016/02/te ... cipes.html

Vytvoření makra např. v tabulkovém kalkulátoru (v jiných dokumentech podobné, jen budou trochu jiné objekty):

V menu zvolit: Nástroje / Makra / Správce maker / LibreOffice Basic. Tam si buď vybrat globální makra "Moje makra" (budou fungovat ve všech sešitech) nebo vybrat editovaný sešit a v něm založit nové makro přes Nový (vlevo nahoře se zadá jméno makra, příp. i jméno nově vytvořené knihovny).

Otevře se editor makra v jazyku Basic. Vložit makro podle příkladu dole. V poli "hledat()" se zadají hledané řetězce, v poli "nahradit()" se zadají náhradní řetězec. Ke každému textu v hledat() přísluší jeden text v nahradit(). Makro uložit.

Spuštění makra - buď přes menu Nástroje / Makra / Spustit makro, nebo přes horkou klávesu. Horká klávesa se nadefinuje v Nástroje / Přizpůsobit / Klávesnice. Dole se vyhledá to makro v kategorii Makra LibreOffice. Nahoře se vybere klávesa a tlačítkem Změnit se klávese přiřadí makro. Pokud je to tlačítko šedé, popojet v seznamu na jinou klávesu a zpět.

Makro funguje v aktuálně vybraném listu (původní zdroj byl jen pro list 0).

Kód: Vybrat vše
Sub Nahrada
   Dim hledat() As String
   Dim nahradit() As String
   Dim n As Long
   Dim sheet As Object
   Dim replace As Object
   
   hledat() = Array("Pepa", "Karel")
   nahradit() = Array("Pepik", "Karlik")
   sheet = ThisComponent.CurrentController.ActiveSheet
   replace = sheet.createReplaceDescriptor
   For n = lbound(hledat()) To ubound(hledat())
      replace.SearchString = hledat(n)
      replace.ReplaceString = nahradit(n)
      sheet.replaceAll(replace)
   Next n
End Sub
Hodnocení: 0
Uživatelský avatar
PandaWild
 
Příspěvky: 6599
Registrován: 22. listopad 2013 12:03

Reputace: +1596

Re: Kecy v kleci

Příspěvekod Painter » 15. leden 2020 12:25

Hodnocení: 0
Painter
 
IP: 31.30.173.1xx

Reputace: 0

Re: Kecy v kleci

Příspěvekod vlastas » 15. leden 2020 12:48

Pando to je perfektní. Ano je toho víc a CTRL + H nestačí. Potřebuji nahrazovat asi 120 číselných kódů za jeji textové názvy, které se vyskytují v databázi opakovaně a náhodně (a hodněkrát).

Akorát jsem nenapsal, že bych to potřeboval pro textový dokument, nikoli sešit, ale i tak bych to využil, protože zdrojová data jsou v sešitu. Databázi kopíruju do texťáku, kde hromadně odstraním "tabulátory" který oddělujou buňky sešitu a doplním své předdefinované tabulátory a konce řádků a nechám doplnit zmíněné obory. Takto připravené to půjde na zalomení do Affinity Publisheru. Tohle všechno zvládal InDesign, Publisher to zatím bohužel neumí, tak si musím vypomoct přes libreoffice.

tady po zajímavost jak vypadá skript pro Adobe InDesign
Kód: Vybrat vše
var myDoc=app.activeDocument;
app.findPreferences = NothingEnum.nothing;
app.changePreferences = NothingEnum.nothing;

//Nahradí tabulátory za nic
myDoc.search("^t",false,false,"");

//Nahradí křížky za entry
myDoc.search("###",false,false,"^p");

//Nahradí zavináče za tabulátory
myDoc.search("@@@",false,false,"^t");

//Nahradí znaky
myDoc.search("o1000",false,false,"1000 - architekti");
myDoc.search("o1020",false,false,"1020 - armovací a železářské práce");
myDoc.search("o1030",false,false,"1030 - balkony, lodžie, zasklívání");
myDoc.search("o1040",false,false,"1040 - barvy, laky");
myDoc.search("o1050",false,false,"1050 - bazény, jímky");
myDoc.search("o1060",false,false,"1060 - beton - betonárky");
... dalších přes 100 položek
Hodnocení: 0
vlastas
 
IP: 178.255.168.xx

Reputace: 0

Re: Kecy v kleci

Příspěvekod PandaWild » 15. leden 2020 12:49

Tedy rozhodně teď nepřevádět výplaty z PayPal na Kč účet, jestli nechceme přijít na mizinu?
+shalom3 Hodnocení: +1
Uživatelský avatar
PandaWild
 
Příspěvky: 6599
Registrován: 22. listopad 2013 12:03

Reputace: +1596

Re: Kecy v kleci

Příspěvekod PandaWild » 15. leden 2020 13:21

vlastas píše:Pando to je perfektní. Ano je toho víc a CTRL + H nestačí. Potřebuji nahrazovat asi 120 číselných kódů za jeji textové názvy, které se vyskytují v databázi opakovaně a náhodně (a hodněkrát)....
Pro text to bude podobné, jen se použije jiný objekt. Pro lepší přehlednost by bylo lepší dát texty do pole po dvojicích, jeden řádek bude "co hledat" a "čím nahradit". Seznam se rozdělí na více řádků uvedením mezery a podtržítka na konci každého řádku. Řídicí znaky se zapíší kódem s chr(). Případně by se daly použít ještě regulární výrazy.

Kód: Vybrat vše
Sub Nahrada
   Dim seznam() As String
   Dim n As Long
   Dim replace As Object
   
   seznam() = Array( _
      chr(9), "", _
      "###", chr(10), _
      "@@@", chr(9), _
      "o1000", "1000 - architekti", _
      "o1020", "1020 - armovací a železářské práce", _
      )
   replace = ThisComponent.createReplaceDescriptor
   For n = lbound(seznam()) To ubound(seznam())/2
      replace.SearchString = seznam(n*2)
      replace.ReplaceString = seznam(n*2+1)
      ThisComponent.replaceAll(replace)
   Next n
End Sub
Hodnocení: 0
Uživatelský avatar
PandaWild
 
Příspěvky: 6599
Registrován: 22. listopad 2013 12:03

Reputace: +1596

Re: Kecy v kleci

Příspěvekod vlastas » 15. leden 2020 13:48

Teď to nemá chybu, teď to dělá přesně to co potřebuji a je to snadno editovatelný i takovou lamou jako jsem já, takže si to doplním a upravím jak potřebuji.

Regulérní výrazy používám ještě na další postup v Publisheru kterýma měním tagy na styly. To naštěstí Publisher umí. InDesign toto uměl přes XML.

Díky moc Pando.
Hodnocení: 0
vlastas
 
IP: 178.255.168.xx

Reputace: 0

Re: Kecy v kleci

Příspěvekod shalom3 » 15. leden 2020 14:06

PandaWild píše:
Tedy rozhodně teď nepřevádět výplaty z PayPal na Kč účet, jestli nechceme přijít na mizinu?

Nevím, při mých výplatách mě pohyby kurzu +- 1 Kč moc nevzrušují. V nejhorším případě na špatném kurzu ztratím tak 1-2 obědy v běžné restauraci. Jo, to až budu fasovat nějaké ty tisícovky, to už na to budu koukat jinak :lol: .
Hodnocení: 0
Uživatelský avatar
shalom3
 
Příspěvky: 3495
Registrován: 1. březen 2014 22:50

Reputace: +708

PředchozíDalší

Zpět na Všeobecná fotobanková diskuse

Kdo je online

Uživatelé procházející toto fórum: Google [Bot]