Turbo Pascal DOS læse data fra text fil

BlockRead/BlockWrite !?

har du et eks. der virker ? (uden records)

Stoney

Ikke lige ved hånden. Du skriver "uden records" hvorfor? hvad vil du opnå?

Hvis det er fordi du vil undgå "fixed length records" (poster med fast størrelse og dermed pre-defineret størrelse på Key1, Key2 og LangKey3) så vil BlockRead/BlockWrite heller ikke "virke".

Hvis du ikke har et problem med "fixed length records" så kan du bruge Seek til at "springe" til et bestemt sted i filen og via BlockRead/Write kan du læse/skrive et antal bytes. Husk dog når du opretter/åbner filen med Rewrite/Reset skal du angive en "record størrelse" (hvis du ikke sætter den til 1 forventer Pascal at den er 64K - hvis jeg husker korrekt). Du skal således bruge: "Reset(FileVar, 1)" og "Rewrite(FileVar, 1)". Selve filen skal bare være en File (altså ikke en "TextFile" eller "File of ...").

function GetVal(MyFile, MyKey: string): string;
var
  f: textfile;
  s: string;
begin
  assignfile(f, Myfile);
  reset(f);
  result:='';
  while not eof(f) do
    begin
    readln(f, s);
    if copy(s,1,length(mykey))=mykey then
        result=copy(s, pos('=',s) + 1, pos(#13,s)-pos('=',s)+1);

    end;
end;


Ingen kompiler her - har ikke testet det men det kunne vel være noget i den retning. Returnerer såadan cirka dit value som string. Tilpasses let til dit format.

yates: med lidt tilretninger lykkedes det.
Tak for hjælpen, ligger du et svar ?

Stoney

Hej, jeg samler ikke på point. Bare glad at kunne hjælpe lidt. Og som du selv sagde, det skulle lige repareres lidt. Husk forresten closefile(f).

Y.