Copy part of a string

Question

I have the following strings:

  Cliente em questão: protocolo20209092032932
  Cliente em questão 2: protocolo320930293232
  Cliente em questão 3: 20392039230902032032

I need to do a function to copy everything after : (two points) forward. Is it possible ? Remember that the strings before : are not the same size, so I need to make it clear that it has to be after : (two points) forward.

Answer 1

You can use the function Copy combined with the function Pos

TextoOriginal := 'Cliente em questão 3: 20392039230902032032';
valorTexto := Copy(TextoOriginal , Pos(':', TextoOriginal) + 1, Length(TextoOriginal));

Answer 2

I don’t know how it works in Delphi but in PHP I would use the "explode" function that you define a delimiter and it puts everything inside an array, for example:

$cliente = "Cliente em questão: protocolo20209092032932";

$resultado = explode(':', $cliente);

This would return an array with two values:

[0] Client in question [1] protocolo20209092032932

And after that you just do what you have to do with your $result variable[1]

This is just an idea of how I would do in PHP, now just apply it to Delphi.

Answer 3

look q easy in php, in my example the strings would be an input.txt file

input file.txt

Cliente em questão: protocolo20209092032932
Cliente em questão 2:: protocolo320930293232
Cliente em questão 3::: 2039203923090203203
Cliente: em questão 3: 2039203923090203203

file . php

<?php

$handle = fopen("input.txt", "r");
$contents = [];

while (!feof($handle)) {
  $str_array = fgetcsv($handle, 1000, ":");      
  $str_array_count = count($str_array) - 1;      
  $last_index = $str_array[$str_array_count];

  $contents[] = $last_index;

}

fclose($handle);

print_r($contents);

?>

output

Array
(
    [0] =>  protocolo20209092032932
    [1] =>  protocolo320930293232
    [2] =>  2039203923090203203
    [3] =>  2039203923090203203
)

Answer 4

I did that a thousand years ago!

At the time I created a text search function, to ensure that the string I was looking for was actually inside the text.

Function BuscaTexto(Text,Busca : string) : string;
var n : integer;
begin
  for n := 1 to length(Text) do
    begin
       if Copy(Text,n,length(Busca)) = Busca then
          begin
             Result := 'ok';
             RetornoBuscaPos:=n;

          end;

    end;
end;

Notice that RetornoBuscaPos will tell you which position the string was found in, then use the function copy to cut where you want, do something like this:

  if BuscaTexto(MsgOriginal,':') = 'ok' then
    begin
    Resultado := Copy(MsgOriginal,RetornoBuscaPos,Length(MsgOriginal));
  end

Do tests, it’s been so long that I don’t use Delphi I’m rusty!