PROCURAR STRING E TIRAR ELA

USUARIO.EXCLUIDOS 21/12/2006 11:50:44
#191441
Como faço pra procurar um ponto e virgula em uma string pra depois tirar ela fora?
POr exemplo
12345;45678;7897;
Que quero arrancar apenas o ultimo ponto e virgula
que vai ficar assim:
12345;45678;7897
CLEVERTON 21/12/2006 11:59:34
#191443 Resposta escolhida
Tenta Assim:


Dim PosUltimoPontoVirgula As Integer
PosUltimoPontoVirgula = InStrRev("12345;45678;7897", ";")

If PosUltimoPontoVirgula > 0 Then
    MsgBox Mid("12345;45678;7897", 1, PosUltimoPontoVirgula - 1) & Replace("12345;45678;7897", ";", "", PosUltimoPontoVirgula)
End If
LIONHEART 21/12/2006 11:59:38
#191444
--- Comentário Inútil anulado... ------
LIONHEART 21/12/2006 12:04:11
#191446

dim sAux as string

sAux = StrReverse(TEXTO)

if Mid(sAux, 1, 1) = ";" then
TEXTO = StrReverse ( mid(sAux, 2) )
End if



Agora sim ^^
CLEVERTON 21/12/2006 12:08:40
#191449
Se o Ponto e Virgula sempre ficar no final, a forma mais simples é

Msgbox Mid("12345;45678;7897;",1,Len("12345;45678;7897;") - 1)
LIONHEART 21/12/2006 12:52:03
#191457
se sempre fica no final, pode ser assim tb:

TEXTO = Left (TEXTO, Len(TEXTO) - 1)
CLEVERTON 21/12/2006 13:20:50
#191469
Me Venceu! Não tenho mais argumentos
Huhahuauhuhauhauhuhauhhua

Ia colocar o Right, mais ia ficar toscão

Viu LionWilicaT

Patetão!!! [S41]
USUARIO.EXCLUIDOS 21/12/2006 13:31:39
#191473
Trocar todos os pontos e virgulas
for i = 1 to len(var_texto)
  if mid(var_texto,1,i) = ";" then
    replace(var_texto,";","")
  end if
next


Apenas o ultimo ponto e virgula
pos = len(var_texto)
if mid(var_texto,1,pos-1) = ";" then
  replace(var_texto,";","",pos - 1)
end if
LIONHEART 21/12/2006 13:37:24
#191474
Citação:

CLEVERTON escreveu:
Me Venceu! Não tenho mais argumentos
Huhahuauhuhauhauhuhauhhua

Ia colocar o Right, mais ia ficar toscão

Viu LionWilicaT

Patetão!!! [S41]



Eu ainda tenho mais um, Pateta!!

Replace( TEXTO, 1, len(TEXTO) - 1)

ehehehehehehehehehehe

Eu tava esperando alguma resposta sua nesse sentido auuhahuahuahuahuahuahua
CLEVERTON 21/12/2006 13:38:22
#191475
é Mermo [S21]

Patetão!!!
CLEVERTON 21/12/2006 13:44:29
#191481
PeraÃÅ ÃÅ ÃÅ ÃÅ 

Esse código não faz sentido

Replace( TEXTO, 1, len(TEXTO) - 1)

Replace("1234;", 1, len("1234;") - 1)

és louco ???

Hhuahuahuauhuhauhauhauha
eu sou o cara, namoral
Tópico encerrado , respostas não são mais permitidas
Voltar