...断程序:输入一段字符串判断是否是数字(含有小数点的),并用大写金额...

发布网友 发布时间：2024-10-23 21:31

我来回答

共4个回答

热心网友 时间：2024-10-27 06:33

搜索字符串
要搜索特定 模式的字符 串，请使用 SEARCH 语句，用法 如下：
语法
SEARCH <c> FOR <str> <options>.
该语句在字 段 <c> 中搜索<str> 中的字符串 。如果成功 ，则将 SY-SUBRC 的返回代码 值设置为0并 将 SY-FDPOS 设置为字段 <c> 中该字符串 的偏移量。 否则将 SY-SUBRC 设置为4。
搜索串 <str> 可为下列格 式之一：
<str> 目 的
<pattern> 搜 索 <pattern>（ 任何字符顺 序）。忽略 尾部空格。
.<pattern>. 搜 索 <pattern> ，但是不忽 略尾部空格 。
*<pattern> 搜 索以 <pattern> 结尾的词。
<pattern>* 搜 索以 <pattern> 开始的词。
单词之间用 空格、逗号 、句号、分 号、冒号、 问号、叹号 、括号、斜 杠、加号和 等号等分隔 。
DATA STRING(30) VALUE 'This is a little sentence.'.
WRITE: / 'Searched', 'SY-SUBRC', 'SY-FDPOS'.
ULINE /1(26).
SEARCH STRING FOR 'X'.
WRITE: / 'X', SY-SUBRC UNDER 'SY-SUBRC',
SY-FDPOS UNDER 'SY-FDPOS'
SEARCH STRING FOR 'itt '.
WRITE: / 'itt ', SY-SUBRC UNDER 'SY-SUBRC',
SY-FDPOS UNDER 'SY-FDPOS'
SEARCH STRING FOR '.e .'.
WRITE: / '.e .', SY-SUBRC UNDER 'SY-SUBRC',
SY-FDPOS UNDER 'SY-FDPOS'.
SEARCH STRING FOR '*e'.
WRITE: / '*e ', SY-SUBRC UNDER 'SY-SUBRC',
SY-FDPOS UNDER 'SY-FDPOS'.
SEARCH STRING FOR 's*'.
WRITE: / 's* ', SY-SUBRC UNDER 'SY-SUBRC',
SY-FDPOS UNDER 'SY-FDPOS'.
该过程的输 出如下：
SEARCHED SY-SUBRC SY-FDPOS
X 4 0
itt 0 11
.e . 0 15
*e 0 10
s* 0 17

搜索字符字 段 <c> 的各种选项 （<options>） 如下
? ABBREVIATED
在字段 <c> 中搜索包含 <str> 中指定字符 串的单词， 其中字符可 能被其它字 符隔开。单 词和字符串 的第一个字 母必须相同 。
? STARTING AT <n1>
在字段 <c> 中搜索从 <n1> 开始的 <str> 。结果 SY-FDPOS 参照相对于 <n1> 的偏移量而 不是字段的 开始。
? ENDING AT <n2>
在字段 <c> 搜索 <str> 直到位置 <n2>。
? AND MARK
如果找到搜 索串，则将 搜索串中的 所有字符（ 和使用 ABBREVIATED 时的所有字 符）转换为 大写形式。

热心网友 时间：2024-10-27 06:27

问下，如果是字符的处不处理？如果不处理定义P类型的应该可以，至于小数点*100放大100倍再进行处理就可以。

热心网友 时间：2024-10-27 06:28

我记得有一个FUNCTION可以处理的，你再搜搜看吧

热心网友 时间：2024-10-27 06:28

asdg