December 2022 - Wu_bp_2022w

G04 T09
by Jana Korunovska 22 Dec '22

22 Dec '22

Liebe Leute, unten unsere Hausaufgabe aber zuerst eine Frage: Wir konnten die Programme 1-140 bis 1-150 direkt von den Beispielen aus starten (und konnten die Pop-up-Bilder sehen), aber als wir versuchten, sie in BSF4ooRexx GUI zu starten, gab es eine Fehlermeldung. Dies machte es uns unmöglich, die Programme anzupassen, da wir die rxj-Datei nicht überschreiben können, da wir keine Administratorrechte im WM haben. Die Frage ist, warum der Fehler? HÜ .bsf.dialog~messageBox("Hallo du!", "Pass auf!", "info") res=.bsf.dialog~dialogBox("Ups, ein Fehler", "So sieht 'ne Fehlermeldung aus" , "error", "EchtNeinUps" ) say "dialogBox: Du hast dich für" res "entschieden" txtButtons=.list~of("Echt?", "Nein!", "Und jetzt?") defButton ="Und jetzt?" res = .bsf.dialog~dialogBox("Ups, ein Fehler! Du solltest nicht auf OK klicken","Und so eine bessere Fehlermeldung", "error", , , txtButtons, defButton) say "dialogBox: Du hast dich für" res "entschieden" txtButtons=.list~of("OK", "Egal") defButton ="Egal" res=.bsf.dialog~dialogBox( "Sorry, kann dir jetzt mit dem Fehler nicht helfen. Das ist nur eine Demo der verschiedenen Buttons","Und so eine Infornachricht", "info", , , txtButtons, defButton) say "dialogBox: Du hast dich für" res "entschieden" txtButtons=.list~of("Ja!", "Sicher", "Und wie!") defButton ="Und wie!" res=.bsf.dialog~dialogBox( "Ist das cool oder was?","Und so sieht ein Fragefeld aus", "question", , , txtButtons, defButton) say "Du hast dich für" res "entschieden" /* arguments: message, title, messageType, icon, textOfOptions, defaultValue */ res=.bsf.dialog~inputBox( "Wie findest du diesen Plautsch?", "Und so ein Eingabefeld" , "question") say "inputBox: Du hast" pp(res) "eingetragen" txtOptions=.list~of("Genug", "Erledigt", "Das war ein bisschen zu viel!") defaultTxtOption="Genug" res=.bsf.dialog~inputBox("Wähle etwas aus!", "Auswahldialog", "plain", , txtOptions, defaultTxtOption) say "inputBox: Du hast dich für" pp(res) "entschieden" ::requires BSF.CLS output REXXout>dialogBox: Du hast dich für 0 entschieden REXXout>dialogBox: Du hast dich für 2 entschieden REXXout>dialogBox: Du hast dich für -1 entschieden REXXout>Du hast dich für 1 entschieden REXXout>inputBox: Du hast [sehr gut] eingetragen REXXout>inputBox: Du hast dich für [Genug] entschieden Lg; Jana und Birgit

2 4

Fwd: Ein Problem mit der Firewall oder mit dem COM/OLE-Zugang zum InternetExplorer ?
by Rony G. Flatscher 15 Dec '22

15 Dec '22

Liebe KursteilnehmerInnen (auch vom SS 2022), hier eine wichtige Information wie Sie von dem Horizon Client aus auf jeden Ordner Ihres physischen PCs zugreifen können! Damit sollten Sie dann einerseits Ihre Programme auf Ihrem eigenen Rechner direkt speichern können und auch Dateien von Ihrem eigenen Rechner in Rexxprogrammen verarbeiten können! 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 __________________________________________________________________________________ -------- Forwarded Message -------- Subject: RE: Ein Problem mit der Firewall oder mit dem COM/OLE-Zugang zum InternetExplorer ? Date: Thu, 15 Dec 2022 14:51:06 +0000 From: Walter, Norbert <Norbert.Walter(a)wu.ac.at> To: Flatscher, Rony G. <Rony.Flatscher(a)wu.ac.at> Lieber Rony, bzgl. Dateiablage: Über den Horizon Client kann jeder Ordner auf der physischen Maschine im virtuellen PC als Netzlaufwerk verbunden werden. Standardmäßig fragt der Client (zumindest beim ersten Mal) nach, ob lokale Dateien in der VM verfügbar sein sollen. Beim Verbinden mit der VM erscheint dann dieses Dialog-Fenster, wo standardmäßig das lokale User-Profil verbunden wird: Alternativ kann über die Einstellungen auch genau festgelegt werden, welche Ordner in der virtuellen Maschine eingebunden werden sollen. In folgendem Fall z.B. “C:\Temp”: In der virtuellen Maschine scheint der Ordner dann einfach als Netzlaufwerk auf (hier Laufwerk Z:): Das ist vermutlich der einfachste Weg, um Dateien zwischen Host-System und VM zu teilen bzw. zu speichern. LG, Norbert ... cut ...

1 0

G03 T08
by Hietel, Birgit 14 Dec '22

14 Dec '22

Liebe Alle, im Anhang findet ihr unsere HÜs. Eine generelle Frage hat sich uns beim Üben gestellt: Gibt es andere Befehle außer Temp, Home, Current Directory? Eine andere Frage haben wir uns selbst beantworten können: Wie können wir in einen beliebigen Folder speichern und nicht nur in Temp oder Home? Problem: Haben keine Adminrechte. Wie können wir mit den Paths spielen? Antwort: Können mit Path auf Desktop wechseln und somit speichern. Schönen Abend! Liebe Grüße, Jana und 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/>

1 0

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

2025

2024

2023

2022

Wu_bp_2022w December 2022