Læse Delphi datafil

ASP classic eller ASP.NET?

Har du record formatet?

Delphi code:
Type
SalgKart=packed Record
    Del:Longint;
    Case Kartcode:SmallInt of  // denne er rettet fra Integer
      0:(FlsValbet            :String[4];
        FlsValKurs          :Real48; // denne er rettet fra Real
        FlsSalgLand          :String[25];
        FlsOpdateret        :String[18];

        (*
        FragtRate1,FragtRate2,FragtRate3,FragtMaut,FragtOliePct:Real48;
        FragtIntValKg:Array[1..6] of Integer;
        FragtIntValSats:Array[1..6] of Real48;
        FragtVal:String[3];
        FragtTransp:String[20]*)
        );

      1:(FlsSpeditor          :String[30];
        FlsSpeditorTlf      :String[15];
        FlsSpeditorEmail    :array[1..3] of String[40];
        FlsSpeditorKd        :String[1]);
      2:(FlsDistinationTst    :String[30];
        FlsDistinationTstTlf :String[15];
        FlsDistinationEmail  :array[1..3] of String[40];
        FlsDistinationTstKd  :String[1];
        FlsDistinationTstMrk :String[6]);
      3:(FlsLeverandor        :String[30];
        FlsLeverandorTlf    :String[15];
        FlsLeverandorEmail  :array[1..3] of String[40];
        FlsLeverandorKd      :String[1]);
      4:(FlsKasseLeverandor  :String[30];
        FlsKasseLeverandorTlf:String[15];
        FlsKasseLeverandorEmail :array[1..3] of String[40];
        FlsKasseleverandorKd :String[1]);
      5:(FlsLevOpl            :String[30];
        FlsLevOplTlf        :String[15];
        FlsLevOplEmail      :array[1..3] of String[40];
        FlsLevOplKd          :String[1]);
  end;

Var SalgKartRec : SalgKart;
---
Det skal være fra ASP Classic

En anden Delphi recordset

Type
Kundefil=Packed Record
                Del      :Longint;
                Kundnr    :String[8];
                Lnavn    :Array[1..4] of String[30];

                Kndmrk        :Array[0..96] of String[6];
                KndMrkSpKd    :Array[0..96] of String[1];
                KndMrkLevOplKd,
                KndMrkHjSk,
                KndMrkHjDk    :Array[0..96] of String[2];

                KndEkrBl,KndSaldo:Real48;

                LandeKode :String[2];
                Sprogkode :String[2];
                Valkode  :String[2];

                Telefon  :String[20];
                Telefax  :Array[1..3] of String[20];
                Email    :Array[1..8] of string[40];
                Betalbtg  :String[4];
                Rabat    :String[3];
                Agent    :String[3];
                Afd      :String[2];
                AntFakt  :String[2];

                KundSenr  :String[15];
                KndResv  :String[1];          (*reserve*)

                KndLevNr  :String[8];          (*Liferrantnr*)
                FragtKode :String[2];

                FragtRate :Real48;              (*Fragt pr kg*)
                MrkKode  :String[1];          (*Aut. etikkette udskrift j/n*)

                Kfk:Array[1..20] of String[1];  (*Kfk[1] = FakturaOpdeling
                                                  Kfk[2] = Labeltype
                                                  Kfk[3] = Terminalkode
                                                  Kfk[4] = Discount ovrf
                                                  Kfk[5] = Tilbagh. faktura
                                                  Kfk[6] =
                                                  Kfk[7] = J=Faktura pr Post N=Orginal faktura via email
                                                  Kfk[8] = N=Ingen factoring J=Factoring*)
              end;

Var Krec:Kundefil

Det boer kunne lade sig goere. Lad mig proeve og lave en lille test.

OK. Her er en lille demo.

Pascal kode:



VBS kode:



Det virker hos mig.

Bemaerk at det er kun en demo.

Du skal have:
* fundet ud af hvilken stoerrelse data har i din Delphi version.
* fundet ud af real48 formatet
* fundet ud af case
* fundet ud af negative integers
etc.etc.

Men demo boer give dig nogle ideer om hvordan det kan goeres.