Busca string - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: Busca string

Irenko

BELO HORIZONTE
MG - BRASIL

Postada em 07/07/2006 11:23 hs

Com o código faço o seguinte, retiro de um texto a data ex:

PRAZO PREVISTO PARA EMBARQUE 06/07/06

Resultado: 06/07/06

Mas quando o texto é:

PRAZO PREVISTO PARA EMBARQUE 06/07/2006

Não consegue carregar!

Como adapto o codigo para ler os dois tipos?

Dim intPosicao, intPosicao2 As Integer, texto, texto2 As String

texto = Tb_Ltd2!Obs
intPosicao = InStr( texto, "/") 'procura a posição da primeira "/"
If intPosicao > 0 Then
intPosicao2 = InStr(intPosicao, texto, " ")
texto2 = Trim(Mid(texto, intPosicao - 2, intPosicao2 - intPosicao + 2))
Else
texto2 = ""
End If

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 07/07/2006 11:39 hs

Exemplo:

Dim intPosicao As Long, intPosicao2 As Integer
Dim texto As String, Texto2 As String

texto = "PRAZO PREVISTO PARA EMBARQUE 06/07/2006"

intPosicao = InStr(texto, "/") 'procura a posição da primeira "/"

If intPosicao > 0 Then

intPosicao2 = InStr(intPosicao, texto, " ")
Texto2 = Trim(Mid(texto, intPosicao - 2, Len(texto) - (intPosicao - 3)))

Else
Texto2 = ""
End If

tenta ae

qq dúvida é só postar

t+

Página(s): 1/1


		CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site