informix - 4GL でのスペースを使用した文字列の配置

Question

指定されたno.ofスペースで4glの文字列を右揃えする方法は?

Answer 1

FILL 関数を使用して、指定した数のスペースを作成できます。たとえば、FILL("A", 10) は "AAAAAAAAAA" を返します。

簡単なデモを次に示します。

DEFINE VARIABLE cText   AS CHARACTER   NO-UNDO.
DEFINE VARIABLE iLength AS INTEGER     NO-UNDO.

iLength = 16.
cText = "Some text".

cText = FILL(" ", iLength - LENGTH(cText)) + cText.

MESSAGE cText.

必要な全体の長さは 16 文字です。LENGTH(cText) を使用してテキストが占める文字数を決定し、FILL を使用して文字列の先頭に残りのスペースを作成します。

---

Informix

私はこの質問に Progress 4GL について回答しましたが、後になって、その質問が Informix 4GL に関するものであることに気付きました。私のミスで大変申し訳ございません。

同じプリンシパルを使用して、Informix でこれを行うことができます。LENGTH キーワードを使用して既存のテキストの長さを確認しますが、FILL() を使用してスペースを埋め込む代わりに、SPACES を使用する必要があります。

Progress: FILL(" ", 10) + c_text
Informix: 10 SPACES, c_text

これがお役に立てば幸いです。