ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Copiar string [Resolvido]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
faccruz
Colaborador
Colaborador


Registrado: Terça-Feira, 20 de Julho de 2010
Mensagens: 1563

MensagemEnviada: Ter Nov 21, 2017 2:12 pm    Assunto: Copiar string [Resolvido] Responder com Citação

Boa tarde pessoal,

Preciso copiar a palavra que está entre as tags que eu criei



Tentei algumas funções que encontrei na net, porém sem sucesso.
_________________
Facc System - Sistemas para Computador


Editado pela última vez por faccruz em Ter Nov 21, 2017 2:54 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
strak2012
Colaborador
Colaborador


Registrado: Segunda-Feira, 13 de Janeiro de 2014
Mensagens: 1518
Localização: Maceió - AL

MensagemEnviada: Ter Nov 21, 2017 2:18 pm    Assunto: Responder com Citação

Código:
var
  texto,resultado:string;
  p1,p2:integer;
begin
  texto:=[seu texto aqui];
  p1:=pos('[IMAGEM]',texto)+length('[IMAGEM]');
  p2:=pos('[/IMAGEM]',texto)-1;
  resultado:='';
  if (p2>p1) then
    resultdo:=copy(texto,p1,p2-p1);
end;

_________________
Tudo podemos quando tudo sabemos!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
faccruz
Colaborador
Colaborador


Registrado: Terça-Feira, 20 de Julho de 2010
Mensagens: 1563

MensagemEnviada: Ter Nov 21, 2017 2:30 pm    Assunto: Responder com Citação

strak2012 escreveu:
Código:
var
  texto,resultado:string;
  p1,p2:integer;
begin
  texto:=[seu texto aqui];
  p1:=pos('[IMAGEM]',texto)+length('[IMAGEM]');
  p2:=pos('[/IMAGEM]',texto)-1;
  resultado:='';
  if (p2>p1) then
    resultdo:=copy(texto,p1,p2-p1);
end;



Deu certo, muito obrigado.
_________________
Facc System - Sistemas para Computador
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
Jesper
Novato
Novato


Registrado: Quarta-Feira, 13 de Setembro de 2023
Mensagens: 1

MensagemEnviada: Qua Set 13, 2023 12:49 pm    Assunto: Re: Copiar string [Resolvido] Responder com Citação

faccruz escreveu:
Boa tarde pessoal,

Preciso copiar a palavra que está entre as tags que eu criei



Tentei algumas funções que encontrei na net, porém sem sucesso.


você pode utilizar-se da função Copy e Pos

a função de pôs tem como objetivo posicionar o cursor na string desejada que no seu caso seria o :.

já com a função Copy você pegaria o valor restante da string, formando assim a saída desejada!

um exemplo :

cliente := 'Cliente em questão: protocolo20209092032932'

resultado := copy(cliente,pos(':',cliente));
com isso tudo após o : seria exibido em resultado

esse canal mostra essa função em especifico é bem bacana o conteúdo

https://www.youtube.com/@arrisqueseemprogramar
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB