|
|
Postada em 03/11/2005 09:45 hs
Bom dia, preciso de uma ajuda para extrair de um string uma sub string, excemplo: nas strings: P307=p308=p310 ou b01=b05=b310 Preciso pegar somente parte do string antes do primeiro sinal de igual, n 1º exemplo pegar somente P307 e no segundo exemplo pegar somente b01. Existe alguma função que faça isto ? Agradeço muito a quem puder ajudar. Ivan |
|
|
|
|
|
|
|
Postada em 03/11/2005 10:17 hs
Achei aqui em meus exemplos como fazer utilizando a função Mid. Agradeço de qualquer maneira a todos. Ivan Public Function primeira(palavra As String) As String
For i = 1 To Len(palavra)
If Mid(palavra, i, 1) <> "=" Then
aux = aux + Mid(palavra, i, 1)
Else
Exit For
End If
Next
Text1.Text = aux
End Function
|
|
|
|
Erico
|
SALVADOR
BA - BRASIL
|
|
Postada em 03/11/2005 10:44 hs
Ivan, Verifique a função INSTR, ela vai otimizar o seu código.
A.Erico S.Peixoto -------------------- Analista de Sistemas
|
|
|
|
|
|
Postada em 03/11/2005 11:13 hs
Dim strABC As String
Dim intPosicao As Integer
strABC = "P307=p308=p310"
intPosicao = InStr(1, strABC, "=")
MsgBox Mid(strABC, 1, intPosicao - 1)
|
|
|
|
|
|
Postada em 03/11/2005 11:48 hs
Por exemplo: str tem a string q vc quer subtrair vc vai gravar em result: result = Left(InStr(1, str, "=")-1) Flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 03/11/2005 21:17 hs
Valeu pessoal, muito obrigado a todos que colaboraram com suas sugestões. Ivan |
|
|
|
