- Wu_bp_2022w - WU Wien Alice

HÜ 8 Gruppe 1
by Müller-Weismann, Katharina 13 Dec '22

13 Dec '22

Beispiel 1: trace r a=70-20+5*4 b=1+random(1,6) say "a/b:" a/ REXXout>a/b: 10 Code Is Executing REXXerr>REXXerr> 2 *-* a=70-20+5*4 REXXerr>REXXerr> >>> "70" REXXerr>REXXerr> 3 *-* b=1+random(1,6) REXXerr>REXXerr> >>> "7" REXXerr>REXXerr> 4 *-* say "a/b:" a/b REXXerr>REXXerr> >>> "a/b: 10" Code Execution Complete trace i a=70-20+5*4 b=1+random(1,6) say "a/b:" a/b REXXout>a/b: 17.5 Code Is Executing REXXerr>REXXerr> 2 *-* a=70-20+5*4 REXXerr>REXXerr> >L> "70" REXXerr>REXXerr> >L> "20" REXXerr>REXXerr> >O> "-" => "50" REXXerr>REXXerr> >L> "5" REXXerr>REXXerr> >L> "4" REXXerr>REXXerr> >O> "*" => "20" REXXerr>REXXerr> >O> "+" => "70" REXXerr>REXXerr> >>> "70" REXXerr>REXXerr> >=> A <= "70" REXXerr>REXXerr> 3 *-* b=1+random(1,6) REXXerr>REXXerr> >L> "1" REXXerr>REXXerr> >L> "1" REXXerr>REXXerr> >A> "1" REXXerr>REXXerr> >L> "6" REXXerr>REXXerr> >A> "6" REXXerr>REXXerr> >F> RANDOM => "3" REXXerr>REXXerr> >O> "+" => "4" REXXerr>REXXerr> >>> "4" REXXerr>REXXerr> >=> B <= "4" REXXerr>REXXerr> 4 *-* say "a/b:" a/b REXXerr>REXXerr> >L> "a/b:" REXXerr>REXXerr> >V> A => "70" REXXerr>REXXerr> >V> B => "4" REXXerr>REXXerr> >O> "/" => "17.5" REXXerr>REXXerr> >O> " " => "a/b: 17.5" REXXerr>REXXerr> >>> "a/b: 17.5" Code Execution Complete Beispiel 2 say "User name :" .java.lang.System~getProperty("user.name") say "User's home directory:" .java.lang.System~getProperty("user.home") say "Current directory :" .java.lang.System~getProperty("user.dir") say "Temp directory :" .java.lang.System~getProperty("java.io.tmpdir") ::requires BSF.CLS -- get ooRexx-Java brid REXXout>User name : kamuelle REXXout>User's home directory: C:\Users\kamuelle REXXout>Current directory : C:\Program Files\BSF4ooRexx850\utilities REXXout>Temp directory : C:\Users\kamuelle\AppData\Local\Temp\ Mag.a Katharina Müller-Weismann Rechtsabteilung Legal Affairs Office WU Wirtschaftsuniversität Wien Vienna University of Economics and Business Welthandelsplatz 1, 1020 Vienna, Austria Building AR (Perspektivstraße 4) Tel: +43-1-313 36-5265 Fax: +43-1-313 36-90 9208 E-Mail: katharina.mueller(a)wu.ac.at<mailto:katharina.mueller@wu.ac.at> www.wu.ac.at<http://www.wu.ac.at/>

1 0

Projekt GR1:
by Selak, Kenan 12 Dec '22

12 Dec '22

Liebe alle, nachstehend unser Projekt. Projekt GR1: command='curl "https://research.wu.ac.at/ws/oai?verb=ListRecords&set=publications:year2022…"' outArr=.array~new ADDRESS SYSTEM command WITH OUTPUT USING (outArr) source=outArr~makeString DO i = 1 TO 5 parse var source '<creator>' name '</creator>' parse var source '<title xml:lang="eng">' titel '</title>' Say name Say titel parse var source '</title>' source END OUTPUT: REXXout>Komori-Glatz, Miya REXXout>Exploratory Interactive Explaining (EXINTEX): Constructing Disciplinary Knowledge in Two Multilingual University Settings REXXout>Komori-Glatz, Miya REXXout>Fiscal Multipliers in a Small Open Economy: The Case of Austria REXXout>ÄŒapek, Jan REXXout>Multi-mode standardization under extreme time-pressure â€“ the case of COVID-19 contact-tracing apps REXXout>Marhold, Klaus REXXout>A study into the contingencies of process improvement methods REXXout>Malinova Mandelburger, Monika REXXout>A hybrid multi-regional input-output model of China: Integrating the physical agricultural biomass and food system into the monetary supply chain

