TRANSLATE(转换大/小写并替换字符)

可以将字母转换大/小写或使用替换规则。要转换大/小写，请使用 TRANSLATE 语句，用法如下：

语法

TRANSLATE ＜c＞ TO UPPER CASE.

TRANSLATE ＜c＞ TO LOWER CASE.

这些语句将字段＜c＞中的所有小写字母转换成大写或反之。

使用替换规则时，请使用以下语法：

语法

TRANSLATE ＜c＞ USING ＜r＞.

该语句根据字段中存储的替换规则替换字段的所有字符。包含成对字母，其中每对的第一个字母用第二个字母替换。可为变量。有关包含更复杂替换规则的 TRANSLATE 语句的更多变体，参见关键字文档。

代码：

DATA: T(10) VALUE 'AbCdEfGhIj',

      STRING LIKE T,

      RULE(20) VALUE 'AxbXCydYEzfZ'.

STRING = T.

WRITE STRING.

TRANSLATE STRING TO UPPER CASE.

WRITE / STRING.

STRING = T.

TRANSLATE STRING TO LOWER CASE.

WRITE / STRING.

STRING = T.

TRANSLATE STRING USING RULE.

WRITE / STRING.

　　显示结果：

AbCdEfGhIj

ABCDEFGHIJ

abcdefghij

xXyYzZGhIj

基本形式

TRANSLATE text {TO {UPPER|LOWER} CASE}
| {USING pattern}.

オプション:

1. ... TO {UPPER|LOWER} CASE

2. ... USING pattern

機能

この命令によって、文字型データオブジェクト text の大文字/小文字のスペルまたは単一の文字が変換されます。 CASE 命令は、大文字/小文字の変換に使用することができます。 USING 命令は、パターンに従って変換するのに使用できます。変数 text は、文字型であることが必要です。

補足説明

この命令については、無効になった記述法が 2 つあります。

オプション 1

... TO {UPPER|LOWER} CASE

機能

UPPER を指定すると、データオブジェクト text の小文字がすべて大文字に変換されます。 LOWER を指定すると、大文字がすべて小文字に変換されます。

補足説明

大文字/小文字の変換は、テキスト環境によって異なります。テキスト環境の言語が処理対象のデータの入力に使用される言語と異なっている場合には、障害が発生する可能性があります。翻訳元言語と翻訳先言語の間での変換が定義されていない場合は、データが損失します。この種の不整合を回避するため、変換前にSET LOCALE 命令を使用してテキスト環境を適切に設定する必要があります。

例

変換後の変数 text に、"CAREFUL WITH THAT AXE, EUGENE" という文言が含まれているとします。

DATA text TYPE string.

text = `Careful with that Axe, Eugene`.

TRANSLATE text TO UPPER CASE.

オプション 2

... USING pattern

機能

USING を指定すると、 pattern に指定された規則に従って text の文字が変換されます。 patternは、内容が文字のペアの順序であると解釈される文字型データオブジェクトであることが必要です。 textは、最初のペアを始めとして、各ペアの最初の文字が検索されます。そして、検索されたそれぞれの場所は、当該ペアの 2 つ目の文字に置き換えられます。検索では大文字と小文字が区別されます。 pattern にあるペアの最初の文字として 1 つの文字が何回も出現する場合は、最初のペアのみ考慮されます。すでに置き換わっている text の文字を同じ TRANSLATE 命令で置き換えることはできません。そのため、 pattern のペアの 2 つ目の文字が後続のペアの最初の文字として出現する場合、2 つ目のペアは text にある元の文字にしか影響を与えません。

データオブジェクト text および pattern における末尾の空白は、データオブジェクトに対して考慮されます。 pattern に奇数の文字数の文字が入っている場合、最後の文字が無視されます。 pattern が空白の文字列である場合は、置換が行われません。

例

"A" を "B"、"a" を "b" に、またその反対に文字を変換し、変換後、 text に "Abracadabra" という文字列が入るとします。

DATA text TYPE string.

text = `Barbcbdbarb`.

TRANSLATE text USING 'ABBAabba'.