Excel2016のVBAで、XMLを使った処理をしています。例えば、以下のようなXMLファイル(UTF-8で保存)を用意して、 ```XML ``` VBAで読み込みます。 ※とりあえずモジュールで。あくまでサンプルなので細かい書き方は無視してください。 ```VB Dim dom As New MSXML2.DOMDocument ’以下試しましたが全部同じでした 'DOMDocument 'DOMDocument26 'DOMDocument30 'DOMDocument60 Sub Test() dom.Load "C:\前述の\XMLファイル.xml" dom.setProperty "SelectionLanguage", "XPath" End Sub ``` この後、読み込んだXMLの検索を実装するために以下のような関数を用意したところ、 1バイト文字は正常に動くのに2バイト文字だと検索に引っ掛かりません。 ```VB Sub Search(Text As String) Dim nl As IXMLDOMNodeList 'XPathのcontains関数で、指定のキーワードを含む属性を持つノードを検索 Set nl = dom.SelectNodes("//*[contains(@*, '" & Text & "')]") MsgBox nl.Length & "件見つかりました！！" End Sub Call Search("AA") ’⇒「1件見つかりました！！」 Call Search("ろう") ’⇒「0件見つかりました！！」 ※期待値は2件見つかる ``` 属性を「@*」でワイルドカード指定しているにもかかわらず、ノードの最初の属性しか見に行かないような動きになります。どなたか解決方法ご存じの方いらっしゃいましたらご教授お願いいたします。「それ無理なんだよねー！！」と言う情報でも構いません。その情報ソースをご教示いただけると助かります

【VBA+MSXML2】XPathのcontains関数でワイルドカード指定すると想定の動きをしない

Excel2016のVBAで、XMLを使った処理をしています。

例えば、以下のようなXMLファイル(UTF-8で保存)を用意して、

XML
1<?xml version="1.0" encoding="UTF-8"?>
2<組織>
3    <ユーザ class="cls" id="AAA" 名前="やまだ　たろう"/>
4    <ユーザ class="cls" id="BBB" 名前="さとう　じろう"/>
5</組織>

VBAで読み込みます。
※とりあえずモジュールで。あくまでサンプルなので細かい書き方は無視してください。

VB
1Dim dom As New MSXML2.DOMDocument
2’以下試しましたが全部同じでした
3'DOMDocument
4'DOMDocument26
5'DOMDocument30
6'DOMDocument60
7
8Sub Test()
9    dom.Load "C:\前述の\XMLファイル.xml"
10    dom.setProperty "SelectionLanguage", "XPath"
11End Sub
12

この後、読み込んだXMLの検索を実装するために以下のような関数を用意したところ、
1バイト文字は正常に動くのに2バイト文字だと検索に引っ掛かりません。

VB
1Sub Search(Text As String)
2    Dim nl As IXMLDOMNodeList
3
4    'XPathのcontains関数で、指定のキーワードを含む属性を持つノードを検索
5    Set nl = dom.SelectNodes("//*[contains(@*, '" & Text & "')]")
6
7    MsgBox nl.Length & "件見つかりました！！"
8End Sub
9
10
11Call Search("AA")    ’⇒「1件見つかりました！！」
12Call Search("ろう")  ’⇒「0件見つかりました！！」　※期待値は2件見つかる
13

属性を「@*」でワイルドカード指定しているにもかかわらず、ノードの最初の属性しか見に行かないような動きになります。

どなたか解決方法ご存じの方いらっしゃいましたらご教授お願いいたします。
「それ無理なんだよねー！！」と言う情報でも構いません。その情報ソースをご教示いただけると助かります

cx20

2021/11/17 13:35

もしかして id の方を探しに行ってないですか？ "AAA"→"やまだ　たろう" "BBB"→"さとう　じろう" に変えてみたらヒットしませんか？

310uk

2021/11/17 13:45

タグ名も属性名もワイルドカードで指定しているので、想定では全属性見ていると思ってますが違うんですかね… 明日確認してみます。 ※違うワイルドカードの指定方法もあるみたいなのでそっちも確認してみます

cx20

2021/11/17 13:51

とりあえず、ローカルで "AAA"→"やまだ　たろう" "BBB"→"さとう　じろう" に変えてみたところヒットするのは確認しました。また、以下のように変えた場合は、"ろう" でヒットすることを確認しました。変更前）"//*[contains(@*, '" 変更後）"//*[contains(@名前, '" XPath についてあまり詳しくないですが、なんとなく「@*」だと先頭の属性しか見ていないような感じでした。

310uk

2021/11/17 14:16

なるほど！ありがとうございます！！属性を[contains(., 'hoge')]と指定する方法もあると聞いたので、明日調べてみます。

cx20

2021/11/17 14:22

> 属性を[contains(., 'hoge')] それも試してみたのですが、残念ながら、テキストノードを検索する書き方のようでした。。

310uk

2021/11/17 14:24

残念… ありがとうございます！

cx20

2021/11/17 14:50 編集

んー、XPath の仕様が良く分からなくなってきました。こちらにあったサンプルだと、属性名のワイルドカードは「@*」でやってますね。 VBA+MSXML2 だと全角半角関係なく先頭の属性値しかヒットしないので理由が良く分からず・・（PythonとXPathの扱いが違う？） https://ai-inter1.com/xpath/ > 4.2. 任意の属性を取得（ワイルドカード）：＊(アスタリスク) > 　　　検索対象）<a class="book" id="link1" href="xxx">Python3</a> > 　　　XPath）//a[@*="link1"]

310uk

2021/11/17 23:15

ホントですね、ありがとうございます。一点、ソースに記載漏れがありました。 xmldoc.setProperty "SelectionLanguage", "XPath" で明示的にXPath指定してます。

310uk

2021/11/17 23:42

完全一致なら動きますね…contains関数の問題か… dom.SelectNodes("//*[@*='" & Text & "']")

cx20

2021/11/18 00:01

なるほど。。

310uk

2021/11/18 00:08

contains関数だけではなく、 concatやstarts-withも@*でダメでした。ちなみに、実際のプログラムで扱っているデータは最初の属性がidではないので、最初の属性ではなくidを見ちゃってる可能性がありますね。