Jak wychwycić w zmiennej typu string z pośród ciągu znaku istnienie określonego ciągu
i zastąpić go innym ciągiem. Przykład : ‘Ala ma kota’ ==> ‘Ala chce kota’ .
procedure zamien (a,zamien,naco:string; var b:string);
var
i,j,z :integer;
zmienna :boolean;
begin
for i:=1 to lenght(a) do
begin
zmienna := true;
for j:=1 to lenght(zamien) do
if a[i+j-1] <> zamien[j] then
zmienna := false;
if zmienna then
begin
for z:=1 to i do
b[z] := a[z];
for z:=1 to lenght(naco) do
b[z+i]:=naco[z];
for z:=1 to (lenght(a)+lenght(naco)-lenght(zamien)-i) do
b[z+i+lenght(naco)]:=a[i+z];
end;
end;
end;
dla niektorych danych moze sie wysypywac
naucz sie perla (albi / i JAVY) tam zrobisz to jednym wywolaniem funkcji
jakiej ?????
a to musisz sobie juz poczytac (w rozdziale strings) :-)
wojta$--Lets make linux better :-)
W Delphi mozna uzyc funkcji Pos i Length oraz procedur Insert i Delete:
var
glowny, szukany, podmiana : string;
pozycja: integer;
begin
glowny:='Ala ma kota';
szukany:='ma';
podmiana:='chce';
pozycja:=Pos(szukany, glowny);
if pozycja <> 0 then
begin
Delete(glowny, pozycja, Length(szukany));
Insert(podmiana, glowny, pozycja);
end;
end;
--Pawel
Delphi6
Nooo zapamnialem napisac o czyms takim jak AWK i SED - kazdy szanujacy sie programista powinien wiedziec jak sie tym poslugiwac a przynajmniej co to jest :-)
wojta$--Lets make linux better :-)
Ja nie wiem co to jest (a moze wiem tylko nie znam tych nazw??). Prosze mnie oswiecic!--Pawel
Delphi6
pq w dniu 12.3.2002 20:27 napisal:
Ja nie wiem co to jest (a moze wiem tylko nie znam tych nazw??). Prosze mnie oswiecic!
>
>--
>Pawel
>
>Delphi6
AWK to najpotezniejszy jezyk skryprowy do obrobki textow
SED to edytor strumieniowy (bardzo wyraznie ukierunkowany na UNIX'y) oba
z tekstami robia wszystko co mozna sobie wyobrazic i jeszcze troch wiecej
opis obydwu zajmuje ok 500 stron (czystych informacji oczywiscie - pomijajac opis instalacji itp)
wojta$--Lets make linux better :-)
No to juz wiem co to znaczy. Moge udawac szanujacego sie programiste :))))))--Pawel
Delphi6
pq w dniu 12.3.2002 23:6 napisal:
No to juz wiem co to znaczy. Moge udawac szanujacego sie programiste :))))))
>
>--
>Pawel
>
>Delphi6
mozesz ... :-)--Lets make linux better :-)
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.