File – 蓝天白云

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StrUtils;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  function FindFlatFileInParentDir(curPath, sFile: string): string;
  function FindFlatFile(curPath, sFile: string): string;

implementation

{$R *.dfm}

function FindFlatFileInParentDir(curPath, sFile: string): string;
var
  pntPath: string;
  FilePath: string;
  I: Integer;
begin
  pntPath := curPath;

  While true do begin
    FilePath := FindFlatFile(pntPath, sFile);
    if FilePath <> '' then begin
      Result := FilePath;
      Break;
    end else begin
      if Length(pntPath) <= 3 then Break;

      if RightStr(pntPath, 1) = '' then
        Delete(pntPath, length(pntPath), 1);

      for I := Length(pntPath) downto 1 do begin
        if pntPath[I] = '' then begin
          Delete(pntPath, I, Length(pntPath));
          Break;
        end;
      end;
    end;
  end;
end;

function FindFlatFile(curPath, sFile: string): string;
var
  sRec: TSearchRec;
  sRetCode: Integer;
  sPath: string;
begin
  FillChar(sRec, SizeOf(sRec), #0);
  sPath := curPath;
  if RightStr(sPath, 1) <> '' then
    sPath := sPath + '';
  sRetCode := FindFirst(sPath + '*.*', faAnyFile, sRec);
  While sRetCode = 0 do begin
    if (sRec.Attr and not faDirectory = 0) and (sRec.Name <> '.') and (sRec.Name <> '..') then
      Result := FindFlatFile(sPath + sRec.Name, sFile)
    else begin
      if AnsiEndsText(sRec.Name, sFile) then begin
        Result := sPath + sRec.Name ;
        Break;
      end else begin

      end;
    end;

    sRetCode := FindNext(sRec);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := FindFlatFileInParentDir(Edit1.Text, Edit2.Text);
end;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, StrUtils;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

function FindFlatFileInParentDir(curPath, sFile: string): string;

function FindFlatFile(curPath, sFile: string): string;

implementation

{$R *.dfm}

function FindFlatFileInParentDir(curPath, sFile: string): string;

var

pntPath: string;

FilePath: string;

I: Integer;

begin

pntPath := curPath;

While true do begin

FilePath := FindFlatFile(pntPath, sFile);

if FilePath <> '' then begin

Result := FilePath;

Break;

end else begin

if Length(pntPath) <= 3 then Break;

if RightStr(pntPath, 1) = '' then

Delete(pntPath, length(pntPath), 1);

for I := Length(pntPath) downto 1 do begin

if pntPath[I] = '' then begin

Delete(pntPath, I, Length(pntPath));

Break;

end;

function FindFlatFile(curPath, sFile: string): string;

var

sRec: TSearchRec;

sRetCode: Integer;

sPath: string;

begin

FillChar(sRec, SizeOf(sRec), #0);

sPath := curPath;

if RightStr(sPath, 1) <> '' then

sPath := sPath + '';

sRetCode := FindFirst(sPath + '*.*', faAnyFile, sRec);

While sRetCode = 0 do begin

if (sRec.Attr and not faDirectory = 0) and (sRec.Name <> '.') and (sRec.Name <> '..') then

Result := FindFlatFile(sPath + sRec.Name, sFile)

else begin

if AnsiEndsText(sRec.Name, sFile) then begin

Result := sPath + sRec.Name ;

Break;

end else begin

end;

sRetCode := FindNext(sRec);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Caption := FindFlatFileInParentDir(Edit1.Text, Edit2.Text);

end;

end.

原来用Delphi处理XML文件就感觉头疼，不知道该用哪种方法比较好，现在将方法总结如下：

本文中演示用到的XML文件

<?xml version="1.0" encoding="utf-8"?>
<UserList>
	<User Name="Liu" ID="1">
		<Website><![CDATA[http://svn1.bcoder.com]]></Website>
		<Intro>I come from hebei.</Intro>
	</User>
	<User Name="Zhang" ID="2">
		<Website><![CDATA[http://www.desktoptool.net]]></Website>
		<Intro>I come from Shandong.</Intro>
	</User>
</UserList>

<?xml version="1.0" encoding="utf-8"?>

<Intro>I come from hebei.</Intro>

</User>

<Intro>I come from Shandong.</Intro>

</User>

</UserList>

1. 使用msxml

msxml实际上是Delphi导入的Windows的msxml2.dll，所以最终是使用的windows的方法去解析的xml文件。在PHP中对XML的解析也是用的MSXML，与Delphi的各函数都非常的类似。使用时需要在uses中加入mshtml。读取XML文件的代码

procedure TForm1.LoadXML(XMLStr: string);
var
  xmldoc: IXMLDOMDocument;
  rNode, usrNode: IXMLDOMNode;
  I: Integer;
begin
  xmldoc := CoDOMDocument.Create;
  //可以使用下面这个函数从文件中加载XML
  //xmldoc.load('e:/user.txt');
  xmldoc.loadXML(XMLStr);

  rNode := xmldoc.selectSingleNode('UserList');
  if rNode &lt;&gt; nil then begin
    for I := 0 to rNode.childNodes.length - 1 do begin
      usrNode := rNode.childNodes[I];
      if usrNode.nodeName = 'User' then begin
        Memo2.Lines.Add('Name: ' + usrNode.attributes.getNamedItem('Name').text);
        Memo2.Lines.Add('ID: ' + usrNode.attributes.getNamedItem('ID').text);
        if usrNode.selectSingleNode('Website') &lt;&gt; nil then
          Memo2.Lines.Add('Website: ' + usrNode.selectSingleNode('Website').text);
        if usrNode.selectSingleNode('Intro') &lt;&gt; nil then
          Memo2.Lines.Add('Intro: ' + usrNode.selectSingleNode('Intro').text);

        Memo2.Lines.Add('');
      end;
    end;
  end;

  xmldoc := nil;
end;

procedure TForm1.LoadXML(XMLStr: string);

var

xmldoc: IXMLDOMDocument;

rNode, usrNode: IXMLDOMNode;

I: Integer;

begin

xmldoc := CoDOMDocument.Create;

//可以使用下面这个函数从文件中加载XML

//xmldoc.load('e:/user.txt');

xmldoc.loadXML(XMLStr);

rNode := xmldoc.selectSingleNode('UserList');

if rNode <> nil then begin

for I := 0 to rNode.childNodes.length - 1 do begin

usrNode := rNode.childNodes[I];

if usrNode.nodeName = 'User' then begin

Memo2.Lines.Add('Name: ' + usrNode.attributes.getNamedItem('Name').text);

Memo2.Lines.Add('ID: ' + usrNode.attributes.getNamedItem('ID').text);

if usrNode.selectSingleNode('Website') <> nil then

Memo2.Lines.Add('Website: ' + usrNode.selectSingleNode('Website').text);

if usrNode.selectSingleNode('Intro') <> nil then

Memo2.Lines.Add('Intro: ' + usrNode.selectSingleNode('Intro').text);

Memo2.Lines.Add('');

end;

xmldoc := nil;

end;

写XML文件的代码

procedure TForm1.UpdateXml(XMLStr: string);
var
  xmldoc: IXMLDOMDocument;
  rNode, usrNode, webNode, introNode, commentNode: IXMLDOMNode;
  newAttr: IXMLDOMAttribute;
begin
  xmldoc := CoDOMDocument.Create;
  //可以使用下面这个函数从文件中加载XML
  //xmldoc.load('e:/user.txt');
  xmldoc.loadXML(XMLStr);
  rNode := xmldoc.selectSingleNode('UserList');
  if rNode &lt;&gt; nil then begin
    usrNode := xmldoc.createElement('User');
    // 如果是下面这种方式创建的NODE，则该NODE不支持一些方法，比如attributes.setNamedItem
    // 因为这种方法创建的NODE的attributes为nil
    //usrNode := xmldoc.createTextNode('User');
    rNode.appendChild(usrNode);
    newAttr := xmldoc.createAttribute('Name');
    newAttr.nodeValue := 'Chen';
    usrNode.attributes.setNamedItem(newAttr);

    newAttr := xmldoc.createAttribute('ID');
    newAttr.nodeValue := '3';
    usrNode.attributes.setNamedItem(newAttr);

    webNode := xmldoc.createElement('Website');
    webNode.appendChild(xmldoc.createCDATASection('http://www.google.com'));
    usrNode.appendChild(webNode);

    introNode := xmldoc.createElement('Intro');
    introNode.appendChild(xmldoc.createTextNode('I come from TianJin.'));
    usrNode.appendChild(introNode);

    commentNode := xmldoc.createElement('Comment');
    commentNode.appendChild(xmldoc.createComment('This is a comment!'));
    usrNode.appendChild(commentNode);
  end;

  xmldoc.save('E:user.xml');
  xmldoc := nil;
end;

procedure TForm1.UpdateXml(XMLStr: string);

var

xmldoc: IXMLDOMDocument;

rNode, usrNode, webNode, introNode, commentNode: IXMLDOMNode;

newAttr: IXMLDOMAttribute;

begin

xmldoc := CoDOMDocument.Create;

//可以使用下面这个函数从文件中加载XML

//xmldoc.load('e:/user.txt');

xmldoc.loadXML(XMLStr);

rNode := xmldoc.selectSingleNode('UserList');

if rNode <> nil then begin

usrNode := xmldoc.createElement('User');

// 如果是下面这种方式创建的NODE，则该NODE不支持一些方法，比如attributes.setNamedItem

// 因为这种方法创建的NODE的attributes为nil

//usrNode := xmldoc.createTextNode('User');

rNode.appendChild(usrNode);

newAttr := xmldoc.createAttribute('Name');

newAttr.nodeValue := 'Chen';

usrNode.attributes.setNamedItem(newAttr);

newAttr := xmldoc.createAttribute('ID');

newAttr.nodeValue := '3';

usrNode.attributes.setNamedItem(newAttr);

webNode := xmldoc.createElement('Website');

webNode.appendChild(xmldoc.createCDATASection('http://www.google.com'));

usrNode.appendChild(webNode);

introNode := xmldoc.createElement('Intro');

introNode.appendChild(xmldoc.createTextNode('I come from TianJin.'));

usrNode.appendChild(introNode);

commentNode := xmldoc.createElement('Comment');

commentNode.appendChild(xmldoc.createComment('This is a comment!'));

usrNode.appendChild(commentNode);

end;

xmldoc.save('E:user.xml');

xmldoc := nil;

end;

用此方法生成的XML文件没有被格式化，即不是一个NODE一行，如果需要格式化输入，需要使用SaxWriter输出到文件。
另外还有一些其他比较有意思的方法，如：cloneNode，以后应该能用得到。

2. 使用TXmlDocument读写XML

读取XML文件

procedure TForm1.LoadXmlDoc(XmlStr: string);
var
  rNode: IXMLNode;
  I: Integer;
begin
  XMLDocument1.LoadFromXML(Memo1.Text);
  rNode := XMLDocument1.ChildNodes.FindNode('UserList');
  if rNode &lt;&gt; nil then begin
    for I := 0 to rNode.ChildNodes.Count - 1 do begin
      if rNode.ChildNodes[I].Attributes['Name'] &lt;&gt; null then
        Memo2.Lines.Add('Name: ' + rNode.ChildNodes[I].Attributes['Name']);
      if rNode.ChildNodes[I].Attributes['ID'] &lt;&gt; null then
        Memo2.Lines.Add('ID: ' + rNode.ChildNodes[I].Attributes['ID']);

      if rNode.ChildNodes[I].ChildNodes.FindNode('Website') &lt;&gt; nil then
        Memo2.Lines.Add('WebSite: ' + rNode.ChildNodes[I].ChildNodes.FindNode('Website').Text);
      if rNode.ChildNodes[I].ChildNodes.FindNode('Intro') &lt;&gt; nil then
        Memo2.Lines.Add('Intro: ' + rNode.ChildNodes[I].ChildNodes.FindNode('Intro').Text);

      memo2.Lines.Add('');
    end;
  end;
end;

procedure TForm1.LoadXmlDoc(XmlStr: string);

var

rNode: IXMLNode;

I: Integer;

begin

XMLDocument1.LoadFromXML(Memo1.Text);

rNode := XMLDocument1.ChildNodes.FindNode('UserList');

if rNode <> nil then begin

for I := 0 to rNode.ChildNodes.Count - 1 do begin

if rNode.ChildNodes[I].Attributes['Name'] <> null then

Memo2.Lines.Add('Name: ' + rNode.ChildNodes[I].Attributes['Name']);

if rNode.ChildNodes[I].Attributes['ID'] <> null then

Memo2.Lines.Add('ID: ' + rNode.ChildNodes[I].Attributes['ID']);

if rNode.ChildNodes[I].ChildNodes.FindNode('Website') <> nil then

Memo2.Lines.Add('WebSite: ' + rNode.ChildNodes[I].ChildNodes.FindNode('Website').Text);

if rNode.ChildNodes[I].ChildNodes.FindNode('Intro') <> nil then

Memo2.Lines.Add('Intro: ' + rNode.ChildNodes[I].ChildNodes.FindNode('Intro').Text);

memo2.Lines.Add('');

end;

写XML文件

procedure TForm1.UpdateXmlDoc(XmlStr: string);
var
  rNode, usrNode, webNode, IntroNode: IXMLNode;
  I: Integer;
begin
  XMLDocument1.LoadFromXML(Memo1.Text);
  XMLDocument1.Active := True;
  // 使用属性自动格式生成 的XML文件
  //XMLDocument1.Options := XMLDocument1.Options + [doNodeAutoIndent];
  rNode := XMLDocument1.ChildNodes.FindNode('UserList');
  if rNode &lt;&gt; nil then begin
    usrNode := rNode.AddChild('User');
    usrNode.SetAttributeNS('Name', '', 'Zhang');
    usrNode.SetAttributeNS('ID', '', '3');

    webNode := usrNode.AddChild('WebSite');
    webNode.NodeValue := 'http://www.google.com';

    IntroNode := usrNode.AddChild('Intro');
    IntroNode.NodeValue := 'I come from TianJin.';
  end;
  XMLDocument1.SaveToFile('E:user.xml');
end;

procedure TForm1.UpdateXmlDoc(XmlStr: string);

var

rNode, usrNode, webNode, IntroNode: IXMLNode;

I: Integer;

begin

XMLDocument1.LoadFromXML(Memo1.Text);

XMLDocument1.Active := True;

// 使用属性自动格式生成的XML文件

//XMLDocument1.Options := XMLDocument1.Options + [doNodeAutoIndent];

rNode := XMLDocument1.ChildNodes.FindNode('UserList');

if rNode <> nil then begin

usrNode := rNode.AddChild('User');

usrNode.SetAttributeNS('Name', '', 'Zhang');

usrNode.SetAttributeNS('ID', '', '3');

webNode := usrNode.AddChild('WebSite');

webNode.NodeValue := 'http://www.google.com';

IntroNode := usrNode.AddChild('Intro');

IntroNode.NodeValue := 'I come from TianJin.';

end;

XMLDocument1.SaveToFile('E:user.xml');

end;

注意事项：

各种Delphi搜索文件的代码

Delphi操作xml文件的各种方法总结

1. 使用msxml

2. 使用TXmlDocument读写XML