Tarvis sellainen bat-tiedosto saada aikaan joka ottaa tekstitiedostosta sanotaan teksti.txt tietyn kohda ja tulostaa sen (echo). Kun ei ohjelmointi lähde niin ei lähde vaikka hyvin yksinkertainen tämäkin on. Jollain for-funktiolla se pitäisi jotenkin saada mutta kun ei niin ei.
Tiedoston sisältö on tämä:
{
"a": "a42b34af",
"b": false,
"d": 25,
"e": true,
"f": true,
"g": [
{
Pitäisi saada ulos numero/kirjansarja "a42b34af" ilman lainausmerkkejä.
BAT-ohjelmointi
koodia...
2
245
Vastaukset
- C--
For ei ole funktio.
Kannattaisi muutenkin varmaan tehä vaikka C:llä. - Helposti+Lazarus
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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Heh, Riikka runnoi Suomen BKT:n miinukselle
Suomi on Riikan irvistysten ansiosta ainoa negatiivisen talouskasvun maa EU:ssa. Ei tästä ainakaan EU:ta voi syyttää, ku675282Erään T miehen viimeinen aloitus tänne
Moi Olen kirjoittanut täällä säännöllisesti yli 5 vuotta. Kaivannut kuten kuuluukiin, mutta myös unohdellut ja selvitel302436Sanna vaihteeksi Australian "60 minuuttia" ohjelmassa
Kansanvälinen superstaramme esiintyi tällä kertaa toisella puolen maapalloa esitettävässä ohjelmassa. Kiinnostus on kova1122228HihhuIi-Päivi täpinöissään Viktorin tapaamisesta
Eiköhän nyt kaikille ole vihdoin selvää kenen joukoissa tämäkin putinisti seisoo. https://www.iltalehti.fi/politiikka/a1201905Yritykset verolle ja yritystuet 10 mrd. eur/v pois
Kiristämistapauksissa yrityksille sanotaan hei hei. Suomi ei tarvitse yhteiskunnan rahoilla "yrittämistä". Yhteiskunta v151859- 1111770
Björn Wahlroos ykkösaamussa nautittavaa kuunneltavaa
Ehdottomasti viisaimpia ja tietävämpiä ihmisiä mitä Suomesta koskaan tullut. Naureskeli viherpiipertäjille jotka ihan p2651219Nyt meni maku vas.liittoon, kun vaativat minimituntipalkkaa lakiin
Sehän tarkoittaa samalla myös maksimituntipalkkaa, koska kun laki on kerran laadittu, niin sitä on vaikea muuttaa. Työma531214Yritän saada sinut pois mielestäni ja ajatuksistani nainen
Turhaan. Mitä enemmän yritän, sitä enemmän haluan sinut ja sinua. Miten voitkaan olla niin ihana ja tuntua niin hyvältä.511104- 73994