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

Hallo,

danke für den Hinweis.

Ich habe jetzt auf die neueste Version 24.8.24.2 geupdatet und da
funktioniert es. Also entweder bereits gefixt oder das Programm ist
durch den Ruhezustand erodiert. Mein anderer Bug mit
msgbox("Alle Kategorien auswerten?",3+256) 'gibt als Vorgabe "Abbrechen"

bleibt leder

Horst

Am 17.01.2025 um 00:31 schrieb Gerhard Weydt:
> 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