fscanf in Delphi?

[c113plpbr]

Hi DP'ler,

ich bin grad am übersetzen eines C-Quellcodes, und bin an fscanf hängengeblieben. Die Frage die ich mir stelle ist, ob es etwas ähnliches auch in Delphi gibt? Also das Einlesen von formatierten (mit tab-getrennten) daten (aus einer Datei/Filestream)?

Oder als alternative, gibt es eine art "umkehrfunktion" von Format?

ciao & thx, Philipp

[DGL-luke]

tab ist docch #13, oder?

Delphi-Quellcode:

function readfilebytabs(filename:string):TStrings;
var f:file of widestring; s:string;
begin
result:=Tstringlist.create;
assignfile(f,filename);
reset(f)
while not eof(f) do
 begin
  read(f,s);
  result.deliminator:=#13;
  result.delimitedtext:=s;
 end;
closefile(f);
end;

ich weiss, dass das weder elegant noch performant ist, aber es sollte funktionieren.

edit: das closefile nicht vergessen...

[c113plpbr]

Zitat:

Zitat von DGL-luke

tab ist docch #13, oder?

Nein, tab ist #9
#13 ist enter/neue zeile

Zitat:

Zitat von DGL-luke

ich weiss, dass das weder elegant noch performant ist, aber es sollte funktionieren.

Hmm ... ich werds mir mal anschauen ... dennoch wäre das ne mordsarbeit bei sowas:

Code:

fscanf(inf,"%i%i%i%i%i%s%s%i%s%s%s%i%i%i%i%i%i%i%i%i\n", &j,&j,&j,&j,&j, nam, nam1, &j, s9, s10, s11, &j,&j, &j,&fmedian,&fmean,&fsd,&bmedian,&bmean,&bsd);

ciao, Philipp

[DGL-luke]

was isn das für ne syntax :shock:

sag mir doch mal kurz die definition von fscanf...

[Luckie]

Das ist C.

Noch ein Tipp: Explode.

[c113plpbr]

Zitat:

Zitat von Luckie

Noch ein Tipp: Explode.

Schön, danke, ich glaube das ist genau das was ich suche ... ^^

Zitat:

Zitat von DGL-luke

sag mir doch mal kurz die definition von fscanf...

fscanf

ciao & thx, Philipp

[DGL-luke]

Zitat:

Zitat von Luckie

Das ist C.

is mir klar, nur so ne monster-parameterliste kam mir halt ungeheuer vor... :pale:

Zitat:

Noch ein Tipp: Explode.

:wall: :wall: :wall:

und das mir, der ich schon einmal selbst eine explode-funktion geschrieben habe...