Re: [de-users] inStr-Funktion etwas merkwürdig

Am 02.09.2013 18:06, schrieb Günter Fritze:
> Hallo zusammen.
> Ich habe eine quadratische Tabelle, bei der in jeder Zelle eine Ziffer 
> stehen soll. Dies will ich prüfen. Jeder Zelleninhalt wird mit
>
>               oZelle = oBlatt.getCellByPosition(iI,iJ)
>              sTmp = oZelle.String
> gelesen und mit
>
>              iErg = inStr(sZchn,sTmp)
>              If iErg = 0  Then
> auf Ziffer geprüft. Dies funktioniert gut, wenn der zu untersuchende 
> Zelleninhalt ein unzulässiges Zeichen ist, das Ergebnis ist 0. Aber 
> wehe, wenn in der zu untersuchenden Zelle garnicts ist, also "". Dann 
> steht in iErg eine 1,??????? und in sTmp ein "". 

Daß sTmp ein Leerstring ist, wenn die Quelle aka der Zellinhalt leer
ist, bedarf wohl keiner weiteren Erklärung, oder? Aber was suchst Du mit
der inStr-Funktion in dem Fall genau? Du suchst, ob in dem zu
durchsuchenden Text (SZchn) ein Leerstring enthalten ist. Und das ist
zwischen jedem einzelnen Zeichen in diesem Text unendlich mal der Fall.
Daher bekommst du als Ergebnis ein TRUE.

Übrigens begehst Du noch einen anderen Denkfehler; wenn nämlich die
Variable sZchn aus z. B. der Zeichenfolge "0123456789" besteht, dann
findet die Funktion auch Werte wie 12, 23, 34 usw. Du solltest also auf
alle Fälle überprüfen, ob die Länge des Zellinhaltes genau 1 ist (und
dann hast Du auch bei einem Leerstring keine Probleme).

Ich würde das folgendermaßen lösen:

| If Len(sTmp) = 1  Then
|    iErg = inStr(sZchn,sTmp)
| Else
|    iErg = 0
| Endif
| If iErg = 0  Then

Aber warum verhinderst Du nicht einfach von vorn herein, daß da
überhaupt etwas anderes als genau eine Ziffer eingetragen werden kann?

Spalte oder Bereich markieren => Daten => Gültigkeit => Kriterien =>
Zulassen: 'Ganze Zahl' / [X] Leerzeichen zulassen => Daten: 'zwischen'
=> Min: '1' / Max: '0' => Fehlermeldung => [X] Fehlermeldung anzeigen /
Meldungstext: 'Nur ganze Zahlen zwischen 1 und 9 erlaubt' o. ä.

Wolfgang
-- 


-- 
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert