■ 質問はここへ ■

93 にジャンプ
No. 92 題名 : ソートってどうやれば、いいですか? 投稿者 : みちこ
No. 93 (92へのコメント)投稿者: かぶねこ HP日付: 2001/07/09 08:58:39
題名 : Re:ソートってどうやれば、いいですか?

>ソートの仕方を教えて欲しいのですが…
>文章の並べ方を上下逆にしたいのです。

ふつうソートというと ABC 順に並べること(パソコンだとコード順)を言いま
す。基本機能にはありません。ねこみみ さんの「選択範囲をソート」マクロな
どをお使いください。

そういうのではなく、単純に「行単位でぜんぶ逆にする」というのだったら、じ
つはじぶん用に6日前にちょっと作ったのがあります。もとのファイルを画面に
編集した状態でマクロを実行すると、もとのファイルと同じフォルダに、ファイ
ル名に「_r」を追加して、逆順ファイルを直接作成します。実行したらそれでフ
ァイルができますので、逆順ファイルは手動で開いてください。(じぶん用なの
で、あまり親切にできてません。) 同じ名前のファイルがあったときは、確認
なく上書きされます。

proc main '1行単位で逆順に並び替え
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

No. 98 題名 : Re^2:ソートってどうやれば、いいですか? 投稿者 : みちこ

全テキストを表示
順番に表示(No. 93 から)


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

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