|
固定タブ位置移動
- ページ: Macro/投稿
- 作者: りーや?
- カテゴリー: pls
- 投稿日: 2005-11-20 (日) 23:29:37
メッセージ
- 前方
0
1
2
3
4
5
6
7
8
9
10
11
12
13
| | @TabPos = (7, 8, 12, 40, 73); $CurCol = 0 + ExpandParameter('$x'); @WkList = grep {$_ < $CurCol} @TabPos;
$NextPos = pop @WkList;
if($NextPos){
for($i=0; ($CurCol - $i) > $NextPos; $i++) {
Left(); }
} else {
GoLineTop(0); Left(); }
|
- 後方
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| | @TabPos = (7, 8, 12, 40, 73); MoveHistSet(); $CurCol = 0 + ExpandParameter('$x'); GoLineEnd(); $EndCol = 0 + ExpandParameter('$x'); MoveHistPrev(); @WkList = grep {$_ > $CurCol} @TabPos;
$NextPos = shift @WkList;
if($NextPos){
if($NextPos >= $EndCol) {
GoLineEnd(); if($NextPos > $EndCol) {
$blanks = sprintf('%' . ($NextPos - $EndCol) . 's', ' ');
InsText($blanks); }
} else {
for($i=0; ($i + $CurCol) < $NextPos; $i++) {
Right(); }
}
} else {
GoLineEnd(); Right(); }
|
|
|