Publicado em 13 de out.

Função para copia de substring

Boa noite a todos, eu preciso de uma ajudinha de vocês num código que não sei como construir. Minha situação é a seguinte, tenho um memo carregado com uma resposta de um site (tudo, inclusive o colchete, faz parte da resposta):

{"id":12345,"codconta":12345,"nomeconta":fulano,"nivelconta":10}

Eu preciso de uma rotina que, dependendo da situação, eu informe que preciso de "id" e ela me retorne "12345", ou qualquer outra palavra-chave com seu respectivo retorno.

Eu vi na internet, em vários fóruns, inclusive neste, que o povo utilizou uma função pos() aliado com copy. Mas não encontrei ninguém ensinando como funciona essa bendita função. Vocês podem me ajudar nisso?

Obs: as informações respectivas de "id","codconta","nomeconta" podem variar, então pensei em algo que: (A) localizasse que tipo de informação eu quero, (B) copiasse a informação de ":" até ",".

Discussão (1)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Daniel Salles· 14 de out.

Boa noite novamente, depois de um tempo tentando creio que consegui fazer a função, porém estou com um problema no meu fonte que não consigo fazer debug neste trecho para realizar testes. Em todo caso, vou deixar o codigo para que deem uma olhada, não sou bom programador, mas eu vou tentando rsrs

function TForm1.RetornaSubstring(Frase, TipoRetorno : String): String;
var

	Texto, StringRetorno : string;
	contador, i : integer;

begin

	Texto := '';
 StringRetorno := '';
 contador:=2;
//FOR PARA ENCONTRAR "TipoRetorno";

	for i:=contador to length(Frase) do
	begin
 while (frase[i] <> '"') or (frase[i] <> ',') or (frase[i] <> ':') do
 StringRetorno := StringRetorno+Frase[i];
 if StringRetorno = TipoRetorno then
 begin
 contador:=i+2;
 break
 end
 else
 StringRetorno := '';
	end;

//FOR PARA COPIAR O RETORNO DO "TipoRetorno";

	for i:=contador to length(frase) do
	begin
 while (frase[i] <> ',') or (frase[i] <> '}') do
 texto:=texto+frase[i];
 Result := texto;
	end;
end;

	O que eu fiz foi até simples, como eu sei onde eu chego na informação, e quase onde ela está, criei esta rotina que vai fazer uma varredura caractere por caractere e vai armazenando eles numa variável do tipo string, cada vez que a varredura chega no final da palavra-chave, ele deve testar se a palavra-chave que eu procuro é igual a que a varredura encontrou. Se não for, a variavel string é resetada e a varredura segue adiante até encontrar a palavra-chave. Se encontrar, é feita uma segunda varredura (similar a primeira) atras o resultado do retorno do site, que no caso vai estar sempre precedido por (:) e sucedido por uma (,). Encontrado o resultado, a função retorna a variável string com o valor que procuro.