Liebes Team,

zunächst einmal: sehr schön, wie Sie das Problem gelöst haben!

Hier eine leicht überarbeitete Variante:

• UTF-8-Codepage für Windows (vgl. heutige Kurseinheit)
• ad PARSE-Schlüsselwortanweisung: kann etwas vereinfacht werden

Hier der Code:

address system "chcp 65001"   -- change Windows codepage to UTF-8

command='curl "https://research.wu.ac.at/ws/oai?verb=ListRecords&set=publications:year2022:withFiles&metadataPrefix=oai_dc"'
outArr=.array~new
ADDRESS SYSTEM command WITH OUTPUT USING (outArr)  -- curl yields data in UTF-8
data=outArr~makeString

DO i = 1 TO 5
   -- parse positioniert ans Ende der gegebenen Textfragmente; jeder Eintrag ended mit '</record>'
   parse var data '<title' '>' titel '</title>'  '<creator>' name '</creator>' '</record>' data
   Say name":"
   Say "   " titel

   Say bsf.iconv(name,"utf-8", "cp1252")":"  -- uses Java conversion infrastructure
   Say "   " bsf.iconv(titel,"utf-8", "cp1252")
   say
END

/* Alternative wäre bsf.iconv() in die aktuelle CP, die möglicherweise nicht
   alle UTF-8 Zeichen beinhaltet.
*/

::requires BSF.CLS

(Die Farbhervorhebungen kommen von der IntelliJ-Entwicklungsumgebung: einfach Code in die Zwischenablage kopieren und daraus in die Textverarbeitung einfügen.)

Mit freundlichem Gruß

Rony G. Flatscher

Liebe alle,

 

nachstehend unser Projekt.

Projekt GR1:

 

command='curl "https://research.wu.ac.at/ws/oai?verb=ListRecords&set=publications:year2022:withFiles&metadataPrefix=oai_dc"'

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

 

 

 

-- 
--
__________________________________________________________________________________

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
__________________________________________________________________________________