[VBA] htmlデコード関数

この記事は投稿は1年以上経過しており、最新の情報でない場合があります。ご注意下さい。

VBAでhtmlデコードする必要が出てきた。

めんどくさがりなので、頭を使わずにネットのソースコピペで済まそうとググってみた。

しかし、URLデコード/エンコードはググったらすぐ出てきたのにhtmlデコードは出てこない。

すこし検索範囲を広げると英語圏でVBScriptでのhtmlデコードを発見した
→　Classic ASP (VBScript) convert HTML codes to plain text

コピペして、ほんんんｎの少しだけ修正して完成
↓

Function HTMLDecode(sText As String)
    Dim regEx
    Dim matches
    Dim match
    sText = Replace(sText, "&quot;", Chr(34))
    sText = Replace(sText, "&lt;", Chr(60))
    sText = Replace(sText, "&gt;", Chr(62))
    sText = Replace(sText, "&amp;", Chr(38))
    sText = Replace(sText, "&nbsp;", Chr(32))


    Set regEx = CreateObject("VBScript.RegExp")

    With regEx
     .Pattern = "&#(\d+);" 'Match html unicode escapes
     .Global = True
    End With

    Set matches = regEx.Execute(sText)

    'Iterate over matches
    For Each match In matches
        'For each unicode match, replace the whole match, with the ChrW of the digits.

        sText = Replace(sText, match.Value, ChrW(match.SubMatches(0)))
    Next

    HTMLDecode = sText
End Function

Function HTMLDecode(sText As String)

Dim regEx

Dim matches

Dim match

sText = Replace(sText, """, Chr(34))

sText = Replace(sText, "<", Chr(60))

sText = Replace(sText, ">", Chr(62))

sText = Replace(sText, "&", Chr(38))

sText = Replace(sText, " ", Chr(32))

Set regEx = CreateObject("VBScript.RegExp")

With regEx

.Pattern = "&#(\d+);" 'Match html unicode escapes

.Global = True

End With

Set matches = regEx.Execute(sText)

'Iterate over matches

For Each match In matches

'For each unicode match, replace the whole match, with the ChrW of the digits.

sText = Replace(sText, match.Value, ChrW(match.SubMatches(0)))

HTMLDecode = sText

End Function

ソースは斜め読みもしてないけど、動いてるので問題ないぽ。
リンク元に感謝

- 感謝
- 2016年 11月 25日 4:32am
- 返信
- 引用
このサイトのソースから、
　https://www.amazon.co.jp/%E7%A7%91%E5%AD%A6%E6%8A%80%E8%A1%93%E8%A8%88%E7%AE%97%E3%81%AE%E3%81%9F%E3%82%81%E3%81%AEPython%E5%85%A5%E9%96%80-%E2%80%95%E2%80%95%E9%96%8B%E7%99%BA%E5%9F%BA%E7%A4%8E%E3%80%81%E5%BF%85%E9%A0%88%E3%83%A9%E3%82%A4%E3%83%96%E3%83%A9%E3%83%AA%E3%80%81%E9%AB%98%E9%80%9F%E5%8C%96-%E4%B8%AD%E4%B9%85%E5%96%9C-%E5%81%A5%E5%8F%B8/dp/4774183881

次のようなテキストを得るために、
　(2016-09-22) 978-4774183886 _科学技術計算のためのPython入門 ――開発基礎、必須ライブラリ、高速化

非常に役立ちました。
どうも有り難う。

ソースでは、「科学技術計算のための．．．．．」のところが
　　　　　　「科学技術計算．．．．．」
のようになっていて、5、6時間は検索していました。
本当にありがとう。
- 感謝
- 2016年 11月 25日 4:38am
- 返信
- 引用
感謝 :

ソースでは、「科学技術計算のための．．．．．」のところが
　(訂正) → 「”科学技術計算” ．．．．．」
のようになっていて、5、6時間は検索していました。
本当にありがとう。
- 感謝
- 2016年 11月 25日 4:44am
- 返信
- 引用
(訂正) → 「”科学技術計算” ．．．．．」のところが
　　　　　「&#数字;&#&#数字;&#&#数字;&#数字;&#&#数字;&#&#数字; ．．．．．」
のようになっていて、本当にありがとう。

何度もごめんなさい。
- Premiumxue
- 2020年 10月 17日 3:17am
- 返信
- 引用
удалите,пожалуйста! .
- Leupoldmif
- 2020年 12月 25日 1:13am
- 返信
- 引用
manuscripts attributed to Robins
- Rachioiay
- 2020年 12月 31日 5:10pm
- 返信
- 引用
manuscripts attributed to Robins
- Clamcasewrh
- 2021年 1月 13日 3:54am
- 返信
- 引用
Europe, and in Ancient Russia
- Vintagekoh
- 2021年 2月 24日 9:42am
- 返信
- 引用
from lat. manus – “hand” and scribo – “I write”) ]
- Humminbirdbfa
- 2021年 4月 5日 4:54am
- 返信
- 引用
Century to a kind of destruction:
- Interfaceqcv
- 2021年 4月 23日 5:43am
- 返信
- 引用
Century to a kind of destruction:
- nevaeh
- 2021年 5月 18日 8:30pm
- 返信
- 引用
Hi Everybody
Thanks for checking out my writing website . My name is Penelope.
I have worked several years in this niche. My passion for writing started at a young age. I wrote poetry as a child and eventually went on to work with my school newspaper.
This early tryst into journalism eventually led me to academic writing. There is plenty of work for professional writers. I specialize in research papers , but have the skills to do all types of academic writing.
Email me for more information about rates and a price quote. I’m looking forward to helping you.

Academic Writer – Penelope – catholicuniversitywest.com Corps
- dianne
- 2021年 5月 25日 12:08am
- 返信
- 引用
Hi Everybody
Thanks for checking out my writing blog . My name is Dianne.
I have worked since high school in this niche. My passion for writing started at a young age. I wrote short stories as a child and eventually went on to work with my school newspaper.
This early tryst into journalism eventually led me to academic writing. There is plenty of work for qualified writers. I specialize in research papers , but have the skills to do all types of academic writing.
Contact me for more information about rates and a price quote. I’m looking forward to helping you.

Academic Writer – Dianne Dominguez – http://www.wilded.org Corps
- Generationddv
- 2021年 6月 24日 5:57am
- 返信
- 引用
“Julia’s Garland” (fr. Guirlande de Julie)
- Holographicfoo
- 2021年 9月 3日 2:13pm
- 返信
- 引用
Century to a kind of destruction: