No.3ベストアンサー
- 回答日時:
ギブアップ。
諦めた方が良いDOMはおそらく設計的にテキストファイルとして扱うことを前提としてない。(#わざわざ行番号を使って何をしたいんだろう?とは思うのだけれど)
で、SAXを眺めてたらISAXLocatorに、linenumberがあるから出来るかな、とか期待したんだけど、
http://msdn.microsoft.com/en-us/library/ms753775 …
Javaのマニュアルにあるように
http://java.sun.com/j2se/1.5.0/docs/api/org/xml/ …
ソースコードの厳密な行番号を与えるものではなく、あくまでデバッグ目的用に曖昧な番号を示すものであり、少なくともMSXMLは以下のように、属性区切り子に改行を用いたXMLの、要素の開始行番号を期待通りに返さなかった。
<data>
<item id="hoge" kekeke="gag">○○○○</item>
<item
id="fuge">
<item id="fuga">
××××
</item>
</item>
<item id="gura">△△△△</item>
</data>
=================試みたこと(役に立たないけど関心があれば)============
実行するまでは上記の挙動であることに気付かず、実装してやろうと悩んだ。
IVBSAXContentHandlerの各イベントで渡されるのはノードではなく、要素名とか属性とか、そのテキストの内容。これだけでは、他のノードを拾ってしまいかねないので
わざわざ数えてそれをIVBSAXContentHandlerを実装した独自クラスのメンバ変数に保存しておいて、イベントでカウントして、同じ数になったときに適用、というような方法を取っていた。ちゃんと一致するノードを取れているようではあったのだが、
上記の問題により断念せざるを得なかった
Set dom = New DOMDocument60
dom.async = False
dom.preserveWhiteSpace = True
Dim succeed As Boolean
succeed = dom.Load("C:\Environment\Users\WWW\OKWave\Q5696567\aaa.xml")
dom.setProperty "SelectionLanguage", "XPath"
Set element = dom.selectSingleNode("//*[@id='fuga']")
Set nodes1 = element.selectNodes("preceding::node() | ancestor::node()")
Dim x As Class1
Set x = New Class1
x.XXX = nodes1.Length
Dim y As SAXXMLReader60
Set y = New SAXXMLReader60
Set y.contentHandler = x
y.Parse (dom.XML)
わざわざ調べて頂いたみたいで、本当にありがとうございます。
XMLDOMParseErrorには、エラーの行数を返す関数があったので、出来るかと思っていましたが、難しいようですね。
ちなみに、やりたいことは、2ペインで、左が構造ツリー、右が編集エディタにして、構造ツリーをクリックすると編集エディタの頭だしをするというものです。
No.1
- 回答日時:
===========aaa.xml ちょっと改変したXML(idつけたのは要素取りやすくした以上の理由じゃない==============
<data>
<item id="hoge">○○○○</item>
<item id="fuga">××××</item>
<item id="gura">△△△△</item>
</data>
=================Excel VBAのコード(.NET支持者としてはあまりVBA触りたくないなあ)=================
Option Explicit
Sub Main()
Dim dom As DOMDocument
Dim nodelist As IXMLDOMNodeList
Dim element As IXMLDOMElement
Dim strPath As String
Set dom = New DOMDocument
dom.async = False
dom.Load ("aaa.xml")
dom.setProperty "SelectionLanguage", "XPath"
Set element = dom.selectSingleNode("//*[@id='fuga']")
Set nodelist = element.selectNodes("preceding-sibling::*")
MsgBox ("Found " & CStr(nodelist.Length + 1) & " Node") ' Found 2 Node
End Sub
'参考にしたもの:(読み込んだのは、MSXML6だけどね)
'http://support.microsoft.com/kb/288913
'selectNodesに与えるXPath式を色々変えてみるべし
'複数形のs?知らんがな
この回答への補足
ありがとうございます。
試してみましたが、これだと、要素の順番を返すみたいです。
テキストの行数(改行数?)を取得する方法はないでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
CPUの考え方を教えてください ...
-
SNMP リンクダウンとノードダ...
-
ルート要素ノードが2個ある場合?
-
同じタグ名の項目取得
-
ToolStripMenuItemのクリックイ...
-
replaceChildメソッドについて
-
あるノードリストに、特定の名...
-
VB2005 ツリービューに子ノード...
-
SNMP ステータスポーリングと...
-
C#のツリービューでツリーノー...
-
VB2005 TreeViewの任意ノード選択
-
ノードとは
-
C#でTreeViewのCheckBoxのサイ...
-
CTreeCtrlで、あるノード以下だ...
-
XSLTで固定長データファイルを...
-
XPathで途中に名前空間が設定さ...
-
ASP.NETでツリービューを作成し...
-
■XSLT■固定文字を使ったループ...
-
VBでXMLファイルを作ると xmlns...
-
特殊記号が勝手にエスケープさ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
CPUの考え方を教えてください ...
-
SNMP リンクダウンとノードダ...
-
ルート要素ノードが2個ある場合?
-
昔Winnyってありましたけど、あ...
-
C#でTreeViewのCheckBoxのサイ...
-
同じタグ名の項目取得
-
XML文書の指定した属性値を持つ...
-
複数のマックPCによる数値計算...
-
TreeView の初期表示について
-
あるノードリストに、特定の名...
-
TreeViewに重複する値をセット
-
ノードとは
-
C#のツリービューでツリーノー...
-
2分探索木の高さを求めるプロ...
-
C# TreeView 効率良いノード追...
-
TreeViewの再表示のちらつきを...
-
TreeViewで複数ノードの選択は...
-
4色定理はなぜグラフ理論で証...
-
ツリービューのノードをダブル...
-
ツリービューの使い方が・・・
おすすめ情報