blocks|key|3938446|text|我想出了这个'toUpper‘函数，它比预期的要简单一点。它接受字符串和单词列表作为输入，并返回字符串，如果找到任何单词，则将其转换为大写：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3938447|parms+=+'UPdatE+summary(The+summary)+Description(The+description)'+++++
say+'Parms+are+:'+parms++++++++++++++++++++++++++++++++++++++++++++++++

parms+=+toUpper(parms,+'CHANGE+UPDATE+SUMMARY+DESCRIPTION')++++++++++++
say+'Parms+are+now+:'+parms++++++++++++++++++++++++++++++++++++++++++++

exit+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

/********************************************************************/+
/*+Subroutines++++++++++++++++++++++++++++++++++++++++++++++++++++++*/+
/********************************************************************/+
toUpper:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

parse+arg+string,+wordList+++++++++++++++++++++++++++++++++++++++++++++
stringUpper+=+string+++++++++++++++++++++++++++++++++++++++++++++++++++
upper+stringUpper+wordlist+++++++++++++++++++++++++++++++++++++++++++++

do+i+=+1+to+words(wordlist)++++++++++++++++++++++++++++++++++++++++++++
+++word+=+word(wordlist,i)+++++++++++++++++++++++++++++++++++++++++++++
+++pos+=+pos(word,+stringUpper)++++++++++++++++++++++++++++++++++++++++
+++if+pos+>+0+then+string+=+overlay(word,+string,+pos)+++++++++++++++++
end++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

return+string+|code-block|syntax|javascript|3938448|输出：|3938449|Parms+are+:+UPdatE+summary(The+summary)+Description(The+description)+++++++
Parms+are+now+:+UPDATE+SUMMARY(The+summary)+DESCRIPTION(The+description)+|3938450|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

I came up with this 'toUpper' function, which is a bit simpler than expected. It takes a string and a list of words as input and returns the string with any of the words converted to upper case if found:

<pre><code>parms = 'UPdatE summary(The summary) Description(The description)' 
say 'Parms are :' parms 

parms = toUpper(parms, 'CHANGE UPDATE SUMMARY DESCRIPTION') 
say 'Parms are now :' parms 

exit 

/********************************************************************/ 
/* Subroutines */ 
/********************************************************************/ 
toUpper: 

parse arg string, wordList 
stringUpper = string 
upper stringUpper wordlist 

do i = 1 to words(wordlist) 
 word = word(wordlist,i) 
 pos = pos(word, stringUpper) 
 if pos &gt; 0 then string = overlay(word, string, pos) 
end 

return string 
</code></pre>

Output:

<pre><code>Parms are : UPdatE summary(The summary) Description(The description) 
Parms are now : UPDATE SUMMARY(The summary) DESCRIPTION(The description) 
</code></pre>

blocks|key|3938478|text|在Rexx中模拟TSO-ish+/+IDCAMS-ish语法时，这是一个非常常见的任务。我通常做这样的事情。这是一个如此简短的习惯用法，我从来不会费心去创建子例程，只是内联使用它。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3938479|summary+=+'Whatever+the+default+value+is'
description+=+'Whatever+the+default+value+is'
parse+var+arg+mode+arg
mode+=+upper(mode)
do+while+arg+<>+''
++++parse+var+arg+keyword+'('+value+')'+arg
++++select+upper(keyword)
++++++++when+'SUMMARY'+then+summary+=+value
++++++++when+'DESCRIPTION'+then+description+=+value
++++++++otherwise+Say+'Unknown+option:'+keyword
++++end
end|code-block|syntax|javascript|3938480|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

This is a pretty common task when trying to simulate TSO-ish / IDCAMS-ish syntax in Rexx. I usually do something like this. It's such a short idiom, I never bother to make a subroutine out of it, just use it inline.

<pre><code>summary = 'Whatever the default value is'
description = 'Whatever the default value is'
parse var arg mode arg
mode = upper(mode)
do while arg &lt;&gt; ''
 parse var arg keyword '(' value ')' arg
 select upper(keyword)
 when 'SUMMARY' then summary = value
 when 'DESCRIPTION' then description = value
 otherwise Say 'Unknown option:' keyword
 end
end
</code></pre>

blocks|key|3938525|text|正如所提供的，Ross的代码在z/OS系统上无法工作。z/OS上的REXX有点老了。:-(以下代码将起作用。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3938526|summary+=+'Whatever+the+default+value+is'+++++++++++++++++++++++++++
description+=+'Whatever+the+default+value+is'+++++++++++++++++++++++
arg+=++'UPdatE+summary(The+summary)+Description(The+description)'+++
parse+var+arg+mode+arg++++++++++++++++++++++++++++++++++++++++++++++
upper+mode++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
do+while+arg+<>+''++++++++++++++++++++++++++++++++++++++++++++++++++
++++parse+var+arg+keyword+'('+value+')'+arg+++++++++++++++++++++++++
++++upper+keyword+++++++++++++++++++++++++++++++++++++++++++++++++++
++++select++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++when+keyword='SUMMARY'+then+summary+=+value+++++++++++++++++
++++++++when+keyword='DESCRIPTION'+then+description+=+value+++++++++
++++++++otherwise+Say+'Unknown+option:'+keyword+++++++++++++++++++++
++++end+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
end+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++|code-block|syntax|javascript|3938527|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

As supplied Ross's code won't work on a z/OS system. The REXX on z/OS is a bit ancient. :-( The following codes will work.

<pre><code>summary = 'Whatever the default value is' 
description = 'Whatever the default value is' 
arg = 'UPdatE summary(The summary) Description(The description)' 
parse var arg mode arg 
upper mode 
do while arg &lt;&gt; '' 
 parse var arg keyword '(' value ')' arg 
 upper keyword 
 select 
 when keyword='SUMMARY' then summary = value 
 when keyword='DESCRIPTION' then description = value 
 otherwise Say 'Unknown option:' keyword 
 end 
end 
</code></pre>

I have a REXX parameter string in this format:

<pre><code>arg = 'update summary(A summary of something) description(The description)'
</code></pre>

and I'm parsing out the mode, summary and description as follows:

<pre><code>parse upper var arg mode . ,
 1, 'SUMMARY('summary')' .,
 1, 'DESCRIPTION('description')' .
</code></pre>

I convert the arg to upper-case so that the SUMMARY and DESCRIPTION keywords are effectively case-insensitive (the user can code Summary or SUmmAry or sUmMaRy etc) but of course now I've just translated my actual summary and description to upper-case.

How can I make the parsing case-insensitive for the keywords, but keep the correct case for the actual parameters? 

I've thought about extracting the character positions of the keywords and using them in the PARSE statement instead of '1' etc, but want a simple concise process if possible.

Parsing a string in z/OS REXX with partial case-insensitivity

我有一个REXX参数字符串，格式如下：arg = 'update summary(A summary of something) description(The description)'我解析了模式、摘要和描述，如下所示：parse upper var arg mode . ,   1, 'SUMMARY('summ...

问解析z/OS REXX中的字符串，部分不区分大小写
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问解析z/OS REXX中的字符串，部分不区分大小写EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问解析z/OS REXX中的字符串，部分不区分大小写
EN