関連記事
- 【#マイナンバー】マイナンバーカード、全病院で保険証に 21年3月から 【2019年02月14日(木)】
- Delphi5をWindows7 64ビット環境に突っ込んでみた 【2011年01月15日(土)】
- 【C#】XmlDocument.CreateElement()を使うとPrefixを出力しない不具合があるらしい 【2010年12月24日(金)】
- 電子カルテ,下り電文のテストがオワタ 【2010年12月15日(水)】
- NET FRAMEWORKのソケット通信 【2010年11月30日(火)】
必要に迫られて,書き起こしてみた
悔いは無い(爆
また,どっかでこの手の追っかけ部,実装作業があったときの
自分自身のサンプル用に
次はC#辺りで,やりそう
なお,どことなく,ORCA~Claimの香りがするのは気のせいではない(笑
//********************************************** //指定ノードの検索(再帰利用) // //nd : 検索開始点のノード (IXMLDOMNode) //ndName : 検索対象のノード名称 // //return : 見つけたノードオブジェクト(見つからなかったらnull) //********************************************** function TClaimInput.SearchNode(nd: IXMLDOMNode; ndName: string): IXMLDOMNode; var i : integer; st : string; begin result := nil; for i := 0 to nd.childNodes.Get_length - 1 do begin st := nd.childNodes.item[i].Get_nodeName(); if st = ndName then begin result := nd.childNodes.item[i]; end else begin result := SearchNode(nd.childNodes.item[i], ndName); end; if result <> nil then begin break; end; end; end; //********************************************** //指定ノードの検索(再帰利用)(Overload) // //nd : 検索開始点のノード (IXMLDOMNode) //ndName : 検索対象のノード名称 //attrName : 検索対象のノード属性名称 //attrVal : 検索対象のノード属性値 // //return : 見つけたノードオブジェクト(見つからなかったらnull) //********************************************** function TClaimInput.SearchNode(nd: IXMLDOMNode; ndName: string; attrName : string; attrVal : string): IXMLDOMNode; var i : integer; j : integer; stn : string; stv : string; fl : boolean; begin result := nil; for i := 0 to nd.childNodes.Get_length - 1 do begin fl := false; stn := nd.childNodes.item[i].Get_nodeName(); if stn = ndName then begin for j := 0 to nd.childNodes.item[i].attributes.Get_length - 1 do begin stn := nd.childNodes.item[i].attributes.item[j].Get_nodeName(); stv := nd.childNodes.item[i].attributes.item[j].Get_text(); if (stn = attrName) and (stv = attrVal) then begin fl := true; break; end; end; end; if fl = true then begin result := nd.childNodes.item[i]; end else begin result := SearchNode(nd.childNodes.item[i], ndName, attrName, attrVal); end; if result <> nil then begin break; end; end; end; //********************************************** //指定ノードの1層上のノードを返す // //nd : 検索開始点のノード (IXMLDOMNode) // //return : 一個上位のノードオブジェクト //********************************************** function TClaimInput.SearchNodeParent(nd: IXMLDOMNode): IXMLDOMNode; begin result := nd.Get_parentNode; end;
コメント
九州自動車道 トンネル内で大型トレーラーから出火 人吉~八代間で通行止め(24/7/26)
【#ご到着シリーズ】冷凍かしわ飯&冷凍かしわうどんセットに当選したモルモルモル
【#破局噴火】イエローストーンで大規模な水蒸気爆発が発生
暑すぎてダレてる.なんのやる気も起こらんドロドロドロ
【#Windows #CrowdStrike】セキュリティーソフト世界シェア1位があだ…ウィンドウズ障害、「過去最大規模」の見方も
3連休,らしい.これといって予定はない(爆
【#trump #shooting】トランプ暗殺未遂:トランプ氏 集会で発砲音「前大統領は無事」死者も
【#線状降水帯】九州北部山口県に線状降水帯発生予測情報発令(24/7/13)
【#落雷】今朝の雷,すごかったー 清武城かお隣のマンションに落雷したー共用部の電源落ちてるテレビが映らない!
【#彗星】紫金山アトラス彗星(C/2023 A3)がぶっ壊れた!今秋,見れると思ってたのにピエン