separar parte de uma string via sql

select substring(cep from 1 for 5) || substring(cep from 6 for 8) as cep_concatenado
from tabela

Eu já utilizei o substring e funcionou muito bem. No entanto peguei outros campos como CPF e CNPJ que também continham máscaras... aí preferi criar uma função que estraisse somente os números de uma determinada String.

function TForm1.ExtraiNumeros(str: String): String;
Var
num: String;
i: integer;
begin
num := ´´;
for I:=1 to length(str) do
If str[I] in ([´0´..´9´]) then
num := num + str[I];
result := num;
End;

Qual o seu banco de dados? Nem todos tem a função SUBSTRING.

Utilizo o banco de dados firebird 1.5..
Veja minha codificação abaixo:
Se eu tiro a linha do subtring roda normal, com a linha do substring esta dando erro (type mismatch)


INSERT INTO ´:TorrezanPneus:CLIENTE´(CLI_CODIGO,
CLI_NOME,
cli_logradouroendereco,
cli_bairro,
cli_cidade,
cli_cep,
EMP_CODIGO)

SELECT tCODCLI,
NOME,
endERECOT,
bairro,
cidade,
substring(cep from 1 for 5)||substring(cep from 7 for 3),
tempresa
FROM ´:TorrezanFox:Clientes´

A linha substring esta errada??

Grato

Placido

Qual o tipo do campo CEP ?

Rogerio o campo cep na tabela paradox esta definido como char(9) e na tabela destino char(8), ou seja na tabela origem esta gravado a mascara(xxxxx-xxx) e na destino (xxxxxxxx), quero eliminar o traço da tavbela paradox para gravar na tabela do firebird sem o traço.
Grato

Placido

Bom dia!
Ainda não resolvi o problema de tirar a mascara do campo cep..
Estou aguardando a solução..
Grato

Pessoal boa tarde!
Ainda não consegui resolver o problema de separar o traço(-) do campo cep, tentei rodar da forma como foi sugerido acima e da erro na linha 1 coluna 22 ou seja no from.
Veja o exemplo do meu comando:
select substring(cepi from 1 for 5) || substring(cepi from 7 for 8) as cep_concatenado
from cliente

Ou seja a variavel cepi contem 9 characteres ex (16400-030)

Pergunta não tem uma função tipo copy do delphi???

Se algume puder me ajudar agradeço.


Placido

Como você esta fazendo isso ? Lendo de paradox e gravando em Firebird. Quais componentes você esta usando ? Não seria mais fácil fazer via código ?

Rogério obrigado pela atenção.
Estou importando dados de uma tabela paradox do cliente para o meu banco de dados firebird na tabela cliente.
Os campos normais está importando corretamente, acontece que o campo cep da tabela paradox contem a mascara no campo cep(16400-100) na minha tabela nao contem a mascara(16400100). Aminha dúvida é esta como gravar este campo separando o traço. Foram citados alguns exemplos mas não está dando certo.
Estou utilizando o utilitário sqlExplorer para fazer esta importação.
Já fiz de tudo mas não consegui.
Criei um campo temporario na minha tabela cliente o campo cep com 9 posiçoes importo da tabela paradox normal, fiz uma procedure para gravar o campo cep sem o traço mas não consegui, porque não sei qual o comando que eu devo usar para separar o traço da string.

Grato

Por que você não faz um programinha de conversão entao em Delphi ?

[b:0b70cc95a8]Tem sim.[/b:0b70cc95a8]

Em delphi eu sei fazer..o problema é que tenho vários clientes para fazer este tipo de importação, se eu conseguir via sql eu apenas vou rodar o script, você não acha que é muito mais prático???
Tenho certeza que tem a solução..
Vou continuar pesquisando..
Grato

Continuo aguardando dicas para a solução do problema.
Grato
Plácido

Mas como você vai jogar os dados do Paradox para o IB??? Você não vai precisar de um programa para isso???

Não preciso de um programa para importar do paradox para o firebird, isto eu já faço via sql, ou meu problema está em eliminar a mascara do campo cep..
Grato
Plácido

Colega..

seguinte :

Você deve fazer um select na tabela do paradox assim :

crie uma variável na stored procedure

select substring(campo from 1 for 5)||
substring(campo from 7 for 2) as D_TESTE from tabela

armazene este resltado numa variável

depois dê o insert passando a variável

Junior bom dia!
Obrigado pela dica, vou testar e retorno.
Grato
Plácido

Boa noite resolvi o meu problema, estava rodando o script no ibexpert, não sei o que estava faltando no meu computador,criei uma procedure e funcionou beleza, utilizo o banco de dados firebird 1.5.
Grato
Plácido

so corrigindo Cep := Copy(MeuCepComFormatação, Inicio, QUANTIDADE DE CARACTERES);