2 1

Links zu ooRexx 5, Java mit JavaFX, BSF4ooRexx, IntelliJ und ooRexxPlugin ...
by Rony G. Flatscher 12 Dec '22

12 Dec '22

Liebe KursteilnehmerInnen, wie heute im Kurs angekündigt, hier der URL zur LV-Übersicht von "Business Programming 2 (BP2)": <https://wi.wu.ac.at/rgf/wu/lehre/autojava/2022wBP2/BP2-autojava-2022w-ueber…>. Auf der letzten Seite finden sich die URLs für die Installation der Software auf eigenen Geräten: * ooRexx 5.0 * Java mit JavaFX * BSF4ooRexx850 * IntelliJ (Entwicklungsumgebung) und ooRexxPlugin dafür (eine neue Version wurde gestern Abend vom Autor, Alexander Seik, veröffentlicht) Mit freundlichem Gruß Rony G. Flatscher -- -- __________________________________________________________________________________ Prof. Dr. Rony G. Flatscher Department Wirtschaftsinformatik und Operations Management Institut für Wirtschaftsinformatik und Gesellschaft D2c 2.086 WU Wien Welthandelsplatz 1 A-1020 Wien/Vienna, Austria/Europe http://www.wu.ac.at __________________________________________________________________________________

1 0

sorry ich habe die Dateien und die Output vergessen
by Jana Korunovska 12 Dec '22

12 Dec '22

Die Excell-Datei project.xlsx muss sich auch im Temp-Ordner befinden Output: C:\Users\ADMINI~1\AppData\Local\Temp C:\Users\ADMINI~1\AppData\Local\Temp\project.xlsx

1 0

G03 Project1 Teil 1
by Jana Korunovska 12 Dec '22

12 Dec '22

Liebe Leute, im Folgenden ein Teil unseres Projekts 1 (aus Excell einlesen und ein Word-Dokument erstellen). Es ist ein bisschen schlampig, aber es funktioniert. lg, Birgit und Jana TempDir = VALUE( "temp",,ENVIRONMENT) say TempDir FileName = TempDir || "\" || "project.xlsx" say filename excelObject = .OLEObject~new("Excel.Application") excelObject~visible = .true book = excelobject~workbooks book~open(FileName) Sheet1 = excelObject~Worksheets[1] myTitles="ABCDE" lastLine = 6 do i = 2 to myTitles~length cell.id = Sheet1~Range(A||i) cell.frageA = Sheet1~Range(B||i) cell.frageB = Sheet1~Range(C||i) cell.email = Sheet1~Range(E||i) Word = .OLEObject~New("Word.Application") Word~Visible = .TRUE Doc = Word~Documents~Add Selection = Word~Selection Selection~Style = "Title" Font = Selection~Font Font~Name="Verdana" Font~Size="14" Font~Bold = .TRUE Selection~TypeText("This is the title for ID number "cell.id~value) Selection~TypeParagraph Selection~Style = "Normal" Font~Name="Verdana" Font~Size="12" Selection~TypeText("Your answer on Question A was" cell.frageA~value "points") FileNameWord = TempDir || "\" || "Report for ID"|| (cell.id~value)||".docx" Doc~SaveAs(FileNameWord) Word~Quit end

1 0

Frage zur HÜ
by Wolfschwenger, Johann 05 Dec '22

05 Dec '22

