Hogy tudnám megkeresni PASCAL-ban egy szövegben található szóközök helyét?

Miután megvan a szóköz az előtte lévő részt kivágod. (másolás aztán törlés)

Ezt addig ismétled, amíg van szóköz a stringedben.

G.

Free Pascal alatt használhatod az ExtractStrings eljárást is.

Például:

Legyen a bemenet egy BE.TXT fájl az alábbi tartalommal:

1 2 3 4 5 6 7 8 9 10

3 4 5 8 9 10

6 7 8 9 10

1 2 3 4 5 6 7

Irassuk ki a fájl tartalmát úgy, hogy egy sorba csak 3 darab szám kerüljön. Ehhez használható az alábbi program:

program szamdarabol;

{$mode objfpc}{$H+}

uses Classes, Sysutils;

var

befajl: TStringlist;

kimenet: TStringlist;

i: integer;

begin

Befajl:=TStringList.Create;

Befajl.LoadFromFile('BE.TXT');

Kimenet:=TStringList.Create;

ExtractStrings([' '],[],pChar(Befajl.Text),kimenet);

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

begin

if (i<>0) and ((i mod 3)=0) then writeln();

write(Kimenet[i],' ');

end;

Befajl.Clear;

Befajl.Free;

Kimenet.Clear;

Kimenet.Free;

end.

A példában az ExtractStrings paraméterül kapja a teljes szövegfájl tartalmát, amit a szóközök mentén (és sorvége jelek mentén) feldarabol és egy Stringlistben ad vissza.