07/02/06 01:18:00 y0FKzOWJ0
ごちゃごちゃやってるよりマクロ書いちゃった方が早くね？
===== reverse.js =====
Editor.InsText(Editor.GetSelectedString(0).split('\r\n').reverse().join('\r\n'));
===== EOF=====
===== reverse.vbs =====
Dim strLines, intLineCount, i
strLines = Split(Editor.GetSelectedString(0), vbCrLf)
intLineCount = UBound(strLines)
ReDim strResult(intLineCount)
For i = 0 To intLineCount
strResult(intLineCount - i) = strLines(i)
Next
Editor.InsText Join(strResult, vbCrLf)
===== EOF=====
改行コードはCR+LF固定なんで､他にも対応させる必要があるなら
GetLineCodeで拾って対応しな