Liebe alle, Was ich mit meiner Frage im Kurs meinte und was uns bei der letzten HÜ gepuzzelt hat war folgendes: Folgendes Programm funktioniert bzw. gibt mit "say source" die IBM Seite zurück. "myIE = .OLEObject~New("InternetExplorer.Application") myIE~Navigate("https://www.ibm.com") /* wait for 2 seconds */ Call SysSleep 2 doc=myIE~document -- get loaded document source=doc~body~outerhtml myIE~quit say source" Anschließend tauschen wir nur die URL aus (https://bach.wu.ac.at/z/start), wobei folgender Teil "doc=myIE~document -- get loaded document source=doc~body~outerhtml" ja schon in einem Übungsbeispiel mit dieser URL funktioniert hat, bzw. haben wir nur 2 Programme vom Skript zusammenkopiert: myIE = .OLEObject~New("InternetExplorer.Application") myIE~Navigate("https://bach.wu.ac.at/z/start") /* wait for 2 seconds */ Call SysSleep 2 doc=myIE~document -- get loaded document source=doc~body~outerhtml myIE~quit say source Hier bekommen wir einen Error und wir verstehen nicht warum. Viele Grüße Hans _________________________________ Johann Wolfschwenger (er/ihn, he/him) Forschungsservice (Forschungsinformationssystem PURE) Research Service Center (Research Information System PURE) WU Wirtschaftsuniversität Wien Vienna University of Economics and Business Building AR, 6.10, Welthandelsplatz 1, 1020 Vienna, Austria Tel: +43-1-313 36-5107 Fax: +43-1-313 36-905107 E-Mail: johann.wolfschwenger(a)wu.ac.at<mailto:johann.wolfschwenger@wu.ac.at> www.wu.ac.at/research/service<https://www.wu.ac.at/universitaet/organisation/dienstleistungseinrichtungen…>

2 4

G03 T07
by Jana Korunovska 05 Dec '22

05 Dec '22

Liebe all, anbei HÜ Gruppe 3 lg, Birgit und Jana ## 1 ## Word = .OLEObject~New("Word.Application") Word~Visible = .TRUE Doc = Word~Documents~Add Selection = Word~Selection Selection~Style = "Title" Font = Selection~Font Font~Name="Verdana" Font~Size="14" Font~Bold = .TRUE Selection~TypeText("G03 T07") say "Dies ist Ihr Titel.Druecken Sie die Eingabetaste, um fortzufahren" parse pull Selection~TypeParagraph Selection~Style = "Heading 1" Font~Name="Verdana" Font~Size="12" Font~Bold = .TRUE Selection~TypeText("Programm 1") say "Dies ist Ihr Untertitel.Druecken Sie die Eingabetaste, um fortzufahren" parse pull Selection~TypeParagraph Selection~Style = "Normal" Font~Name="Verdana" Font~Size="12" Selection~TypeText("Dies ist das erste Programm") /* get the environment variable TEMP and create filename to save */ TempDir = VALUE( "TEMP",,ENVIRONMENT) FileName = TempDir || "\" || "G03 T01" Doc~SaveAs(FileName) Word~Quit say "Erstellt" FileName". Druecken Sie zum Beenden die Eingabetaste" pull output Dies ist Ihr Titel.Druecken Sie die Eingabetaste, um fortzufahren Dies ist Ihr Untertitel.Druecken Sie die Eingabetaste, um fortzufahren Erstellt C:\Users\ADMINI~1\AppData\Local\Temp\G03 T01. Druecken Sie zum Beenden die Eingabetaste ## 2 ## ieWU=.OLEObject~New("InternetExplorer.Application") ieWU~visible=.true Say "Der Internet Explorer ist geoeffnet. Druecken Sie die Eingabetaste, um zur Webseite des des Teams des Instituts fur Wirtschaftsinformatik und Gesellschaft zu gelangen" parse pull ieWU~navigate("https://www.wu.ac.at/ec/team-vo") Say "Der Webseite des des Teams des Instituts fur Wirtschaftsinformatik und Gesellschaft ist geoefnet. Druecken Sie die Eingabetaste, um zur Seite von Rony Flatsche zu navigieren" parse pull ieWU~navigate("https://www.wu.ac.at/ec/team-vo/rony-g-flatscher-1/") say "Bitte druecken Sie die Eingabetaste, um die Telefonnummer von Rony Flatscher zu erhalten." parse pull do counter i until ieWU~busy=.false | i>1000 call sysSleep 0.001 -- sleep 1/1000 second end doc=ieWU~document -- get loaded document source=doc~body~outerhtml ieWU~quit parse var source '<li><p class="hyphenate">Tel.: ' tel '</p></li>' say "Die Telephonnummer von Rony Flatscher ist:" tel say "Sorry, ich konnte die Telefonnummer nicht bekommen, mein Code hat Fehler" say "Druecken Sie eine beliebige Taste, um den Versuch abzubrechen" output Der Internet Explorer ist geoeffnet. Druecken Sie die Eingabetaste, um zur Webseite des des Teams des Instituts fur Wirtschaftsinformatik und Gesellschaft zu gelangen Der Webseite des des Teams des Instituts fur Wirtschaftsinformatik und Gesellschaft ist geoefnet. Druecken Sie die Eingabetaste, um zur Seite von Rony Flatsche zu navigieren Bitte druecken Sie die Eingabetaste, um die Telefonnummer von Rony Flatscher zu erhalten. Dann verschwindet alles :)

