openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "technik_div@jrsch.de" <technik_...@jrsch.de>
Subject Problem mit on error goto
Date Mon, 08 Jan 2018 17:27:30 GMT
Hallo,

man sollte zwar nicht mit Fehlern programmieren, aber....

Jetzt habe ich folgendes Programm, das Dollarwert und Kurs ausfiltern soll.

1. warum gibt das Programm beim zweiten Durchlauf einen Fehler aus?

2. gibt es eine einfache funktion um Zahl mit Textanhang in eine Zahl zu 
konvertieren?

Horst

Hier das Makro

Sub Main
afeld=array("Tf 03 2017 Sanda :95   $ :1,1 ","TF 03-2017 Uleda:505   $ 
:1,1 ","TF 03 2017 Mwira :210   $: 1,1 "
for f=0 to 2
on error goto weiterohneKurs2
             svwz=afeld(f)
             avwz=split(svwz,":")
             Dollar=trim(left(avwz(1),8))
             Dollarwert=cdbl(dollar)  'Das gibt einen Fehler
             Dollarkurs=cdbl(trim(avwz(2)))
weiterohneKurs2:
on error goto 0
print swvz & " " & dollarwert
next
end sub


---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org


Mime
View raw message