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

Hallo Horst,

ich habe mir zunächst nicht die Mühe gemacht, deinen Code zu verstehen, 
sondern selber folgenden Test gemacht:

sub test

dim a as string

a = "a,b.c"
msgbox mid(a,2,1) & "  " & mid(a,4,1)

end sub

Die Msgbox gibt wie erwartet ", ." zurück.

Und dein Programm, das ich dann doch probiert habe, liefert bei mir 
22376,93, was ich nach dem Code auch erwarten würde. Warum das 
allerdings als Warnung ausgegeben wird, weiß ich nicht. Ich habe den 
print-Befehl, den ich nie verwende, durch msgbox ersetzt, was ja an der 
Funktionsweise von mid nichts ändert, und bekomme auch da 22376,93 als 
Ergebnis.
Wo ist da ein Problem?

Getestet mit 7.6.4.1 unter Windows

Grüße

Gerhard


Am 16.01.2025 um 23:51 schrieb officetechnik:
> 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