1 0

HÜ Programmieren
by Wolfschwenger, Johann 29 Nov '22

29 Nov '22

Liebe alle, anbei HÜ Gruppe 1! Viele Grüße Katharina, Kenan, Hans Code: /* create an object for IE */ myIE = .OLEObject~New("InternetExplorer.Application") myIE~Width = 1000 myIE~Height = 800 Say "current dimensions of IE are:" myIE~Width "by" myIE~Height /* set new dimensions and browse IBM homepage */ myIE~Width = 1280 myIE~Height = 1024 myIE~Visible = .True -- now show the window myIE~Navigate("https://www.ibm.com") /* wait for 5 seconds */ Call SysSleep 5 doc=myIE~document -- get loaded document source=doc~body~outerhtml /* wait for 10 seconds */ Call SysSleep 5 myIE~quit say source Output: In source ist die IBM-Seite als HTML Code2: ComputerName = value("COMPUTERNAME",,"ENVIRONMENT") myComputer = .OLEObject~GetObject("WinNT://"||ComputerName||",computer") say "Standard properties of this VM:" say "Name:" myComputer~name say "Class:" myComputer~class say "GUID:" myComputer~guid say "Parent:" myComputer~parent say "Schema:" myComputer~schema Output: REXXout>Standard properties of this VM: REXXout>Name: VPCLAB-T-009 REXXout>Class: Computer REXXout>GUID: {DA438DC0-1E71-11CF-B1F3-02608C9E7553} REXXout>Parent: WinNT://LAB REXXout>Schema: WinNT://LAB/Schema/Computer _________________________________ Johann Wolfschwenger (er/ihn, he/him) Forschungsservice (Forschungsinformationssystem PURE) Research Service Center (Research Information System PURE) WU Wirtschaftsuniversität Wien Vienna University of Economics and Business Building AR, 6.10, Welthandelsplatz 1, 1020 Vienna, Austria Tel: +43-1-313 36-5107 Fax: +43-1-313 36-905107 E-Mail: johann.wolfschwenger(a)wu.ac.at<mailto:johann.wolfschwenger@wu.ac.at> www.wu.ac.at/research/service<https://www.wu.ac.at/universitaet/organisation/dienstleistungseinrichtungen…>

1 0

G02 T06
by Kattavenos-Lukan, Maria 27 Nov '22

27 Nov '22

Liebe Alle, folgend unsere Programme: Programm 1 Say "Palatschinkenrezept" Palatschinke = .array ~of("Mehl", "Milch", "1Ei") Palatschinke[4] = "Marillenmarmelade" SAY Palatschinke~string"->" Do a OVER Palatschinke SAY "["a"]" END REXXout>Palatschinkenrezept REXXout>an Array-> REXXout>[Mehl] REXXout>[Milch] REXXout>[1Ei] REXXout>[Marillenmarmelade] Programm 2 Say "Rezept für Magdas Kakao" MagdasKakao= .list ~of("Rohkakaopulver", "Milch", "Kardamom", "Honig") SAY MagdasKakao~string"->" DO a OVER MagdasKakao SAY "["a"]" END REXXout>Rezept für Magdas Kakao REXXout>a List-> REXXout>[Kakaopulver] REXXout>[Milch] REXXout>[Kardamom] REXXout>[Honig] Liebe Grüße Maria und Magda

1 0

G03 T06
by Hietel, Birgit 24 Nov '22

24 Nov '22

Liebe Alle, hier unsere HÜ. Uns ist in der letzten Einheit wohl nicht alles ganz klar gewesen, daher gibt es einige Fragen. *** Aufgabe 1a: *** /**/ p1 = .Person~New("Kurt","Ostbahn","45000") p2 = .Person~New("Jazz","Gitti",55000) SAY p1~firstName p1~familyName p1~salary SAY p1~firstName p1~salary p1~~increaseSalary(10000)~salary ::CLASS Person ::METHOD INIT EXPOSE firstName familyName salary USE ARG firstName, familyName, salary ::ATTRIBUTE firstName ::ATTRIBUTE familyName ::ATTRIBUTE salary ::METHOD increaseSalary EXPOSE salary USE ARG increase salary = salary + increase SAY p1~salary Output: Kurt Ostbahn 45000 18 *-* SAY p1~salary 5 *-* SAY p1~firstName p1~salary p1~~increaseSalary(10000)~salary Error 97 running C:\U line 18: Object method not found. Error 97.1: Object "P1" does not understand message "SALARY". Process finished with exit code -97 Frage: Warum bekommen wir diese Fehlermeldung? *** Aufgabe 1b: *** /**/ p1 = .Person~New("Kurt","Ostbahn","45000") p2 = .Person~New("Jazz","Gitti",55000) SAY p1~firstName p1~familyName p1~salary SAY p1~firstName p1~salary p1~~increaseSalary(10000)~salary ::CLASS Person ::METHOD INIT EXPOSE firstName familyName salary USE ARG firstName, familyName, salary ::ATTRIBUTE firstName ::ATTRIBUTE familyName ::ATTRIBUTE salary ::METHOD increaseSalary EXPOSE salary USE ARG increase salary = salary + increase SAY "Hallihallo" Output: Kurt Ostbahn 45000 Hallihallo Kurt 45000 55000 Frage: Warum ist es mit „Hallihallo“ möglich (vgl. zu Aufgabe 1a) ? Wieso ist „Hallihallo“ in der zweiten Ausgabezeile? *** Aufgabe 2: *** tmpColl = .stream ~new("meininput.txt")~~open SAY "a" tmpColl~class~id":" DO i OVER tmpColl SAY "["i"]" END tmpColl~close Output: a Stream: Process finished with exit code 0 Frage: Wo soll mein input.txt gespeichert sein (Pfad), damit es im Output wiedergegeben wird? *** Aufgabe 3: *** shoppinglist = .list~of("orange", "banana", "apple", "almonds", "kiwi") shoppinglistArray = shoppinglist~makeArray-- make array say "This is my shopping list:" say shoppinglistArray shoppinglistArray = shoppinglist~makeArray~sort-- make & sort array say "This is my shopping list nicely ordered:" shoppinglistArray shoppinglistStream = .Stream~new("myoutput.txt")~~open("replace") shoppinglistStream~ArrayOut(shoppinglistArray) shoppinglistStream~close Output: This is my shopping list: orange banana apple almonds kiwi This is my shopping list nicely ordered: almonds apple banana kiwi orange Process finished with exit code 0 Frage: wo soll das myoutput.txt dann zu finden sein (Pfad)? Danke schon mal für eure Ideen und Lösungen 😊 Liebe Grüße und ein schönes Wochenende wünschen Jana & Birgit Birgit Hietel Studienrecht study regulations WU Wirtschaftsuniversität Wien Vienna University of Economics and Business Gebäude LC, Ebene +2 Welthandelsplatz 1, 1020 Wien, Austria Tel: +43-1-313 36-5836 E-Mail: birgit.hietel(a)wu.ac.at<mailto:birgit.hietel@wu.ac.at> www.wu.ac.at<http://www.wu.ac.at/>

3 2

2025

2024

2023

2022

Wu_bp_2022w