■ 質問はここへ ■

前へ 次へ
No. 280 (279へのコメント)投稿者: かぶねこ HP日付: 2001/10/02 03:50:01
題名 : Re^4: 逆順並べ替え→行つなぎ。

行末規則で正規表現置換っていうのは、「タグつき正規表現」を使わないとヒッ
トした文字を残せないから、改行コードをまたいで置換ができない(改行コード
の削除ができない)んですよね。編集時に1行 4000 バイトまで、という制限も
あるので、改行を全部取ったりするとエラーになりがちですし。

結局、ファイルに書き出すマクロのほうが楽かも。逆順マクロのアレンジです。
行末であることを認識させる文字の指定は do while 1 の直後の行の "" のなか
に書きます。

proc main '行末が特定文字でなければ行つなぎ (2001/10/01)
dim n, s$
@MoveFileTop
@MoveBeginningLine
n = instr(@Pathname$, ".")
'ファイルのあるフォルダに、ファイル名に「_c」を追加してファイル作成
s$ = mid$(@Pathname$, 1, n-1) + "_c." + mid$(@Pathname$, n+1)
open s$ for output as #1
do while 1
if instr("-)", right$(@TextCr$(@Line),1)) then
print #1, @TextCr$(@Line)
else
print #1, @TextCr$(@Line);
end if
@MoveNextLineCr
if @Line = @LastLine then exit do
loop
close #1
end proc

次へ
現在の既読番号は 0  既読を


メールアドレスを表示するにはURLの後ろに &m=29159987 をつけてください。
ユーザー フォーラム一覧

http://www2k.biglobe.ne.jp/~araken/
http://0ban.com/araken/