- 247 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/06(火) 01:18:00 ID: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で拾って対応しな
|
 |
