• 前へ
• 次へ

hmPerlが持つ特別な関数一覧

編集中エディタに対する関数

現在秀丸エディタで開いているテキストに対して、以下の関数を利用することが出来ます。

• テキスト全体

  • hm->Edit->TotalText

    現在編集中の秀丸エディタのテキスト全体を得る

  • hm->Edit->TotalText( 文字列 )

    現在編集中の秀丸エディタのテキスト全体を、引数の文字列にする。

  #Perl = loaddll( hidemarudir + @"\hmPerl.dll" );
  
  #_ = dllfuncw( #Perl, "DoString", R"PERL(
  my $totaltext = hm->TotalText;
  hm->debuginfo($totaltext);
  
  hm->TotalText("あいうえお");
  )PERL");
  
  freedll( #Perl );
  

• 選択中のテキスト

  (単純選択のみが対象となります。ボックス選択や複数選択は対象にはなりません)

  • hm->Edit->SelectedText

    現在編集中の秀丸エディタの「選択している」テキストを得る。

  • hm->Edit->SelectedText( 文字列 )

    現在編集中の秀丸エディタの「選択している」テキストを、引数の文字列へと置き換える。

  #Perl = loaddll( hidemarudir + @"\hmPerl.dll" );
  
  #_ = dllfuncw( #Perl, "DoString", R"PERL(
  # 何かを単純選択していたら、テキストが得られる
  my $selectedtext = hm->SelectedText;
  hm->debuginfo($selectedtext);
  
  hm->SelectedText("選択しているテキストをこの文字列に置き換えた");
  )PERL");
  
  freedll( #Perl );
  
  

• カーソルがある行のテキスト

  • hm->Edit->LineText

    現在編集中の秀丸エディタの「カーソルがある行」のテキストを得る。

  • hm->Edit->LineText( 文字列 )

    現在編集中の秀丸エディタの「カーソルがある行」のテキストを、引数の文字列へと置き換える。
    

  #Perl = loaddll( hidemarudir + @"\hmPerl.dll" );
  
  #_ = dllfuncw( #Perl, "DoString", R"PERL(
  my $linetext = hm->LineText;
  hm->debuginfo($linetext);
  
  # 行のテキストを入れ替える感じにするなら、最後に「\n」を付けること。
  hm->LineText("カーソル行のテキストをこれに変更\n");
  )PERL");
  
  freedll( #Perl );
  

• カーソルの位置

  • hm->Edit->CursorPos->{lineno}

    現在選択中の秀丸エディタのカーソル位置の行番号を得る。
    秀丸マクロのlinenoと同じ値。

  • hm->Edit->CursorPos->{column}

    現在選択中の秀丸エディタのカーソル位置のカラム値を得る。
    秀丸マクロのcolumnと同じ値。

  #Perl = loaddll( hidemarudir + @"\hmPerl.dll" );
  
  #_ = dllfuncw( #Perl, "DoString", R"PERL(
  my $lineno = hm->Edit->CursorPos->{lineno};
  my $column = hm->Edit->CursorPos->{column};
  hm->debuginfo( "($lineno, $column)" );
  )PERL");
  
  freedll( #Perl );
  

• マウスの位置に対応するカーソルの位置(秀丸エディタ v8.73以上)

  • hm->Edit->MousePos->{lineno}

    現在選択中の秀丸エディタの「マウスの位置に対応するカーソル位置」の行番号を得る。
    

  • hm->Edit->MousePos->{column}

    現在選択中の秀丸エディタの「マウスの位置に対応するカーソル位置」のカラム値を得る。
    

  #Perl = loaddll( hidemarudir + @"\hmPerl.dll" );
  
  #_ = dllfuncw( #Perl, "DoString", R"PERL(
  my $lineno = hm->Edit->MousePos->{lineno};
  my $column = hm->Edit->MousePos->{column};
  my $x = hm->Edit->MousePos->{x}; // マウスのスクリーン座標
  my $y = hm->Edit->MousePos->{y}; // マウスのスクリーン座標
  hm->debuginfo( "($lineno, $column)" );
  )PERL");
  
  freedll( #Perl );
  

• 関数で扱うのがまどろっこしいということであれば…

  hmPerl.pmを見ればわかるように、値は「$::hm_Edit_TotalText」等に対して行っているわけですから、
  それを直接取り扱っても良いでしょう。(むしろその方が記述が単純です)

  #Perl = loaddll( hidemarudir + @"\hmPerl.dll" );
  
  #_ = dllfuncw( #Perl, "DoString", R"PERL(
  
  
  # テキストを選択中だったら
  if ( hm->Macro->Var('selecting') ) {
    # 選択範囲の「テキスト」という文字を「トスキテ」に置き換え
    $::hm_Edit_SelectedText =~ s/テキスト/トスキテ/g;
  
  } else {
    # テキスト全体の「テキスト」という文字を「トスキテ」に置き換え
    $::hm_Edit_TotalText =~ s/テキスト/トスキテ/g;
  }
  
  )PERL");
  
  freedll( #Perl );
  

• 前へ
• 次へ