JavaScriptで、HTML内の特定のaタグを削除したい。

Question

お世話になっております。

JavaScriptで、HTML内の特定のaタグを削除したいです。

HTMLの中に以下のようなaタグが複数含まれています。このaタグ部分のみを削除したいです。

---

<a class="keyword" href="http://d.hatena.ne.jp/keyword/%B5%FE%C5%D4%C9%DC%CE%A9%BF%A2%CA%AA%B1%E0">京都府立植物園</a>

↓↓↓

（削除後）
京都府立植物園

対象条件：
「href="http://d.hatena.ne.jp/keyword」または
「href="https://d.hatena.ne.jp/keyword」が含まれているaタグ

【追記】
実際にはJavaScriptではなく、WindowsのJScriptで行います。
HTMLが含まれるテキストファイルを読み込んで処理します。

str.replace()で正規表現などを使って、処理をしたいです。

Comments

[m.ok.2nd]

対象条件：「href="http://d.hatena.ne.jp/keyword」が含まれているaタグ
＋
「href="https://d.hatena.ne.jp/keyword」の可能性もあります。

[m.ts10806]

コードを提示されるのでしたらマークダウンのcode機能を利用してください。
見ての通り、URLが自動でリンクになります。
あと、自身で調べたこと試したことも記載してください。

[m.ok.2nd]

すみません。マークダウンのcode機能分かります。
勉強しますが、今すぐに対応できません。

[m.ts10806]

誰も急かしてないので、急がなくて良いかと。
以下確認してやってみてください。
https://teratail.com/questions/238564

ただ、現状だと質問ではなく作業依頼なので、そちらのほうが問題です。
環境情報詳細も必要でしょう。
質問タグやタイトル、内容からJScriptであることは誰にも伝わりませんし。

[m.ok.2nd]

すみません。
JScriptでは、通常（?）のJavaSCriptで出来ることは、ほぼそのまま出来ます。
対象をJScriptにしてしまうち回答があまり付かないかと思い、こうしてしまいました。
申し訳ありません。
> 質問ではなく作業依頼
正規表現に詳しくないので、正規表現の方法を質問したつもりですが、質問の仕方が悪かったかもしれません。

[m.ts10806]

＞回答があまり付かないかと思い
だからこそ「多く見られるのは間違いないけど全く同じではないもの」である
JavaScriptとしてしまうのはやりとりが必要となり、余計に時間がかかるわけです。
今後の参考にしてください。

Answer 1

str.replace(new RegExp('<a[^>]+href=\"https?://d\.hatena\.ne\.jp/keyword.*?>(.*?)</a>', 'g'), '$1')

Comments

[m.ok.2nd]

t-nさん、ありがとうございます。
今、試した限りではうまく行っています。
もう少し試して、ベストアンサーにしたいと思います。

Answer 2

方法は色々ありますが、
例えばquerySelectorAllでCSSセレクター上でURLを指定し、
CSSを使ってリンクを無効化するとか.

Array.from(document.querySelectorAll('a[href*="d.hatena.ne.jp/keyword"]')).map(linkTag=>{
  linkTag.style.pointerEvents = "none";
});

https://helloworld-blog.tech/javascript/javascriptcss%E3%81%A7%E5%B1%9E%E6%80%A7%E3%81%AE%E5%80%A4%E3%82%92%E9%83%A8%E5%88%86%E4%B8%80%E8%87%B4%E3%81%A7%E5%88%A4%E5%AE%9A%E3%81%99%E3%82%8B

Comments

[m.ok.2nd]

すみません。

無効にするのではなく、Ａタグを除去したいのです。

質問の仕方が不十分でした。

実際にはJavaScriptではなく、WindowsのJScriptで行います。
HTMLが含まれるテキストファイルを読み込んで処理します。

str.replace()で正規表現などを使って、処理をしたいです。

Answer 3

