Fantasya

Daryk taip: pirma nuskaityk visą eilutę (sakykim kintamasis - eilute), tada pirma žodį - viską iki pirmo tarpo - nukopijuok į kitą kintamąjį (kintamasis - nauja_eilute), kodas atrodytų taip:

nauja_eilute:=copy(eilute,1,pos(' ',eilute));
{eilute - nuo ko kopijuosim, 1 - nuo kurio simbolio pradėti, pos(' ',eilute) - iki kokio simbolio kopijuoti, šiuo atveju iki tarpo - ' ' pozicijos}

 

Tik gali kilti problemų, dėl to, kad yra prieš tai du skaičiai. Bent jau man tai pascalis svaigsta ir nuskaito tekstinę eilutę su tarpu priekyje (tada tarpo pozicija tampa 1 ir nieko nenukopijuoja). :D Jei taip nutiktų, tą nereikalingą tarpą nuskaityk į kokį papildomą char. :D

idomus tavo variantas, bet tarkim yra eilute:

labas rytas

nuskaitau kaip string ir man reikia tuos du zodzius atskirt>>

okay, zodi "labas" nuskaitau pradedamas nuo pirmos pozicijos:

nauja_eilute:=copy(eilute,1,pos(' ',eilute));

bet jau norint nuskaityt zodi "rytas", man reik nurodyt nuo kur skaityt.

sikart butu nuo 7 sloto:

nauja_eilute:=copy(eilute,7,pos(' ',eilute));

kai viena eilute tai viskas ok. o jei man reik masyva daryt:

labas rytas
laba diena
viso gero

tai kitai eilutej nebetiks skaitymas nuo 7 sloto, nes cia jau kitokios zodziu ismeros..

vadinasi iseina tas pats kas ir string[x]; :)

mmm, tai kad man rods string nuskaito visa eilute :/ o man reik vieno zodzio

Sveiki,

iskart prie reikalo.

Yra toks txt failas:

4 13 Jonas Artojas //A[1]

2 51 Petras Melzejas //A[2]

3 71 Anupras Girininkas //A[3]

1 42 Kazimieras Gaspadorius //A[4]

6 34 Donce Sestas //A[5]

1 12 Kulverstukas Padejejas //A[6]

Mano record:

type Rekordas = record

pirmas:integer;

antras:integer;

vardas:string[12];

pareigos:string[11];

end;

 

Masyvas = array[1..6] of Rekordas;

Taigi, esme tokia, jog viskas vykste masyve.

tarkim vardo nuskaitymui esu parinkes string[12], nes ilgiausias vardas "Kulverstukas" uzima 12 slotu.

O skaitydamas trumpesni varda, pvz: Jonas, jis nukerpa siek tiek raidziu is zodzio Artojas ir gaunasi nesamone.

Tai gal galima kaip nors padaryt, kad programa apskaiciuotu kiek slotu uzima zodis ir nuskaitytu tik ji?

Lauksiu atsakymu, dekui!

whoaaa, super. ;) labai dekoju visiems uz informacija! ;)

voo aciu labai! sita priverciau veikt, bet dabar turiu dar pora klausimeliu ;)

Pirmas:

pvz:

winexec('C:\Program Files\Internet Explorer\iexplore.exe',1);

Ka reiskia tas vienetas?

Antras:

Man reikia padaryt, kad failo kelia pasiimtu is .txt. Cia viskas paprasta: assign, read, A:string, bla bla ir t.t.

Tuomet bandau padaryti, kad "executintu" ta nuskaityta masyva ar paprasta kintamaji va taip:

winexec(A, 1);

arba:

winexec(x,1);

Ir cia jau iskyla erroras:

Incompatible type for arg no. 1: Got SHORTSTRING, expected PCHAR

Pakeiciu string i pchar ir gaunu run time error 216 general protection fault

Mano kodas:

program Loader;
uses windows;
var x:PChar;
cfg:text;
begin
assign(cfg, 'LoaderConfig.ini');
reset(cfg);
readln(cfg, x);
close(cfg);
  winexec(x, 1);
readln;
end.

viska iskarpiau iki paprasciausios, palikau tik pacia esme.. nesu girdejes apie PChar, tai jei kas zinot nepatingekit apsviest truputi ;)

hmm, isbandziau cia ivairius variantus, bet nelabai nori veikt. gal dar kas zinot kaip galima padaryt? man reik, kad programa atliktu toki pat veiksma, koki atlieka "double-click" ant failo ir kad daugiau neitakotu tos programos darbo ;)

dekui labai, pabandysiu sita prisitaikyt :)

deja tik paskaliu moku truputi programuot, o jei noreciau pats pakoreguot programa ar panasiai tai kitose kalbose pasiklysciau

batch zinau, bet man sito reik VDS serve. kadangi ji naudoja ~20 zmoniu, tai esu uzblokaves cmd, kad visokiu chunveibinu neprileistu su tais batch'ais. o pascal?.. arba gal zinot kaip uzblokuot cmd paprastiems useriams, o adminams palikt? OS: Windows XP

Sveiki, ar imanoma pagaminti pascaliu tokia programa, kuri paleistu .exe failo shortcuta? Man reik paleist daug panasiu programu, bet visas jas maigyt uzsiknisimas, tai gal imanoma kaip nors suprogramuot nedidele programele kuri visus juos paleistu? Jei imanoma, tai butu idomu suzinot kaip visa tai uzrasyti (source code). Paskali siek tiek ismanau, tai visko galit nerasyt. Aciu! :)

jei uz tokia kaina su windows server 2003, tai pigu..8gb ramo, 400gb HDD, neribotas srautas vos uz 420lt. hostex'e tik pasvajot gali apie tokias kainas. idomu kaip su kokybe :D neluzineja?

cia as papildysiu klausima:

mes pirkom dedikuota serveri, tai ar imanoma sita dalyka nulauzt nuotoliniu budu?

Arba reiktu zmogaus, kuris ismanytu kaip paleisti linux vps su graphic mode, kad prie serverio galetu jungtis bent 100 vartotoju vienu metu.

Jeigu kas sugebes padet - skolingi tikrai neliksim

aciu ir tau Deaw uz pavizdi, patiko ir taviskis variantas :D o jei as noriu nuskaityt tarkim tik 3 eilute, tuomet reik naudot FOR cikla ir ji apribot tik treciai eilutei? :D

Dekui labai uz pavizdi :D toliau jau pats susigaudysiu :D

Sveiki,

pradejau truputi programuoti su FPS ir pristigo ziniu :)

Beda yra tokia:

noriu nuskaityti faila su turiniu panasiu i si:

pirmas=1
antras=0
trecias=0
ketvirtas=2

Tai dazniausiai buna ivairiu programu config failiukai. Skaiciai gali keistis.

Taigi noreciau kad programa nuskaitytu ta skaiciu prie kiekvieno zodzio ir atitinkamu atveju ka nors darytu. tarkim jei prie zodzio pirmas yra 1, tuomet writeln('labas'), o jei koks kitas skaicius tuomet writeln('viso gero');

Na manau minti supratot. Man visos programos nereik, nes nesu visiskai zalias. Tiesiog to principo kaip nuskaityti ir apdoroti tokio turinio faila jei tai isvis imanoma su paskaliu. Aciu :huh: