Macro/投稿/13

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


Top > Macro > 投稿 > 13

選択中の文字で検索

  • ページ: Macro/投稿
  • 作者: じゅうじ?
  • カテゴリー: ppa
  • 投稿日: 2004-01-01 (木) 05:29:15

メッセージ

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
// 実行には PPA.DLL が必須です。sakura.exe と同じフォルダに 
// PPA.DLL を入れておいてください。
// また、マクロファイルの拡張子は .PPA でなくてはなりません。
// PASTENEXT.PPA
// クリップボードの内容で前検索開始(複数行の貼り付けは不可)
var
  ss, st, se: String;
  is, it, ie: Integer;
begin
  S_CancelMode();  // 選択中の文字が有る場合
  st := S_ExpandParameter('$x');
  S_Paste();
  se := S_ExpandParameter('$x');
  ie := se;
  S_BeginSelect();
  for is := ie - 1 downto st do
    S_Left();
  ss := S_GetSelectedString(0);
  S_Delete();
  S_CancelMode();
  S_SearchNext(ss,0);
end.


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-29 (土) 23:36:52 (4347d)