|
> 文字数、桁数を揃えるなんてことはできないでしょうか^^;
計算式でスぱっとはできそうにないのでイベントでやってみました。
手続き定義開始 t本文::入力後(参照 文字列 &編集文字列,長整数 &モード,参照 長整数 &入力継続)
変数 整数{&P},文字列{&S}
&S=&編集文字列+#COND(#右側文字列(&編集文字列,1)<>#強制改行文字,#強制改行文字)
&編集文字列=""
while (#桁数(&S)>70)
&P=#文字位置(&S,#強制改行文字)
if (#桁数(#部分列(&S,1,&P))>70)
*&P=#文字数(#部分列(&S,1,-70))
&編集文字列=&編集文字列+#部分列(&S,1,-68)+#強制改行文字
&S=#部分列(&S,-69)
else
&編集文字列=&編集文字列+#部分列(&S,1,&P)
&S=#部分列(&S,&P+1)
end
end
&編集文字列=&編集文字列+&S
手続き定義終了
|