| サンプルまで、ありがとうございました。 使わせてもらいたいと思います。
テキストに書き出すのは、印字コマンドしかないのですね。 改行コードに置換しようと四苦八苦してました....
で、取り敢えず必要なテキスト書き出し部分を使わせてもらったんですが 次のように一部修正して、意図する通りに動きました。
var Long {&改行文字位置 = 0 } 変数宣言 Str {&改行 = "¶", &S本文 = [本文] , &行 } 印字開始 "本文.txt”, 終了状態 = &r 繰り返し &改行文字位置 = #文字位置( &S本文 , &改行 ) &行 =#cond(&改行文字位置, #SSTR( &S本文, 1, &改行文字位置 -1),1,#SSTR( &S本文, 1)) 印字 &行 条件 ( &改行文字位置=0 )繰り返し中止 &S本文 = #sstr( &S本文 , &改行文字位置 + 1 ) 繰り返し終了 印字終了 改頁 = しない
どうもありがとうございました。
*基本操作は覚えていきたいと思います。
|