Author: sergeyken
Subject: Reply to: Wildcard Search in REXX
Posted: Tue Aug 09, 2016 9:43 pm (GMT 5.5)
/* REXX - verify wildcard without going into loop */
WildCard = 'ABC**1**Z'
String = 'We want to find something like ABC001xxZ but not ABC002xxY'
HiMask = Translate( WildCard, 'FF'x, '*' )
LowMask = Translate( WildCard, '00'x, '*' )
Do i = 1 to Words(String)
Single = Word( String, i )
HiSingle = BitAnd( Single, HiMask )
LowSingle = BitOr( Single, LowMask )
If HiSingle == LowSingle Then
Say "Word" Single "found - success!"
End i
return 0
Subject: Reply to: Wildcard Search in REXX
Posted: Tue Aug 09, 2016 9:43 pm (GMT 5.5)
/* REXX - verify wildcard without going into loop */
WildCard = 'ABC**1**Z'
String = 'We want to find something like ABC001xxZ but not ABC002xxY'
HiMask = Translate( WildCard, 'FF'x, '*' )
LowMask = Translate( WildCard, '00'x, '*' )
Do i = 1 to Words(String)
Single = Word( String, i )
HiSingle = BitAnd( Single, HiMask )
LowSingle = BitOr( Single, LowMask )
If HiSingle == LowSingle Then
Say "Word" Single "found - success!"
End i
return 0