Transformar Espaço em coluna

[ton_oliver]

Relembrando a primeira mensagem :

Boa Tarde

Amigos creio que ja passaram por isso e se puderem me ajudar.

Possuo um TXT no seguinte formato.

d7010000 097000017647RONALDO SPENOLA 44 0000001
ppR001 09704800000017600000549230000000054923 0000002

A segunda linha corresponde a primeira.

Tem como ler a primeira linha e depois a segunda e a cada ESPAÇO eu criar um CAMPO e colocar os valores ?

Preciso muito dessa ajuda.

Abrcossss

Oliveira

[Marcos Guedes]

Oliver, você poderia postar um modelo do arquivo?

[ton_oliver]

Marcelo o scrip que vc passou funcionou perfeito. Tentei adequar a minha situacao, mas vc ja imagina o que deve ter saido. kkk

A priori sem saber ainda o layout, estipulei 4 campos.

O que nao entendi direito é:
A tabela ARQUIVOS vc preenche ela via um LOOP e copia tudo para o TXT.
E depois copia tudo do TXT para a TABELA LISTA.
entendi certo ????

[Marcos Guedes]

Oliver, você poderia postar um modelo do arquivo?

up!

[ton_oliver]

Marcos esta dando o seguinte erro ao postar o arquivo

Não foi possível enviar o arquivo : o espaço de armazenamento para usuários foi ultrapassado. (Espaço restante : 0 Kb)

Ele é um TXT com 1,39 Kb

[Marcos Guedes]

Utilize o mecanismo conforme mostrado no seguinte tópico:
[Você precisa estar registrado e conectado para ver este link.]

[ton_oliver]

Segue o arquivo em anexo:

Clique aqui para baixar o arquivo!

[Marcos Guedes]

Ao ver o arquivo conseguir ler duas interpretações, veja se lhe ajuda:
- Clique aqui para baixar o exemplo!

Ou uma terceira alternativa:

Código:

#DEFINE nomearquivo "teste.txt"

CREATE CURSOR teste(campo1 c(18), campo3 c(17), campo4 c(50), campo5 c(8), campo6 c(7))

LOCAL conteudoarquivo AS STRING
LOCAL totallinhas AS INTEGER
LOCAL contador AS INTEGER

m.conteudoarquivo = FILETOSTR(nomearquivo)
m.totallinhas = ALINES(arraylinhas,m.conteudoarquivo)

FOR m.contador=1 TO m.totallinhas
INSERT INTO teste VALUES(;
      SUBSTR(arraylinhas[m.contador],1,18),;
      SUBSTR(arraylinhas[m.contador],19,17),;
      SUBSTR(arraylinhas[m.contador],36,50),;
      SUBSTR(arraylinhas[m.contador],86,8),;
      SUBSTR(arraylinhas[m.contador],94))
ENDFOR

SELECT * FROM teste

USE IN SELECT("teste")

É só baixar o exemplo e testar os 3 códigos e vê se resolve.

[ton_oliver]

Marcos é perfeitamente o que eu queria.

Muito Obrigado mesmo näo só a voce como a todos que estao me ajudando.

Enquanto estava quebrando a cabeça aqui, cheguei mais ou menos nessa sua lógica. Claro sem usar todos esses codigos. Apenas usando REPLACE e contando a quantidade de caracters para cortar.

Ai caiu em um problema que na sua forma tb o vi.

No campo onde tem o NOME possuo tamanhos variados de Nomes.
Vamos supor que eu tenha criado um campo no tamanho 50 para receber o nome e valores como esta no TXT e vc separou certo.
(Isso é a nivel de aprendizado)

ABCDEF4566777ORLANDO PIRES

Conforma acima o campo temo tamanho 50 pra receber o valor acima.
Caso eu queira pegar apenas o NOME e nao tenha um valor fixo dos NUMEROS eu poderia fazer um RIGHT porem ele pegaria os espacos em branco até chegar na ultima letra "S"
EX: right(campo,13) > ORLANDO PIRES
Porem esse 13 estipulado no tamanho pegaria apenas espaco em branco até chegar na letra.

Tem algum jeito de se pegar o "LEN" maximo de uma linha e alterar a estrutura docampo com o tamanho maior achado ??

A todos, agradeco mais uma vez e peço desculpa por esse POST longo e essa duvida que invento.

[m@r<3|o]

Ton, o exemplo do Alceu seria um poco complicado para alterar sendo que faz tudo cria importa etc ...

voce precisa fazer as coisas para facilitar utilizando arquivos ou objetos

Segue um Exemplo teste2

Clique aqui para baixar o arquivo!

digo para importar assim , onde esta escrito espaço, pode ser tanto o | como % como o que quiser olha a facilidade
apartir voce pode montar mais campos ......

entao voce comecaria criando uma tela , com + 1 botao ou outro PRG onde voce joga seus dados nos campos em que criar que fico em branco

ai somente exportar novamente 3 prg e faz isso tudo por partes e ainda mantem os dados guardados

[Marcos Guedes]

No campo onde tem o NOME possuo tamanhos variados de Nomes.
Vamos supor que eu tenha criado um campo no tamanho 50 para receber o nome e valores como esta no TXT e vc separou certo.
(Isso é a nivel de aprendizado)

ABCDEF4566777ORLANDO PIRES

Conforma acima o campo temo tamanho 50 pra receber o valor acima.
Caso eu queira pegar apenas o NOME e nao tenha um valor fixo dos NUMEROS eu poderia fazer um RIGHT porem ele pegaria os espacos em branco até chegar na ultima letra "S"
EX: right(campo,13) > ORLANDO PIRES
Porem esse 13 estipulado no tamanho pegaria apenas espaco em branco até chegar na letra.

