Milyen egyszerűbb megoldással működhetne ez a program, mi az, amit elegánsabban lehetne megoldani? (Pascal, string-kezelés)
Megadott karaktertől megadott karakterig szeretnék törölni egy string-ből mindent.
Ez az, ami a "szokásos módon" nem akar sikerülni, úgy, ahogy működnie kellene, ellenben más módon, sikerült.
Itt két negoldás, másodikat én találtam ki, kénytelen vagyok megszámolni a darabszámot, mert egyébként nem hajlandó működni...
Miért nem?
{$h+}
uses crt;
var
s : string;
i, j, poz, poz2 : word;
begin
s := 'próba valami () ez is csak próba () mint az előbb ()';
repeat
poz := pos('p',s);
poz2 := pos(')',s);
delete(s,poz, poz2-poz);
until (poz = 0);
WriteLn(s);
s:='';
ReadLn;
for i:=1 to 888 do
s:=s+'abteszt(teszt)';
repeat
poz:=pos( 'ab', s);
poz2 := pos(')',s);
j := 0;
for i := poz to poz2 do
inc(j);
delete(s,poz,j);
WriteLn(poz);
until poz = 0;
end.
38%-os (gondolom a pár hónapja még 33%-os értő olvasást nem ismerő delikvenshez van "szerencsém"):
Ha magát a kódot értelmezni nem tudod, nem megy az értő olvasás, akkor a válasszal sztem ne fáradj.
uses crt;
var
MyString : string;
DelLenght: byte;
begin
DelLenght:= 3;
MyString:= 'Gyakorikerdesek.hu';
MyString := Copy (MyString,0,(length(MyString)-DelLenght));
Write(Mystring,#13);
readln;
end.
38%:
Látom a kód értelmes elolvasása az továbbra se megy...
Stringben többször szerepel az adott törlendő rész kedző - és végponttal...
Ne eröltesd. :-)
Múltkor még nekem mondtad, hogy nem programoztam Pascal-ban soha. :-)
38%-os Tapsi hapsi hozza a formáját :D :D
Csak tudnám hogy kúszott fel idáig 25%-ról... :/
Lassan ideje lenne helyrerakni, ahova való.
"hogy nem programoztam Pascal-ban soha. :-)"
1. És az számomra miből derült volna ki, birge?
2. Netikettet olvasd már el egyszer, ha ráérsz.
3. Ha az abban olvasottakat még így-úgy be is tartod, akkor már sokkal kisebb bunkónak fognak tartani, mint most.
+ Ne képzeld már, hogy a förmedvényedet elemezgetni fogom. Egy rettenet az egész. Örülj neki, ha választ kapsz egyáltalán. Pláne így megfogalmazott kérdésre.
Hányszor és hányan kell még könyörögnünk a moderátoroknak, hogy ezt a fogalmatlan gyökeret vágják kár ki innen?!
Hello, 38%-os, életében nem volt még egy hasznos hozzászólása!
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!