<script>
window.addEventListener('DOMContentLoaded', ()=>{
  document.querySelectorAll('[href]').forEach(x=>{
    if(new RegExp("^https?://d.hatena.ne.jp/keyword").test(x.getAttribute('href'))){
      x.remove();
    }
  });
});
</script>
<a class="keyword" href="http://d.hatena.ne.jp/keyword/test1">test1</a>
<a class="keyword" href="http://d.hatena.ne.jp/nottarget">test2</a>
<a class="keyword" href="https://d.hatena.ne.jp/keyword/test3">test3</a>

vbsサンプル

htmlファイルを用意します。
//test.htm

<a class="keyword" href="http://d.hatena.ne.jp/keyword/test1">test1</a>
<a class="keyword" href="http://d.hatena.ne.jp/nottarget">test2</a>
<a class="keyword" href="https://d.hatena.ne.jp/keyword/test3">test3</a>
<a class="keyword" href="https://d.hatena.ne.jp/nottarget">test4</a>

以下のvbsファイルにドラッグアンドドロップします
//test.vbs

sub main()
  set args= wscript.arguments
  set oWSH =wscript.CreateObject("WScript.Shell")
  set reg = CreateObject("VBScript.RegExp")
  set fs = CreateObject("Scripting.FileSystemObject")
  if args.count=0 then
    msgbox "ファイルを落としてください。"
    exit sub
  end if
  
  set f=fs.getfile(args(0))
  set otf = fs.OpenTextFile(f)
  txt=""
  Do While true
     txt=txt+otf.readline+vbCrLf 
     if otf.AtEndOfStream then
        exit do
     end if
  loop
  otf.close
  with reg
   .Pattern="<a .*?href=""https?://d.hatena.ne.jp/keyword.*?</a>"
   .IgnoreCase=true
   .Global=true
  end with
  replacement=""
  txt=reg.replace(txt,replacement)
  msgbox txt
end sub
main()

Comments

[m.ok.2nd]

すみません。質問の仕方が不十分でした。

実際にはJavaScriptではなく、WindowsのJScriptで行います。

HTMLが含まれるテキストファイルを読み込んで処理します。

JScriptで、DOMが使えるのかどうか分かりません。

str.replace()で正規表現などを使って、処理をしたいです。

[yambejp]

JScriptってIEの技術では？もうIEは動かないと思いますが？

[m.ok.2nd]

私の理解ではJScriptとIEは関係ないかと思います。
JavaScriptで出来ることの大半（？）がそのままWindowsローカルのスクリプト言語として使えます。Windows固有の言語を勉強しなくて良いという利点があります。

[yambejp]

通常JScriptのHTML処理は
CreateObject("InternetExplorer.Application")
をしてIE上で処理をします。

今回の件はwshでたんに文字列として処理したいということなんですね？

[m.ok.2nd]

はい、そうです。
今、別の方からいただいた回答でうまくいきそうです。
ありがとうございました。

[yambejp]

VBSのサンプルをつけておきました

[m.ok.2nd]

VBSのサンプルありがとうございます。
他の方からいただいた方法をベースにしたJScript載せておきます。

var args = WScript.Arguments;
var inputFile = args(0);

var sr = new ActiveXObject("ADODB.Stream");
sr.Type = 2; // adTypeText
sr.charset = "utf-8";
sr.Open();
sr.LoadFromFile(inputFile);
var str = sr.ReadText(-1); // adReadAll
sr.Close();

var out = str.replace(new RegExp('<a[^>]+href=\"https?://d\.hatena\.ne\.jp/keyword.*?>(.*?)</a>', 'g'), '$1')

var sw = new ActiveXObject("ADODB.Stream");
sw.Type = 2; // adTypeText
sw.charset = "utf-8";
sw.Open();
sw.WriteText(out, 1); // adWriteLine
sw.SaveToFile(inputFile.slice(0,-4) + "-remove.txt", 2); // adSaveCreateOverWrite
sw.Close();

[yambejp]

今回は質問が曖昧すぎましたね。見た感じずぶの素人さんでもなさそうですし
ファイルI/Oも含めて要件の提示は的確になさったほうがよいでしょう。