home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
c't freeware shareware 1999 February
/
CT_SW9902.ISO
/
pc
/
software
/
finanzen
/
boerse
/
stock100.exe
/
setup.fil
/
sources
/
lgfind.inc
< prev
next >
Wrap
Text File
|
1999-03-11
|
1KB
|
87 lines
set "decimal", ","
set "thousand", "."
set "currency", "EUR"
outputto "last"
onerror "<$(SYMBOL) not found>"
findline "WPKN:</b> $(SYMBOL)"
onerror "<FAIL>"
outputto "yesterday"
findline ">Vortag:<"
findinline "size=2>", 2
skipchars " "
saynextnumber
outputto "time"
findline ">Zeit:<"
findinline "size=2>", 2
skipchars " "
saynchars 8
say "|h:m:s"
outputto "open"
findline ">Erster:<"
findinline "size=2>", 2
skipchars " "
saynextnumber
outputto "date"
findline ">Datum:<"
findinline "size=2>", 2
skipchars " "
sayuntil "<"
say "|D.M.Y"
outputto "high"
findline ">Hoch:<"
findinline "size=2>", 2
skipchars " "
saynextnumber
outputto "low"
findline ">Tief:<"
findinline "size=2>", 2
skipchars " "
saynextnumber
outputto "change"
findline ">Prozent:<"
moveline 1
findinline ">"
skipchars " "
saynextnumber
outputto "last"
findline ">Letzter:<"
moveline 1
findinline ">"
skipchars " "
saynextnumber
outputto "volume"
findline ">Umsatz:<"
findinline "size=2>", 2
skipchars " "
saynextnumber
outputto "bid"
findline ">Bid:<"
findinline "size=2>", 2
skipchars " "
saynextnumber
outputto "kassa"
findline ">Kassa:<"
findinline "size=2>", 2
skipchars " "
saynextnumber
outputto "ask"
findline ">Ask:<"
findinline "size=2>", 2
skipchars " "
saynextnumber