Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

IF SubStr(var,95,10) = Replicate("0",10)

Code: Alles auswählen

SET EXACT ON

Code: Alles auswählen

 Syntax 
SET EXACT on | OFF | <lToggle> 
Gültigkeit: Thread-lokal 
Parameter 
<lToggle>
<lToggle> ist ein logischer Ausdruck, der in ()-Klammern stehen muß. Anstelle des logischen Ausdrucks kann die Option ON für den Wert .T. (wahr) oder OFF für den Wert .F. (falsch) angegeben werden. Wenn .T. oder ON angegeben ist, erfolgt der Vergleich zweier Zeichenketten unter Berücksichtigung der Länge beider Zeichenketten. 
Beschreibung 
Der Befehl SET EXACT existiert aus Gründen der Kompatibilität und sollte nicht mehr verwendet werden. Der Befehl SET LEXICAL eignet sich wesentlich besser, wenn ein ungefährer Vergleich bei zwei Zeichenketten durchgeführt werden soll. 
SET EXACT definiert die Regeln für den ungefähren Vergleich zweier Zeichenketten durch die Vergleichsoperatoren (=, >, <, => und =<). Wenn SET EXACT auf OFF gesetzt ist, wird der Ausdruck cLeftString = cRightString nach folgenden Regeln ausgewertet: 
 	Wenn cRightString ein Null-Zeichen ("") enthält, liefert der Ausdruck den Wert .T. (wahr). 
 	Wenn cRightString mehr Zeichen enthält als cLeftString , liefert der Ausdruck den Wert .F. (falsch). 
 	In allen anderen Fällen liefert der Ausdruck den Wert .T. (wahr), falls die Zeichen in cRightString mit den Zeichen in cLeftString übereinstimmen, sonst .F. (falsch). 
Wenn SET EXACT auf ON gesetzt ist, liefert der Vergleich zweier Zeichenketten durch die Vergleichsoperatoren (=, >, <, => und =<) dann den Wert .T. (wahr), wenn deren Zeichen mit Ausnahme endständiger Leerzeichen übereinstimmen. 
Der exakte Gleichheitsoperator == berücksichtigt auch die endständigen Leerzeichen bei einem Zeichenkettenvergleich. 
Die Einstellung SET LEXICAL ON hat Vorrang vor der Einstellung SET EXACT ON. Falls lexikalische Vergleichsregeln mit SetLexRule() definiert sind, werden sie erst gemäß diesen Regeln umgeformt, bevor ein Vergleich in Abhängigkeit von SET EXACT erfolgt. 
Beispiel 
// SET EXACT Beispiel 
// Das Beispiel zeigt die Wirkung von SET EXACT bei dem Vergleich 
// von Zeichenketten durch den einfachen Gleichheitsoperator. 
   PROCEDURE Main 
      SET EXACT OFF 
      ? "Abc"   = "Abcde"           // Ergebnis: .F. 
      ? "Abcde" = "Abc"             // Ergebnis: .T. 
      ? "Abc"   = ""                // Ergebnis: .T. 
      ? ""      = "Abc"             // Ergebnis: .F. 
      ? "Abc"   = "Abc  "           // Ergebnis: .F. 
      SET EXACT ON 
      ? "Abc"   = "Abcde"           // Ergebnis: .F. 
      ? "Abcde" = "Abc"             // Ergebnis: .F. 
      ? "Abc"   = ""                // Ergebnis: .F. 
      ? ""      = "Abc"             // Ergebnis: .F. 
      ? "Abc"   = "Abc  "           // Ergebnis: .T. 
// Exakter Gleichheitsoperator 
      ? "Abc"  == "Abc  "           // Ergebnis: .F. 
   RETURN 

Code: Alles auswählen

proc main
  local cT1, cT2
  cls
  cT1 := replicate("0",10)
  cT2 := replicate("0",11)
  ? cT1, "len()=",len(cT1)
  ? cT1, "len()=",len(cT2)
  set exact off
  ? "OFF: cT1=cT2 ",cT1=cT2
  ? "OFF: cT2=cT1 ",cT2=cT1
  set exact on
  ? "ON:  cT1=cT2 ",cT1=cT2
  ? "ON:  cT2=cT1 ",cT2=cT1
  wait

return

ERGEBNIS:

0000000000 len()=         10
0000000000 len()=         11
OFF: cT1=cT2  N
OFF: cT2=cT1  J
ON:  cT1=cT2  N
ON:  cT2=cT1  N
Press any key to continue...