関連記事
- 【#マイナンバー】マイナンバーカード、全病院で保険証に 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;
コメント
外は1℃しか無いぞー真冬キター(24/12/9)
【訃報】俳優 中山美穂さん死去 54歳 東京・渋谷の自宅で 警視庁
【#閃輝暗点】閃輝暗点が始まった!いつもどおり目が見えなくなってるー(汗
【#イプシロン】イプシロンSロケット 燃焼試験中に爆発事故発生
あっちもこっちも風邪が流行ってるの.外に出たら感染する勢い!
【訃報】俳優 火野正平さん死去 75歳
【地震】日向灘でM4.4の地震
【#第三次世界大戦】ウクライナ空軍 “ICBM1発がロシア南部から発射された”
司法省 “グーグルはクローム売却を” 裁判所に要求へ 米報道
最近,仕事がずっと激しい...ドロドロドロ