Tem algum jeito de se pegar o "LEN" maximo de uma linha e alterar a estrutura docampo com o tamanho maior achado ??

A todos, agradeco mais uma vez e peço desculpa por esse POST longo e essa duvida que invento.

Não sei se entendi muito bem a dúvida...
Mas se o problema está em retirar os números dos nomes, veja se isto resolve:

Código:

#DEFINE nomearquivo "teste.txt"

CREATE CURSOR teste(campo1 c(18), campo3 c(17), campo4 c(50), campo5 c(8), campo6 c(7))

LOCAL conteudoarquivo AS STRING
LOCAL totallinhas AS INTEGER
LOCAL contador AS INTEGER

m.conteudoarquivo = FILETOSTR(nomearquivo)
m.totallinhas = ALINES(arraylinhas,m.conteudoarquivo)

FOR m.contador=1 TO m.totallinhas
   INSERT INTO teste VALUES(;
      SUBSTR(arraylinhas[m.contador],1,18),;
      SUBSTR(arraylinhas[m.contador],19,17),;
      CHRTRAN(SUBSTR(arraylinhas[m.contador],36,50),'0123456789',''),;
      SUBSTR(arraylinhas[m.contador],86,8),;
      SUBSTR(arraylinhas[m.contador],94))
ENDFOR

SELECT * FROM teste

USE IN SELECT("teste")

[ton_oliver]

Vlww Marcelo...

Vou fazer exatamente como disse.
Vou pegar o exemplo do Marcos com o seu e montar um programa pequeno de importacao de TXT para DBF dando a opcao de escolher qual delimitador o TXT terá para no PRG eu pegar o delimitador e usar de forma certa.

Como o do EXCEL que posso escolher qual é. | , " ", etc

Caso Resolvido!!!!

Espero que este post sirva para muitas pessoas aqui do FORUM como ja me serviu.

Quando receber o primeiro ordenado vai uma porcentagem para vcs. kkkkkk

[ton_oliver]

Marcos resolve sim!!! Mas a ideia nao era essa.

Para entender melhor substitui o espaço por arroba.

Na campo da tabela tenho a seguinte estrutura:
nomecampo [tipo character] [tamanho 45]

Abaixo tenho o valor que esta no campo citado acima.

ABCDEF1234567ORLANDO PIRES@@@@@@@@@@@@@@@@@@@
ABCDEF1234567RICARDO ROCHA@@@@@@@@@@@@@@@@@@@

Percebe que acima o tamanho do NOME muda de uma linha para a outra.

Se na primeira linha eu der um RIGHT(campo,12) teria ORLANDO PIRES
porem na segunda ja mudaria para RIGHT(campo,13).

Sabendo que o @ é o espaço o RIGHT acima näo me traria logo de cara o NOME e sim apenas espaço pois até o RIGHT chegar no NOME e pegar os espaços juntos, o RIGHT nao teria o valor 12 ou 13.

A ideia seria:

Tamanho campo criado [45]
Para pegar o nome seria RIGHT(campo,32) assim ele pegaria o NOME
ORLANDO PIRES porem junto viria os espacos.

Desculpa se nao me expressei direito.

O espaço nem com o RTRIM sai.

[m@r<3|o]

tiver duvidas só postar
Abrax

[Marcos Guedes]

Oliver, leia o código que postei e observe a seguinte linha:

Código:

CHRTRAN(SUBSTR(arraylinhas[m.contador],36,50),'0123456789','')

O segundo parâmetro da função CHRTRAN informa exatamente o que queres substituir com o valor do terceiro parâmetro.

Como você disse apenas números, então coloquei apenas a sequência de 0 a 9, mas se tem simbolos, é só especificar:

Código:

CHRTRAN(SUBSTR(arraylinhas[m.contador],36,50),'0123456789@#$%¨&*()','')

Se não é bem isto, favor explicar novamente.

[ton_oliver]

Marcos, Marcelo, Alceu, Julio, Larde obrigado a todos......

Marcos ja dei muito trabalho pra vc, aquele outro problema nao esquenta a cabeça muito nao...

Ja me ajudou bastante :-)

Entendi o codigo que altera tanto numeros como até posso fazer o inverso por o alfabeto e obter apenas numeros.

Mas ainda nao vem a ser a minha duvida.

Nao sei mais como explicar. kkkk mas vamos la...

Tenho um campo de tamanho 25 (Ex)
Nesse campo tenho a seguinte linha: abcdertyhORLANDO PIRES

Acima tenho um total de 22 letras.

Mas como meu campo tem o tamanho 25, entao fico com um espaco em branco no tamanho 3.

Se por exemplo eu quiser pegar a ultima letra do nome PIRES a letra S (é só um exemplo) Da forma correta faria RIGHT(campo,1) = "S"
Mas como tenho espaco sobrando na linha decorrente de ela ter um tamanho de 25 e possuir 22 ocupados de todo seu espaço, a funcao RIGHT(campo,1) nao me traria o "S" e sim um espaco em branco.
Assim como RIGHT(CAMPO,2 ou 3)
Agora se eu fizer RIGHT(CAMPO,4) aí sim obteria o "S"

Minha duvida é se eu precisar pegar algum valor que esteja a direita mas eu tenha ESPAÇOS depois do que preciso.

KKKK desculpa novamente se nao consegui explicar