>ソートの仕方を教えて欲しいのですが…
>文章の並べ方を上下逆にしたいのです｡
ふつうソートというと ABC 順に並べること（パソコンだとコード順）を言いま
す。基本機能にはありません。ねこみみ さんの「選択範囲をソート」マクロな
どをお使いください。
そういうのではなく、単純に「行単位でぜんぶ逆にする」というのだったら、じ
つはじぶん用に６日前にちょっと作ったのがあります。もとのファイルを画面に
編集した状態でマクロを実行すると、もとのファイルと同じフォルダに、ファイ
ル名に「_r」を追加して、逆順ファイルを直接作成します。実行したらそれでフ
ァイルができますので、逆順ファイルは手動で開いてください。（じぶん用なの
で、あまり親切にできてません。） 同じ名前のファイルがあったときは、確認
なく上書きされます。
proc main '１行単位で逆順に並び替え
dim n, s$
@MoveFileBottom
@MoveBeginningLine
n = instr(@Pathname$, ".")
'ファイルのあるフォルダに、ファイル名に「_r」を追加してファイル作成
s$ = mid$(@Pathname$, 1, n-1) + "_r." + mid$(@Pathname$, n+1)
open s$ for output as #1
do while 1
print #1, @TextCr$(@Line)
if @Line = 1 then exit do
@MoveUpChar
@MoveBeginningLine
loop
close #1
end proc |
