Delphi dicas

Ler arquivo ofx. (

Exemplo:                                                -//



var

YMOFXReader1: TYMOFXReader;

i:integer;

begin

        YMOFXReader1:= TYMOFXReader.create(self);

        YMOFXReader1.OFXFile := 'C:Documents and SettingsmarceloDesktopcc_20070817.ofc';

        YMOFXReader1.Process;

        ListBox1.Clear;

        for i := 0 to YMOFXReader1.Count-1 do

        begin

                ListBox1.Items.Add(YMOFXReader1.Get(i).Desc + ' ' +

                FloatToStr(YMOFXReader1.Get(i).Value) + ' ' +

                YMOFXReader1.Get(i).MovType + ' ' +

                dateToStr(YMOFXReader1.Get(i).MovDate) + ' ' +

                YMOFXReader1.Get(i).ID + ' ' +

                YMOFXReader1.Get(i).Document + ' '  );

        end;



        unit YMOFXReader;



        interface



        uses classes, SysUtils, Controls;



        type

                TOFXItem = class

                MovType : string;

                MovDate : TDate;

                Value : double;

                ID : string;

                Document : string;

                Desc : string;

        end;



        TYMOFXReader = class(TComponent)

        public

        BankID : integer;

        AccountID : string;

        AccountType : string;

        InitialBalance : double;

        FinalBalance : double;

        constructor Create( AOwner: TComponent ); override;

        destructor Destroy; override;

        function Process: boolean;

        function Get(iIndex: integer): TOFXItem;

        function Count: integer;

        private

        FOFXFile : string;

        FListItems : TList;

        procedure Clear;

        procedure Delete( iIndex: integer );

        function Add: TOFXItem;

        function PrepareFloat( sString : string ) : string;

        function InfLine ( sLine : string ): string;

        function FindString ( sSubString, sString : string ): boolean;

        function ReplaceString(sString: string; sOld: string; sNew: string; bInsensitive : boolean = true): string;

        protected

        published

        property OFXFile: string read FOFXFile write FOFXFile;

end;



procedure Register;



implementation



constructor TYMOFXReader.Create(AOwner: TComponent);

begin

        inherited Create(AOwner);

        FListItems := TList.Create;

end;



destructor TYMOFXReader.Destroy;

begin

        FListItems.Free;

        inherited Destroy;

end;



procedure TYMOFXReader.Delete( iIndex: integer );

begin

        TOFXItem(FListItems.Items[iIndex]).Free;

        FListItems.Delete( iIndex );

end;



procedure TYMOFXReader.Clear;

//var

//  i: integer;

//  oPointer : Pointer;

begin

        while FListItems.Count > 0 do

        Delete(0);

        FListItems.Clear;

end;



function TYMOFXReader.Count: integer;

begin

        Result := FListItems.Count;

end;



function TYMOFXReader.Get(iIndex: integer): TOFXItem;

begin

        Result := TOFXItem(FListItems.Items[iIndex]);

end;



function TYMOFXReader.Process: boolean;

var

oFile : TStringList;

i : integer;

bOFX : boolean;

oItem : TOFXItem;

sLine : string;

dBalance : double;

begin

        Result := false;

        Clear;

        bOFX := false;

        if not FileExists(FOFXFile) then

        exit;

        oFile := TStringList.Create;

        oFile.LoadFromFile(FOFXFile);

        dBalance := 0;

        i := 0;

        while i < oFile.Count do

        begin

                sLine := oFile.Strings[i];

                if FindString('', sLine) then

                bOFX := true;

                if bOFX then

                begin

                        // -----------------------------------------------------------------------

                        // BankID

                        if FindString('', sLine) then BankID := StrToIntDef(InfLine(sLine), 0);

                        // -----------------------------------------------------------------------

                        // AccountID

                        if FindString('', sLine) then AccountID := InfLine(sLine);

                        // -----------------------------------------------------------------------

                        // AccountType

                        if FindString('', sLine) then AccountType := InfLine(sLine);

                        // -----------------------------------------------------------------------

                        // FinalBalance

                        if FindString('', sLine) then FinalBalance := StrToFloat(PrepareFloat(InfLine(sLine)));

                        // -----------------------------------------------------------------------

                        // Moviment

                        if FindString('', sLine) then

                        begin

                                oItem := Add;

                                Inc(i);

                                sLine := oFile.Strings[i];

                                if FindString('',  sLine) then oItem.MovType := InfLine(sLine);

                                Inc(i);

                                sLine := oFile.Strings[i];

                                if FindString('', sLine) then oItem.MovDate := EncodeDate(StrToIntDef(copy(InfLine(sLine),1,4), 0),

                                StrToIntDef(copy(InfLine(sLine),5,2), 0),

                                StrToIntDef(copy(InfLine(sLine),7,2), 0));

                                Inc(i);

                                sLine := oFile.Strings[i];

                                if FindString('',   sLine) then

                                begin

                                        oItem.Value := StrToFloat(PrepareFloat(InfLine(sLine)));

                                        dBalance := dBalance - oItem.Value;

                                end;

                                Inc(i);

                                sLine := oFile.Strings[i];

                                if FindString('',    sLine) then oItem.ID := InfLine(sLine);

                                Inc(i);

                                sLine := oFile.Strings[i];

                                if FindString('',   sLine) then oItem.Document := InfLine(sLine);

                                Inc(i);

                                sLine := oFile.Strings[i];

                                if FindString('',     sLine) then oItem.Desc := InfLine(sLine);

                                //        end;

                        end;

                        // -----------------------------------------------------------------------

                end;

                Inc(i);

        end;

        InitialBalance := FinalBalance + dBalance;

        Result := bOFX;

end;



function TYMOFXReader.PrepareFloat( sString : string ) : string;

begin

        Result := sString;

        Result := ReplaceString(Result, '.', DecimalSeparator);

        Result := ReplaceString(Result, ',', DecimalSeparator);

end;



function TYMOFXReader.ReplaceString(sString: string; sOld: string; sNew: string; bInsensitive : boolean = true): string;

var

iPosition: integer ;

sTempNew: string ;

begin

        iPosition := 1;

        sTempNew := '';

        while (iPosition > 0) do

        begin

                if bInsensitive then

                iPosition := AnsiPos(UpperCase(sOld),UpperCase(sString))

                else

                iPosition := AnsiPos(sOld,sString);

                if (iPosition > 0) then

                begin

                        sTempNew := sTempNew + copy(sString, 1, iPosition - 1) + sNew;

                        sString := copy(sString, iPosition + Length(sOld), Length(sString) );

                end;

        end;

        sTempNew := sTempNew + sString;

        Result := (sTempNew);

end;



function TYMOFXReader.InfLine ( sLine : string ): string;

var

iTemp : integer;

begin

        Result := '';

        sLine := Trim(sLine);

        if FindString('>', sLine) then

        begin

                sLine := Trim(sLine);

                iTemp := Pos('>', sLine);

                Result := copy(sLine, iTemp+1, Length(sLine)-iTemp+1);

        end;

end;



function TYMOFXReader.Add: TOFXItem;

var

oItem : TOFXItem;

begin

        oItem := TOFXItem.Create;

        FListItems.Add(oItem);

        Result := oItem;

end;



function TYMOFXReader.FindString ( sSubString, sString : string ): boolean;

begin

        Result := Pos(UpperCase(sSubString), UpperCase(sString)) > 0;

end;



procedure Register;

begin

        RegisterComponents('YoungArts', [TYMOFXReader]);

end;



end.

por : Marcelo Teixeira