[de-users] Noch ein Bug bei mid() funktion

Hallo,

ich habe ein Dokument, dass unter Openoffice erstellt wurde . Das ist
schon eine Weile her.

Jetzt gibt mir das eine falsche Ausgabe.
Anscheinend gibt mid() Komma, leerzeichen u.a. als 0 zurück.

hier der vollständige code wichtig ist nur a zu verfolgen.

Horst


sub test123
print c2zahl("22.376,93 $")
end sub

'''''''''''''##########
function c2zahl(stext as string) as double
dim stext2 as string
for f =1 to len(stext)
   a=mid(stext,f,1)
    if isnumeric(a) then stext2=stext2 & a
    if a="," then stext2=stext2 & a
    'if a="." then stext2=stext2 & a
next f
on error goto fehler
i=cdbl(trim(stext2))
c2zahl=i
exit function
fehler:
on error goto 0
c2zahl=""

end function

--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy