今天把原先codelphi的blog迁移过来了！delphi+xml

第一篇

使用原生ms的xml解析器

2004-09-02

Procedure TFormRes.btnrunClick(Sender: TObject);
Var
SelectIntf: IDOMNodeSelect;
listIntf: IDOMNodeList;
pathstr, ss,ss1: String;
n1: integer;
Begin

Try
res := 0;
edtres.Text := ‘’;

If paramstr(1) <> ‘’ Then
Begin

pathstr := ‘//Content’; //这儿就是XPATH查询串。
xmlfile.LoadFromFile(paramstr(1));
SelectIntf := xmlfile.DOMDocument As IDOMNodeSelect;
listIntf := SelectIntf.selectNodes(pathstr);
// ShowMessage(intToStr( listIntf.length));
For n1 := 0 To listIntf.length - 1 Do Begin
If (listIntf.item[n1].childNodes[0] <> Nil) And (String(listIntf.item[n1].attributes[2].nodeValue) = ‘1′) Then Begin
ss := listIntf.item[n1].childNodes[0].nodeValue;
ss1:= Scanstr(ss);
if ss1<>'’ then
listIntf.item[n1].childNodes[0].nodeValue := ss1;
End;
edtres.Text := inttostr(res);
End;
xmlfile.SaveToFile(paramstr(1));
showmessage(’处理完成！’);

End
else
If edtfile.Text <> ‘’ Then
Begin

pathstr := ‘//Content’; //这儿就是XPATH查询串。
xmlfile.LoadFromFile (edtfile.Text);

SelectIntf := xmlfile.DOMDocument As IDOMNodeSelect;
listIntf := SelectIntf.selectNodes(pathstr);
// ShowMessage(intToStr( listIntf.length));
For n1 := 0 To listIntf.length - 1 Do Begin
If (listIntf.item[n1].childNodes[0] <> Nil) And (String(listIntf.item[n1].attributes[2].nodeValue) = ‘1′) Then Begin
ss := listIntf.item[n1].childNodes[0].nodeValue;
ss1:= Scanstr(ss);
if ss1<>'’ then
listIntf.item[n1].childNodes[0].nodeValue := ss1;
End;
edtres.Text := inttostr(res);
End;
xmlfile.SaveToFile(edtfile.Text);
xmlfile.Destroy;;
showmessage(’处理完成！’);
End;
Finally
End;

End;

Function TFormRes.Scanstr(str: String): String;
Const
localfile = ’src’;

Var
tt,kk,str1,str2: String; //str1暂存剩余部分
pp, index, ipath: integer;
newflag:boolean;
Begin
//定位
str2:='’;
pp := pos(localfile, str);
str1:=str;
newflag:=false;

While pp > 0 Do Begin
If pp > 0 Then Begin
if copy(str1,pp+5,5)=’$PATH’ then
begin
newflag:=true;
break;
end;
For index := pp +5 To length(str1) Do
If str1[index] = ‘”‘ Then
break;
tt := copy(str1, pp+5 , index - pp-5); //get filepath
ipath := length(tt);
if ipath>0 then
While (tt[ipath] <> ‘/’) and (tt[ipath] <> ‘/’) and (ipath>0) Do
ipath := ipath - 1;
kk := copy(tt, ipath + 1, length(tt) - ipath + 1); //get filename
str2 := str2+copy(str1, 0, pp+4) + ‘$PATH’ + kk;
str1:= copy(str1, index, length(str1) - index);
res := res + 1;
End;
pp := pos(localfile, str1);
if pp=0 then str2:=str2+str1;
End;
if newflag then
result:=str
else
result:=str2;

End;