Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
5 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 5 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Estatísticas
Temos 7082 usuários registrados
O último usuário registrado atende pelo nome de Maiara Bosco

Os nossos membros postaram um total de 49 mensagens em 26 assuntos

Transformar Espaço em coluna

Página 2 de 2 Anterior  1, 2

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Transformar Espaço em coluna

Mensagem por ton_oliver em 1/9/2010, 15:04

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

ton_oliver
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo


Resolvido Re: Transformar Espaço em coluna

Mensagem por ton_oliver em 2/9/2010, 14:05

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
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por ton_oliver em 2/9/2010, 14:20

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.

ton_oliver
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por m@r<3|o em 2/9/2010, 14:36

tiver duvidas só postar
Abrax

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por Marcos Guedes em 2/9/2010, 15:06

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.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por ton_oliver em 2/9/2010, 15:17

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






ton_oliver
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por Marcos Guedes em 2/9/2010, 15:32

Acredito que agora entendi.
Very Happy

Utilize a função ALLTRIM()

Ficaria da seguinte forma:
Código:
RIGHT(ALLTRIM(campo),1)

Seria isto?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por lardecristo em 2/9/2010, 15:43

Olá, Oliver, é o seguinte para o item acima é só colocar o comando da seguinte forma:

RIGHT(ALLTRIM(Campo),1)

O comando ALLTRIM remove os espaços no começo e final da string.

Estava analisando o seu arquivo, e vi vários detalhes, vou gerar o PRG de importação para o mesmo.
Sobre o nome ter tamanho diferente no seu TXT não acontece isso, como falei lá no começo quando é exportado um TXT ele possui um layout, e no seu caso ele tem 50 de espaço para o nome, então se eu pegar da posição inicial do nome (36) e ir até a posição final (85) tenho o nome todo e mais os espaços, bem provavel que no programa que gera este arquivo que é enviado para você tem o campo NOME com o tamanho 50, tem outro vários detalhes.
Uma coisa você tem que levar em consideração o seu registro é de duas linhas, se você importar isso para cada linha para um registro, você vai ter problemas depois para a leitura do mesmo, porque bem provavel que o tamanho de cada campo (layout) seja diferente.

Quando eu postar aqui o PRG, ficará mais fácil para você entender.

Abraços,
avatar
lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por lardecristo em 2/9/2010, 15:44

Marcos me desculpe por escrever a mesma coisa é que eu estava digitando um texto gigante.....rsrsrs....abraços
avatar
lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por ton_oliver em 2/9/2010, 16:03

Pessoal deu certo sim o ALLTRIM com o RTRIM.

Para ter a certeza ainda coloquei o LEN.

SELECT RIGHT(ALLTRIM(campo),1) as Valor,LEN(RIGHT(ALLTRIM(campo),1)) as T FROM teste

Larde agradeco a futura postagem do PRG e esta correto em dizer que o nome tem um tamanho fixo seguindo o LAYOUT que vou obter ainda kkkkk.

Uma coisa que vc disse e é a pura vdd é que a segunda linha esta ligada com a primeira, ou seja, a primeira linha que possui o nome da pessoa a segunda contem informacoes que vou saber quais sao, mas dela.

Mesmo sem saber quais informacoes sao, como poderia proceder para por essa segunda linha junto com a primeira no banco ???

Crio x campos a mais (que eu necessitar) e dou um
replace all camponovo with campo1 ??
dentro de um loop ?

ton_oliver
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por lardecristo em 2/9/2010, 16:12

Lá vai o exemplo

[Você precisa estar registrado e conectado para ver este link.]

Ai tem a importação do arquivo, com campos que imaginei que fossem, agora é só adaptar para o layout que o cara te enviar, se tiver alguma dúvida ou se for o caso me mande o layout e o arquivo mais completo que eu faço o resto.

A forma que pus te dá muita flexibilidade em relação a importação de arquivo em formato TXT, lembrando todos os exemplos anteriores funcionam bem para cada situação, mas por exemplo para importar arquivo 240 posições de retorno de boleto bancário usei a forma que estou postando.

Abraços,
avatar
lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por ton_oliver em 2/9/2010, 16:32

Larder funcionou certinho.

Mexi um pouco pra entender e ver como funciona e deu certo..

Pode nao acreditar, mas estava pesquisando como descobrir numero PAR e IMPAR para usar, pois como vc tb viu no final do TXT tem todas as linhas numeradas.

Marcos, Larder, Alceu, nao quero ser redundante mas obrigado novamente.

Ja disse que o primeiro salario uma porcentagem vai pra vcs kkkk
Pois é justo.... depois me passem suas contas :-) em PVT rssss

Marcos pode fechar o topico.

Soluçao de Importar TXT para DBF ( OK )
Solucao de unir 2 linhas (txt) em apenas uma linha ( OK )
Solucao de tratamento de espaço no final da linha com ALLTRIM e RIGHT


ton_oliver
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por alceu11 em 2/9/2010, 17:54

Pessoal esta detonando com boas solucoes, agora da para importar qualquer txt. ficou bom as solucoes propostas
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por hugo em 2/9/2010, 17:56

reputado lar

Graca e Paz!

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Transformar Espaço em coluna

Mensagem por Marcos Guedes em 2/9/2010, 21:41

[Você precisa estar registrado e conectado para ver este link.] escreveu:Marcos me desculpe por escrever a mesma coisa é que eu estava digitando um texto gigante.....rsrsrs....abraços
Normal... acontece.
hehe

Pelo menos estamos indo no mesmo caminho.
hehe

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Página 2 de 2 Anterior  1, 2

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum