XMLコミュのすいません　　教えてください

初めての書き込みで、いきなり質問することをお許しください。

今、企業研修中なのですが、基本的にWSHを使用し、VBSを使って記述しているのですが、今の課題で困ってます。

皆様の力をお貸し頂けないでしょうか？

今、メッセンジャーのログを発言者毎に分けてTextファイルで保存しなさいと言う事です。

Dim objXML, fileXML
Dim node, item, mesg
Dim objFileSys

fileXML = "utakatadream3564013864.xml"

Set objXML = WScript.CreateObject("Microsoft.XMLDOM")
Set objFileSys = CreateObject("Scripting.FileSystemObject")

objXML.load(fileXML)

For Each node In objXML.getElementsByTagName("Message")
mesg = ""
id = node.getAttribute("SessionID")

For Each item In node.childNodes
If mesg <> "" Then
mesg = mesg & " : "
End If
mesg = mesg & item.nodeName & ":" & item.firstChild.nodeValue
Next

WScript.Echo mesg

Next

この記述で子要素のTextデータは出るのですが、孫要素の名前等が出てきてくれません。

多分自分の調べ方が悪いと思いますが、良いサイト等があれば教えて頂ければ幸いです。

ソースを教えて頂けたら幸いです。

この課題で既に３日使ってしまっているので･･･

コメント(2)

最初
全て
最新の40件

[1] mixiユーザー 02月03日 17:22

解決しましたか？研修を丸投げしてしまっては意味がありません。釣りかと思いました。
同期と話し合う、先輩もしくは講師に質問する、方法はあるはずです。

……と、苦言はこれくらいにして、メッセンジャーのログって XML 形式なのですね。
メッセンジャーのログは残さない主義でしたので、初めて知りました。
仕様書はあるのでしょうか？ XML Schema や DTD 探しても見つかりませんでした。
というわけで、適当に書いてみました。敢えて解説はしません。
http://d.hatena.ne.jp/kageroh_/20090203/1233649213

ちなみに、ソルさんのコードを活かすなら、多重ループすれば孫要素も取得できます。
関数は習いましたか？「再帰」などをキーワードに調べてみてください。

[2] mixiユーザー 02月04日 01:36

ありがとうございますm(__)m

一応解決はしたのですが、色々なやり方を知りたいので、また参考にさせて頂きますm(__)m

ＸＭＬは全くとＷＳＨは全く習ってないので、これから勉強していこうと思います