Janosch's Prtozedursammlung

Name

Syntax

pos = SameChars( string ) [;]

Beschreibung

Liefert 0 zurück, wenn die als Aufrufparameter angegebene Zeichenkette aus gleichen Zeichen besteht. Sonst wird die Position des ersten anderen Zeichens zurückgegeben.

Aufrufparameter

Parameter

Beschreibung

string

Die Zeichenkette, die überprüft werden soll.

Standardwerte

Parameter

Standardwert

string

Null-Zeichenkette. Die Funktion liefert dann 0 zurück.

Rückgabewerte

Name/Wert

Bedeutung

pos

Position des ersten gefundenen Zeichens, das sich vom ersten Zeichen in der Zeichenkette string unterscheidet.

Bemerkungen

Der Aufrufparameter kann auch numerisch (bestehend aus nur numerischen Zeichen) sein. Dies ist allerdings die normale Eigenschaft der REXX-Sprache.

Psition 0 ist nicht Möglich, weil das die Position des Vergleichzeichens ist.

Sourcecode

/*======( Prüfe ob Zeichenkette aus gleichen Zeichen besteht )=======*/
SameChars: Procedure
Parse Arg string 1 pref 2 .
/* Liefert 0 zurück, wenn die Kette aus gleichen Zeichen besteht, */
/* sonst wird die Position des ersten anderen Zeichens geliefert. */
Return Verify( string, pref, "N" )
/*** End SameChars ***/

Beispiel 1

string = Copies( "A", 8 )           
Say "RC=" || SameChars( string ) "für Zeichenkette" string

Ergebnis 1

RC=0 für Zeichenkette AAAAAAAA

Beispiel 2

string = Copies( "5", 8 )           
Say "RC=" || SameChars( string ) "für Zeichenkette" string

Ergebnis 2

RC=0 für Zeichenkette 55555555

Beispiel 3

string = "01234560"                 
Say "RC=" || SameChars( string ) "für Zeichenkette" string

Ergebnis 3

RC=2 für Zeichenkette 01234560

Beispiel 4

string = "BBBBCBBB"                 
Say "RC=" || SameChars( string ) "für Zeichenkette" string

Ergebnis 4

RC=5 für Zeichenkette BBBBCBBB

Beispiel 5

string = ""                 
Say "RC=" || SameChars( string ) "für Zeichenkette" string

Ergebnis 5

RC=0 für Zeichenkette

Your privacy: This web site has no cookies, no advertising and does not provide access data to anyone for any reason.
Copyright © Janosch R. Kowalczyk 1999, 2010. All rights reserved.
Most recent revision on 26 Feb 2010 (57) - 14:33:05.