Liebe TeilnehmerInnen,
wie heute versprochen (auch als Attachment) ein Programm, das die Suche nach Excel-Dateien mit
SysFileTree() bzw. als "dir /b"-Kommando veranschaulicht:
-- durchzusuchendes Verzeichnis:
dir = directory() -- aktuelles Verzeichnis (kann geändert werden)
muster = "*.xlsx" -- Suchmuster für alle Excel-Dateien
-- sysFileTree(): vgl. rexxref.pdf, 8.22. SysFileTree
filespec = dir"\"muster
opts = "FO" -- nur Dateien suchen, vollqualifzierter Pfad
say "SysFileTree:"
say "filespec:" filespec
say "opts :" opts "(files only, fully qualifed)"
say
call sysFileTree filespec, "files.", opts
say "found :" files.0 "Datei(en)"
do i=1 to files.0
say "09"x "#" i":" files.i -- "09"x ist hexadezimale Zeichenkette für Tabulatorzeichen
end
say "---"
say
-- vgl. Foliensatz 060_ooRexx
command = "dir /b" quote(filespec) -- sicherheitshalber Dateinamen in doppelete Anführungszeichen!
say "command :" command
say
arrRes = .array~new
address system command with output using (arrRes)
say "found :" arrRes~items "Datei(en)"
do i=1 to arrRes~items
say "09"x "#" i":" arrRes[i] -- "09"x ist hexadezimale Zeichenkette für Tabulatorzeichen
-- alternatively, prepend each unqualified filename with directory():
-- say "09"x "#" i":" dir"\"arrRes[i] -- "09"x ist hexadezimale Zeichenkette für Tabulatorzeichen
end
::routine quote -- Zeichenkette in doppelte Anführungszeichen
return '"' || arg(1) || '"'
URL zu OLEInfo und dem zip-Archiv von Lee Peedin (u.a. mit Excelbeispielen):
<https://wi.wu.ac.at/rgf/wu/lehre/autowin/material/resources>
URL zu den Folien (Achtung Nummerierung wird sich, wie heute angekündigt, noch bei einigen auf drei
numerische Stellen am Anfang ändern):
<https://wi.wu.ac.at/rgf/wu/lehre/slides/BusinessProgramming>
Viel Erfolg beim Arbeiten am Projekt!
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
__________________________________________________________________________________
MMag. Eva Maria Schönher
Fachreferentin für Sozial- und Wirtschaftswissenschaften
Betreuung Sondersammlungen
Universitätsbibliothek Wirtschaftsuniversität Wien
Welthandelsplatz 1, 1020 Wien
+43 1 31336-4956
eva.maria.schoenher(a)wu.ac.at
Mag. Julia Jungwirth
Medienmanagement / Universitätsbibliothek
Media Management / University Library
Wirtschaftsuniversität Wien / Vienna University of Economics and Business
Gebäude LC, Welthandelsplatz 1, A-1020 Wien
Telefon: +43-1-31336-6411
E-Mail: julia.jungwirth(a)wu.ac.at<mailto:julia.jungwirth@wu.ac.at>
Internet: http://www.wu.ac.at/bibliothek