BAT-ohjelmointi

For ei ole funktio.

Kannattaisi muutenkin varmaan tehä vaikka C:llä.

Lazarus on erittäin hyvä jos haluat tehdä nopeasti graafisella käyttöliittymällä varustetun ohjelman (saatavilla moniin käyttöjärjestelmiin).

Tuon voi tehdä Lazaruksella monin tavoin tässä yksi esim:

...
function lueTieto( TiedostonNimi, aluntunniste, lopuntunniste:string):string;
var
sl:TStringList;
s: string;
i: integer;
begin
sl := TStringList.Create ;
sl.LoadFromFile( TiedostonNimi );
s := sl.text;
FreeAndNil( sl );
i := ansipos( aluntunniste, s) length( aluntunniste );
Delete(s, 1, i-1 );
i := ansipos( lopuntunniste, s);
result := copy( s, 1, i-1 );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s := lueTieto('testitxt.txt', '"a": "', '",' );
Memo1.Lines.Add( s );
end;
...

Kokeile tuolla ja voit parantaa sitä helposti vaikkapa näillä ohjeilla:
http://wiki.freepascal.org/Howto_Use_TOpenDialog/fi