[Megoldva]txt read rögzítés, ill. biztonság felvett makróban

[Aimre]

Sziasztok,

Engedélyezve van az auto rögzítés, a Libreoff.Calcban.
Van egy egyszerű txt-t. Két szöv.mező vesszővel választva.
Elindítom az auto rögzítést. Beolvasom, kivágom visszamegyek a munka sheetbe, beszúrom,
majd bezárom a txt sheetjét. Kapom a köv.kódot:

Kód: Egész kijelölése

sub txt_beolvas
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:OpenFromCalc", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "By"
args3(0).Value = 1
args3(1).Name = "Sel"
args3(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args3())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args5(1) as new com.sun.star.beans.PropertyValue
args5(0).Name = "By"
args5(0).Value = 1
args5(1).Name = "Sel"
args5(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args5())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "ToPoint"
args7(0).Value = "$D$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args7())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:TerminateInplaceActivation", "", 0, Array())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Cancel", "", 0, Array())

rem ----------------------------------------------------------------------
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "ToPoint"
args11(0).Value = "$E$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args11())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

rem ----------------------------------------------------------------------
dim args13(0) as new com.sun.star.beans.PropertyValue
args13(0).Name = "ToPoint"
args13(0).Value = "$E$10"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args13())

rem ----------------------------------------------------------------------
dim args14(0) as new com.sun.star.beans.PropertyValue
args14(0).Name = "ToPoint"
args14(0).Value = "$C$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args14())


end sub

Amikor újra futtatom a makrót, beszúrja amit talál a vágólapon(nem a txt-t!).
Sajnos nincs elég tudásom ahhoz, hogy átírjam a kódot.
Ráadásul, ha két txt-t olvasok be, és még valamit csinálok(pl.: rendezem), akkor
Nem tudom újra futatni, mert biztonsági gondra hivatkozik. Alacsony biztonságra van állítva,
És a dir is meg van adva biztonságosan, ahonnan dolgozom?

Előre is köszönök mindent, még az ejnye-bejnyét is.

[Zizi64]

(Több részletben szerkesztem ezt a választ, mert az előbb elszállt a Firefoxom, egy fél A/4-es oldal begépelése közben. Így ha közben olvasnád, akkor ne csodálkozz, ha "szaporodik".)

