| 2023/09/01(Fri) 23:37:04 編集(投稿者)
■No13928に返信(oyajiさんの記事)
以下で、動作確認しました。
改行されていない変換前のファイル名を ”テスト.txt” としています。 改行されたデータが #一括パス名 + "改行しました.txt" に出力されます。
なお、イベント処理になります。 コマンドボタンに cmd改行しましょう を設定して実行してください。
手続き定義開始 cmd改行しましょう( ) 変数宣言 自動,文字列{ &character } 変数宣言 自動,整数 { &printStatus , &status, &return }
印字開始 #一括パス名 + "改行しました.txt" , 終了状態 = &printStatus
ファイル入力開始 "テスト.txt”, 終了状態 = &status if ( &status = 1 ) 繰り返し ファイル入力 &character , 文字数=1, 終了状態=&return
印字 &character, if (&character = ">" ) /* > > ※全角、半角に注意 */ 印字 _13,_10, end
* トレース出力 _&character , " ", _&character * テストの際にはトレース出力を開始して確認しましょう。
if( &return = -1 ) 繰り返し中止 end
繰り返し終了 end ファイル入力終了
印字終了
手続き定義終了
|