Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
9 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 9 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Alterar uma palavra num arquivo de texto
Ontem à(s) 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

» Pesquisa em grid
14/9/2016, 09:24 por AJC

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6960 usuários registrados
O último usuário registrado atende pelo nome de Maycon Hersing

Os nossos membros postaram um total de 17118 mensagens em 2576 assuntos

Busca de Texto após um caracter

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

Resolvido Busca de Texto após um caracter

Mensagem por Nelson Arcas em 2/8/2010, 14:11

Pessoal
Preciso lê diversos arquivos de extensão "PRG" e gravar em um arquivo texto todas as palavras que possuem mais do que 10 caracteres após "."

Exemplo
Código:

Procedure ativo

Select cadfunc.matricula, cadfunc.probabilidade;
from cadfunc;
where cadfunc.ativo=.T.;
INTO CURSOR AUXFUNC
return

Nesse exemplo deveria levar para o arquivo texto a palavra "Probabilidade"

Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Dividindo um texto em 2 a partir de um caracter qualquer

Mensagem por wms em 3/8/2010, 08:40

Nelson,

Estou te mandando um exemplo onde eu busco dentro de uma string um caracter qualquer e divido-a em 2 partes assim eu posso pegar tanto a primeira parte da string, como quantos caracteres eu quiser da segunda parte.



Código:
   lcFind_Str   = "."

            lcRazaoDest= curPedidos.RazaoDest
   lc1Nome   = SUBSTR(lcRazaoDest,1,AT(".",lcRazaoDest)-1)
   IF !EMPTY(lc1Nome)
      lnPos   = AT(lcFind_Str,lcRazaoDest,1) + 1
      lnQtd   = 40 - lnPos
      lc2Nome   = SUBSTR(lcRazaoDest,lnPos,lnQtd)
      lcNome   = lc1Nome+" "+lc2Nome
   ELSE
      lcNome   = lcRazaoDest
   ENDIF
   lcrazaoSocialDestinatario   = lcNome

Neste meu exemplo eu pego a Razão Social do meu destinatário de dentro do cursor curPedidos; Em seguida eu verifico se dentro desta Razão Social existe o caracter "." (ponto).
Caso exista eu vou me posicionar exatamente no primeiro caracter após o "." (ponto) dentro da Razão Social
Código:
lnPos   = AT(lcFind_Str,lcRazaoDest,1) + 1
, sabendo inclusive a posição numérica desta posição.
Em seguida eu vou calcular exatamente quantos caracteres existem após o "." dentro da Razão Social
Código:
lnQtd   = 40 - lnPos
.
Feito isso você já pode pegar os 10 caracteres desejados:
Código:
lc2Nome   = SUBSTR(lcRazaoDest,lnPos,lnQtd)
. Aqui você troca a variável lnQtde pela sua quantidade 10.

É isso que você esta precisando?
Espero ter ajudado.

Abraços!

wms
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Busca de Texto após um caracter

Mensagem por Nelson Arcas em 3/8/2010, 11:54

Muito obrigado funcionou sim

Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Busca de Texto após um caracter

Mensagem por hugo em 3/8/2010, 12:00

boa wms

reputado

_________________
"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.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Busca de Texto após um caracter

Mensagem por Conteúdo patrocinado Hoje à(s) 05:10


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

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