Ĺadny brzuch
Witam
Mam łancuch (string i chcę z niego wyciąc parę liter od przecinka do przecinka) np:
Warszawa,Gdańsk,Wrocław,Lublin,Zgierz
Chcę z niego wyciąc Gdansk i Lublin aby zostało:
Warszawa,Wrocław,Zgierz.
Jak to zrobić.
Dzięki
Pętla + pos + copy i jedziemy ;)
Procedure Oskar_;
Begin
ShowMessage('GG:4206396');
End;
przychodzi mi do glowy wiele pomyslow ale przedstawie ten bo najprostrzy chyba.
jest funkcja (nie pamietam jaka) ktora zamienia pewien ciag znakow w stringu na inny ciag. np jak masz "bleblible" i uzyjesz tej funkcji zeby zamienila ci bli na blu to wtedy string bedzie mial wartosc "blebluble" ;)
uzyj tej funkcji zeby ci zamienila np. Gdanska na * i tak dla kazdego nielubianego miasta ;) a nastepnie w tym co wyszlo:
zamien ,*, na ,
i bedzie git
mam nadzieje ze zrozumiales :P
S:String;
i:Integer;
Begin
i:=pos(',',S);
Delete(S,1,i);//kasuje po lewej od przecinka włącznie z ,
i:=pos(',',S);
Delete(S,i,length(S)); // a to z prawej
Label2.caption := S;
to powinno działać :)
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
Może lepiej napisz ciąg w jedny Edit'cie a niechiany fragment w drugim, wstaw buttona i napisz taki kod;
procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s := Copy(Edit1.Text, 1, Pos(Edit2.Text, Edit1.Text) - 1); s := s + Copy(Edit1.Text, Pos(Edit2.Text, Edit1.Text) + Length(Edit2.Text), Length(Edit1.Text) - Pos(Edit2.Text, Edit1.Text) - 1); Caption := s; end;
www.lewbar.prv.pl
Dokładnie to sciągam dane z giełdy papierów wartościowych do pliku TXT. Ja nie wiem jakie dane mam skasować. Wiem tylko że muszę wykasowac dane niędzy 3-im a 4-ym przecinkiem, następnie między 6-ym a 7-ym przecinkiem itd. Obcięty łancuch zapisuje do pliku txt.
No to musisz troszkę przekombinować któryś z kodów jakie Ci podaliśmy.
www.lewbar.prv.pl
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam łancuch (string i chcę z niego wyciąc parę liter od przecinka do przecinka) np:
Warszawa,Gdańsk,Wrocław,Lublin,Zgierz
Chcę z niego wyciąc Gdansk i Lublin aby zostało:
Warszawa,Wrocław,Zgierz.
Jak to zrobić.
Dzięki
Pętla + pos + copy i jedziemy ;)
Procedure Oskar_;
Begin
ShowMessage('GG:4206396');
End;
przychodzi mi do glowy wiele pomyslow ale przedstawie ten bo najprostrzy chyba.
jest funkcja (nie pamietam jaka) ktora zamienia pewien ciag znakow w stringu na inny ciag. np jak masz "bleblible" i uzyjesz tej funkcji zeby zamienila ci bli na blu to wtedy string bedzie mial wartosc "blebluble" ;)
uzyj tej funkcji zeby ci zamienila np. Gdanska na * i tak dla kazdego nielubianego miasta ;) a nastepnie w tym co wyszlo:
zamien ,*, na ,
i bedzie git
mam nadzieje ze zrozumiales :P
S:String;
i:Integer;
Begin
i:=pos(',',S);
Delete(S,1,i);//kasuje po lewej od przecinka włącznie z ,
i:=pos(',',S);
Delete(S,i,length(S)); // a to z prawej
Label2.caption := S;
to powinno działać :)
Asdef www.kanalia.toya.net.pl
konkurs: FL_Studio jesteś kompozytorem amatorem? weź udział w konkursie więcej info pod adresem www.kanalia.toya.net.pl
szukam redaktorów kanalia@poprostu.net
zapraszam na http://www.kanalia.l...dfree.com/forum
Może lepiej napisz ciąg w jedny Edit'cie a niechiany fragment w drugim, wstaw buttona i napisz taki kod;
procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s := Copy(Edit1.Text, 1, Pos(Edit2.Text, Edit1.Text) - 1); s := s + Copy(Edit1.Text, Pos(Edit2.Text, Edit1.Text) + Length(Edit2.Text), Length(Edit1.Text) - Pos(Edit2.Text, Edit1.Text) - 1); Caption := s; end;
www.lewbar.prv.pl
Dokładnie to sciągam dane z giełdy papierów wartościowych do pliku TXT. Ja nie wiem jakie dane mam skasować. Wiem tylko że muszę wykasowac dane niędzy 3-im a 4-ym przecinkiem, następnie między 6-ym a 7-ym przecinkiem itd. Obcięty łancuch zapisuje do pliku txt.
No to musisz troszkę przekombinować któryś z kodów jakie Ci podaliśmy.
www.lewbar.prv.pl