Preciso de função para pegar strings entre quot;[]quot;

Delphi

14/04/2003

Preciso de uma função para pegar strings que ficam entre [ ]

por exemplo
temos a frase

[Homem] é fogo, mulher é [estopa] e o diabo [assopra]

eu queria pegar essas palavras entre [ ] e mudá-las... inverter a ordem, por exemplo...

[memoH] é fogo, mulher é [apotse] e o diabo [arpossa]

ajudem!!!

-----
Também preciso disso

imagine a frase

[1] elefante incomoda muita gente, [3] elefantes incomoda,;;;
[7] elefantes ...

queria pegar os NÚMEROS entre [] e somá-los a, por exemplo, 2

ficando

[3] elefante incomoda muita gente, [5] elefantes incomoda,;;;
[9] elefantes ...



Ajudem pelo amor de Deus

OBS: A segunda(dos números) é mais importante!


Senhorbizarro

Senhorbizarro

Curtidas 0

Respostas

Theofernandes

Theofernandes

14/04/2003

Onde estão estas strings? Em um memo? Onde?


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

14/04/2003

var
ppos1,ppos2 : integer;
begin

ppos1 := pos(´[´, texto ´);
while ppos1 <> 0 do
begin
ppos2 := pos(´]´, copy( texto, ppos + 1, 255));
if ppos2 <> then
begin
delete( texto , ppos1 , ppos2 - ppos1);
insert( ´[outra coisa]´, ppos1);
end;
ppos1 := pos(´[´, copy( texto , ppos1 + 1, 255));
end;
end;

isso é só uma parte do que você quer, procura coisas dentro de ´[---]´ e escreve outra coisa


GOSTEI 0
POSTAR