Macro/投稿/74

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F74


Top > Macro > 投稿 > 74

リナンバリング

  • ページ: Macro/投稿
  • 作者: りーや?
  • カテゴリー: pls
  • 投稿日: 2005-11-20 (日) 23:31:11

メッセージ

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
# リナンバリング  ReNumber.pls
MoveHistSet();        # 現在位置を移動履歴に登録
$LineMax = GetLineCount(0);        # 全論理行数の取得
GoFileTop();        # ファイルの先頭に移動
$Line = ExpandParameter('$y') + 0;
$Num = ExpandParameter('$C');        # カーソル位置の単語
$Len = length($Num);
exit 0 if($Num !~ /\d+/);
 
$Num =~ /0*$/;
$Inc = ("1" . $&) * 1;
for($i=2; $i <= $LineMax; $i++){
  Jump($i,1);        # 指定行へジャンプ(論理行)
  $Num += $Inc;
  $outputText = sprintf('%0' . $Len . 'd', $Num);
  for($j=0; $j < $Len; $j++){
    Right_Sel();        # (選択)カーソル右移動;
  }
  InsText($outputText);        # テキストを貼り付け
}
Jump($Line,0);        # 元のカーソル行へジャンプ(物理行)
#...............................................................................


URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2006-07-30 (日) 00:47:11 (4523d)