Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
24 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 23 Visitantes :: 2 Motores de busca

newtonrio

[ Ver toda a lista ]


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

28/3/2017, 10:59 por Clebervfp

Boa dia, estou com um problema com vfp9, se alguém poder me ajudar fico agradecido!

Tenho um …

Comentários: 0

Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Estatísticas
Temos 7042 usuários registrados
O último usuário registrado atende pelo nome de brunobpc77

Os nossos membros postaram um total de 32 mensagens em 18 assuntos

Quebra de string por um determinado caracter

Novo Tópico   Responder ao tópico

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

Resolvido Quebra de string por um determinado caracter

Mensagem por emircalife em 7/6/2010, 10:11

Bom dia Foxers, estou com o seguinte problema, tenho que pegar uma string e quebrar por um determinado caracter.
Ex. "EMIR;TEOFILO;CALIFE;NETO;"

Obter:
"EMIR"
"TEOFILO"
"CALIFE"
"NETO"

Estou tentando sem sucesso da seguinte forma:

Código:
LOCAL   lnPosicAnt   AS   INTEGER
LOCAL   lcCaptura   AS   STRING
LOCAL   lcResponse   AS   STRING

lcResponse   =   "EMIR;TEOFILO;CALIFE;NETO;"
lnPosicAnt   =   1
lcCaptura   =   ""
FOR i=1 TO Len( lcResponse ) STEP 1
   IF ( subStr( lcResponse, i, 1 ) == ";" ) THEN
      lcCaptura   =   lcCaptura + subStr( lcResponse, lnPosicAnt, i -1 ) + Chr( 13 ) + Chr( 10 )
      lcResponse   =   subStr( lcResponse, i +1, Len( lcResponse ) )
      lnPosicAnt   =   i
   ENDIF
ENDFOR
?lcCaptura

emircalife
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: Quebra de string por um determinado caracter

Mensagem por Marcos Guedes em 7/6/2010, 11:05

Algum destes exemplos resolve?
Código:
CLEAR

*!* Constantes
#DEFINE _enter CHR(10)+CHR(13)
#DEFINE delimitador ";"

*!* Define o valor de entrada
LOCAL entrada AS STRING
m.entrada = "EMIR;TEOFILO;CALIFE;NETO;"

*!* Exemplo 1
?STRTRAN(m.entrada,delimitador,CHR(10)+CHR(13))

*!* Exemplo 2
FOR m.contador=1 TO GETWORDCOUNT(m.entrada,delimitador)
   ?GETWORDNUM(m.entrada,m.contador,delimitador)
ENDFOR

_________________
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: Quebra de string por um determinado caracter

Mensagem por emircalife em 7/6/2010, 11:09

Todos os 2 resolvem. Obrigado.

emircalife
Começando a Participar
Começando a Participar


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