Az "ejnye-bejnye" jelen esetben annyiban merül ki, hogy aki valóban hatékonyan szeretné vezérelni, programozni a Calc-ot az ne a Makrórögzítőt használja. A Makrórögzítő sajnos (vagy "szerencsére" nem képes minden aktivitást rögzíteni, amit végrehajtasz a programban. Nem is működik minden applikációjában a Libre/OpenOffice-nak, csak a Calcban és a Writerben, pedig minden applikációt lehet vezérelni, programozni.

Az API függvényeit kell megismerned, megtanulnod és alkalmaznod, ha hatékonyan szeretnél dolgozni a programcsomaggal. Hogy ezt melyik programnyelv keretein belül teszed, az majdnem mindegy, de célszerű a már elavultnak mondott Basic-et használni erre a célra, hiszen annak teljes szerkesztő és futtató rendszere (IDE) van a programcsomagon belül. A makrórögzítő is "Bézikül" veszi fel a tevékenységeid kódsorát, egy további funkciót, a Dispatcher-t segítségül hívva.

API : Application programming Interface = Alkalmazásfejlesztési felület
IDE : Integrated Development Environment = Beépített fejlesztői környezet
Dispatcher = Diszpécser (nem szabatos megfogalmazásban: ez egy olyan funkció, ami lehetővé teszi, hogy a Calc celláiban, vagy azoknak a szerkesztésére használt függvényeket kvázi-azonos formában használhasd a programozási felületen keresztül, mint ahogy azt a munkalapon teszed. Mert egyébként az API függvényei sokkal elemibbek, és azokból neked kell összerakni egy-egy viszonylag bonyolultabb függvényt és eljárást.)


A konkrét problémádra visszatérve:

Ismerni kellene részleteiben is a feladatot, ahhoz, hogy konkrétan segíteni lehessen.

Van egy egyszerű txt-t. Két szöv.mező vesszővel választva.
Elindítom az auto rögzítést. Beolvasom, kivágom visszamegyek a munka sheetbe, beszúrom,
majd bezárom a txt sheetjét.

A "sheet" az egy fájlon belüli munkalapok egyikét jelenti. Az átemelendő dolgot végül is azonos fájlban, másik munkalapon, vagy másik Spreadsheet-ben (táblázatkazelő-fájlban) tárolod?

Nem látok a kódban annak a megnyitására vonatkozó részt. Ha bezárod a végén, hogyan nyílik meg újra?
A "txt_beolvas" rutin Diszpécser-hívása tartalmaz egy átadandó paramétertömböt: Array() néven. De ez nem tartalmaz semmi adatot, mert a kód során nincs semmiféle értékmegadási utasítás. (Ahogy azt később az "args2() esetében is láthatod - ott egy egyszerű jobbra mozgásról van szó, de meg kell adni annak is a paramétereit.)

Nem tudom újra futatni, mert biztonsági gondra hivatkozik. Alacsony biztonságra van állítva,

A Makróbiztonság csak a Calc dokumentumokban tárolt makrókra vonatkozik. Egy makrót tartalmazó fájl megnyitásakor a biztonsági szintnek megfelelő módon kezeli (futtatja, felhatalmazás után futtatja, vagy letiltja a makrókat). A felhasználói profilba (a program "alá" elmentett makrókat mindig hajlandó futtatni).

És a dir is meg van adva biztonságosan, ahonnan dolgozom?

Milyen könyvtárra gondolsz? ...Mert a kódban nem látom ilyennek a megadását.


(No ezt a Post-ot befejeztem, a továbbiakat majd egy külön hozzászólásban)

[Aimre]

Szia,

1. Megnyitok egy Munkafüzetet legyen(X).
2. Elindítom a makró Makrórögzítő.
3. A Fájl menü, Megnyitás almenüjével beolvasom a txt-t egy helyről
4. A Calc a txt-t egy Munkafüzetben nyítja meg. A Munkafüzet neve a txt neve.
5. Ebben a Munkafüzetben jelölöm ki és teszem a vágólapra az adatokat.
6. Majd az Ablak menüben, visszaváltok X re és beszúrom az adatokat.
7. Most Ablak menüben visszaváltok a txt munkafüzetére és a Fájl menü Bezárás parancsával bezárom.
8. Most egy nyitott munkafüzetem van X.
9. Bezárom a Makrórögzítőt.
10. Ami a biztonságot illeti.
Az Eszközök menü, Beállítások, LibreOffice-Biztonság-Makróbiztonság (szint:Alacsony)-Megbízható-források fülén: A megbízható fájlelérési útvonalak ablakban a Hozzáadás gombbal beillesztem a beolvasott Munkafüzet és a txt elérési útját.

Remélem sikerült érthetően leírnom.

[Aimre]

Szia,

Kihagytam, hogy mindkét munkafüzetben egy Munkalap van és azon történik minden.

[Aimre]

Szia,

MS Excelben a rögzítő betenné a kódba, a txt megnyitását, lezárását és ezért Újra lehetne 100 szor is futtatni, megnyitná, lezárná minden futtatásra.

[Zizi64]

MS Excelben a rögzítő betenné a kódba, a txt megnyitását, lezárását és ezért Újra lehetne 100 szor is futtatni, megnyitná, lezárná minden futtatásra.

No, ezt itt nem biztosan nem teszi meg, ezt neked kell megírni. De ha ráadásul .txt fájlt akarsz megnyitni, akkor - valószínűleg az Import szűrő vezérléséről is neked kell gondoskodnod, vagy minden megnyitási alkalommal manuálisan beállítani azt. (Hiszen valahogy biztosítani kell azt, hogy a strukturált, vagy éppen strukturálatlan .txt fájlból a megnyíló táblázat megfelelő celláiba, megfelelő formátumban kerüljenek a kívánt adatok, hogy aztán a makró mg is találja azokat az adott helyen. A .txt fájlt alapértelmezettként a Writer próbálja megnyitni!!)

Tudsz feltölteni egy forrás és egy célfájlt ide az átemelendő adattal (annak formájával és pontos helyével a fájlokban)?

[Aimre]

Szia,

Az ods üres, a txt file méretet és file neveket tartalmaz.
Nem az eredetit küldöm, mert azok az adatok titkosak.
Lényegében az eredeti feladat: van két txt az egyikben file nevek, a másikban file nevek és file méret van.
A másikat sorba kell rendezni méret szerint és venni a két file unióját file név szerint.
Erre találtam ki, hogy Excelben gazdaságosabb lenne mint soros állományokat ciklusban olvasni és hasonlitgatni.

[Zizi64]

Az alábbi példa a TXT fájl megnyitását és az arra történő hivatkozást mutatja be.
Használat:

A célfájl tartalmazza a makrót, amely fájl A1 cellájában helyezkedik el a TXT fájl elérési útvonala.

Kód: Egész kijelölése

REM  *****  BASIC  *****

Sub txt_beolvas_Zizi

dim oDoc_A as object 'a célfájl (jelen esetben a program indításának helye) hivatkozási neve lesz
dim oSheet_A as object 'a célfájl 0. azaz első munkalapjának hivatkozási  neve lesz

dim oDoc_B as object 'a megnyitott .txt fájl hivatkozási neve lesz
dim oSheet_B as object 'a megnyitott .txt fájl 0. azaz első munkalapjának hivatkozási  neve lesz

dim Dummy() as object 'egy üres paramétertömb, amire azonban névleg szükség van.
dim URL_String, B_URL ' String változók


' pont ez a fájl, amiből elindítod a makrót ( de a lehetne létrehozni egy új, üreset is, amit célfájlnak használsz):
oDoc_A = Thiscomponent 
oSheet_A = oDoc_A.sheets(0) '(Az .ods dokumentum első munkalapja)
URL_Cell = oSheet_A.getCellByPosition(0,0) '= A1; ebben a cellában tárolom a TXT fájl teljes elérési útvonalát

URL_string = URL_Cell.string

 
 	If (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) Then
        GlobalScope.BasicLibraries.LoadLibrary("Tools")
    End If

'Az esetlegesen nem "URL-kompatibilis" karaktereket cseréli le a stringben:
	B_URL=ConvertToURL(URL_String)
'Nézzük, mi az eredmény:	 
	Print B_URL

' Az import szűrő beállítása
Dim FileProperties(1) As New com.sun.star.beans.PropertyValue

    FileProperties(0).Name = "FilterName"
    FileProperties(0).Value ="Text - txt - csv (StarCalc)"
    FileProperties(1).Name = "FilterOptions"
' Ide kell írnod a te TXT fájlod tulajdonságait:
' a "9" ASCII kódú TAB karakter az adat (oszlop-) elválasztó a TXT fájlban
' a "44" ASCII kódú "," karakter az adat (oszlop-) elválasztó a TXT fájlban  
	FileProperties(1).Value ="44," 
	
' A fájl megnyitása:
    oDoc_B = StarDesktop.loadComponentFromURL(B_Url, "_blank", 0, FileProperties())
	
	
' A cellák átmásolását oDoc_B -ből oDoc_A -ba már tudod 
	

End Sub

Persze, ha azt is detektálni kell, hogy mennyi adat (hány sor és hány oszlop) van egy adott TXT fájlban, akkor van még némi tennivalód a másolás előtt.

[Aimre]

Szia,

Nagyon szépen köszönöm, működik.
Már nem vagyok mai gyerek és beteg is vagyok (embertől nem gyógyíthatóan).
Azért tanulom az angolt, de odébb lesz (ha lesz) mire programozást angolul tanulok majd.
Sajnos kódot, API, IDE, Dispatcher magyarázatokat nemigen találtam a Neten.
Még a HTA gondnál küldtél címeket és azokból a kódokból tanultam sokat. De
Azt pl.: nem tették bele, hogy lehet lezárni VBS-ből egy VBS-ből nyított Calcot.
Szívok is vele rendesen.

[Aimre]

Szia,

Rájöttem, hogy a biztonság miatt akkor nem enged makrót futtatni, ha kívülről van megnyitva a Munkafüzet?

[Zizi64]

Rájöttem, hogy a biztonság miatt akkor nem enged makrót futtatni, ha kívülről van megnyitva a Munkafüzet?

Ezt nem teljesen értem. Mit értesz itt konkrétan "kívülről" megnyitásnak?

HA a Munkafüzetben BENNE van tárolva a makró, akkor arra a programbeállításoknál beállított biztonsági szint (engedélyezési szint) érvényes: Én a "Közepes"-t használom, és minden és Makrókódot tartalmazó fájl (kézi) megnyitásánál kézzel engedélyezem a Makrók futtathatóságát.

Ha a makrókódot a Programcsomag alatt (a Felhasználói profilban) tárolod, akkor bármilyen Makróbiztonsági szint beállítási érték mellett fut (Windows alatt).

Ha idegen programozási környezetből próbálod meg vezérelni a LibreOffice-t... Azt nem tudom, mert olyat soha nem csináltam.

Létezik még egy biztonsági beállítás, ami nálam NINCS bepipálva, az utolsó a képen a listában, de nem tudom, hogy ez okozza-e nálad a gondot:

[Zizi64]

Sajnos kódot, API, IDE, Dispatcher magyarázatokat nemigen találtam a Neten.

Az Basic IDE szolgáltatást minden alkalommal használod, amikor a LibreOffce-on belül StarBasic programot írsz, vagy Makrót rögzítesz, hiszen a kód annak a szerkesztőfelületére kerül, ott tudod módosítani, onnan és azáltal tudod futtatni (még ha a program indítását konkrétan más esemény (Kattintás egy vezérlőgombon, vagy Menüponton, stb.) is váltja ki).
https://help.libreoffice.org/Basic/Inte ... ent_IDE/hu


A Libre/OpenOffice API leírásai (a konkrét elérhető függvények és eljárások az API dokumentációban vannak felsorolva - de a használat alapjait a netszerte található programkód részletekből lehet leginkább elsajátítani.
http://api.libreoffice.org/

A Dispatcher-t leginkább a Makrórögzítő használja (láthatod a Makrórögzítővel rögzített kódban, hogy minden különálló parancs egy "dispatcher.executeDispatch..." hívással végződik.)
Nem lehetetlen persze ennek a "leutánzása" a kézzel írt makrókódban, de nem a legcélravezetőbb megoldás.

Andrew Pitonyak leírásai több helyen, több változatban és több formátumban megtalálhatók a neten (természetesen angolul)
http://www.pitonyak.org/oo.php


Én sem tanultam soha intenzíven angolul (a főiskolán - anno: igen régen; '83-'86 között - volt egy heti egy-két órás szabadon választott angol nyelv "tanfolyam", meg közvetlenül utána már itt Pesten beiratkoztam egy tanfolyamra, de két ciklus után abbahagytam - lustaság okán), de muszáj volt egy minimális olvasási szintet elérnem (önerőből), mert máshogy nem megy az ilyesmi. Sok szakmai szöveget, sőt ma már a MAGYAR(!) Szabványokat is csak angolul lehet elérni.

[Zizi64]

Azt pl.: nem tették bele, hogy lehet lezárni VBS-ből egy VBS-ből nyított Calcot.
Szívok is vele rendesen.

Hogy VBS-ből (Microsoft Visual Basic Script) hogy lehet, azt nem tudom. StarBasic-ből így lehet egy megnyitott dokumentumot bezárni:

Kód: Egész kijelölése

DisposeDocument(oDoc_A)

[Aimre]

Szia,

HTA ból végül az

Kód: Egész kijelölése

oDoc.Close (True)

zárja be a Calcot.
Makrót még nem enged, ha HTA ból hívom meg. Pedig már mindent kikapcsoltam amit lehetett. Köszönöm a címeket. Nézegetem őket, de egyszerű dolgokat sem lelek.
Például, az eszköztárak ki-be kapcsolását megtaláltam a Calc témák között, de: egy rendezést makróból elindítani? Tulajdonképpen a beépített menük szolgáltatásait, hogy lehet elérni makróból?

[Zizi64]

Tulajdonképpen a beépített menük szolgáltatásait, hogy lehet elérni makróból?

Ahogy mondtam: vagy a Diszpécser hívások "rögzítésével" és/vagy hasonlók megírásával; vagy pedig az API függvények segítségével saját magad megírsz hasonló funkciókat.

Programkódból vezérelve az alkalmazást az esetek jelentős részeben nincs szükséged a menüpontok alatt esetleg felugró kézzel kitöltendő űrlapokra. (Másként kell/akarod beolvasni/átadni a paramétereket a kódnak.

Ha egy-egy részfeladatot precízen meg tudsz fogalmazni (magyar nyelven) akkor megpróbálok neked mintakódokat írni, keresni - de ezt persze csak néhány esetre tudom megtenni, és csakis StarBasicben.

Például magukban a cellákban használható (bonyolultabb) függvények meghívása is ebbe a kategóriába tartozik, hisze a Basic csak néhány alapvető matematikai függvényt ismer, a táblázatkezelő program egyéb függvényeit is úgy tudod kódból használni, hogy ezt a meghívási procedúrát alkalmazod.
https://forum.openoffice.org/en/forum/v ... =9&t=40027
https://forum.openoffice.org/en/forum/v ... =9&t=31706
https://forum.openoffice.org/en/forum/v ... 20&t=59679

[Zizi64]

egy rendezést makróból elindítani?

https://wiki.openoffice.org/wiki/Docume ... de/Sorting
http://computing.ingreatway.com/2013/11 ... ell-range/

Andrew Pitonyak egyik Basic programozási leírása:
http://www.google.hu/url?sa=t&rct=j&q=& ... 5972,d.ZWU

[Aimre]

Szia,

Köszönöm, most már alakulok.