Hallo, Leider ist das Problem doch nicht behoben! Zu früh gefreut.
Der Fehler im u.a. Programm trat wieder auf. Zwischenzeitlich war der Computer im Ruhezustand. Beim neuen Hochfahren trat der Fehler wieder auf. Nach neustart des Programms war er wieder weg. Also meine Vermutung, dass das Programm Sich verändert im Ruhezusand scheint zu stimmen. Was kann man tun? Horst Am 17.01.2025 um 07:39 schrieb officetechnik:
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: [email protected] 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
