PEGAR AS 05 PRIMEIRAS LETRAS DO COMBOBOX

GIOVANI.ARRUDA 29/05/2007 15:01:29
#218717

if left(combo1.text,5) = "PGTO:" then
coisa tal
elseif left(combo1.text,5) = "VENC:" then
coisa tal
end if

VBAPRENDE 29/05/2007 15:02:42
#218719 Resposta escolhida

exemplo:
if mid(combo1.text,1,5) = "PGTO:" then
coisa tal
elseif mid(combo1.text,1,5) = "VENC:" then
coisa tal
end if


tenta ai

WEBIER 29/05/2007 15:28:10
#218725

qual a diferença do MID pro LEFT ?

ALMARTI 29/05/2007 15:31:55
#218727

O left é mais rápido. Claro, isto é humanamente imperceptivel. Mas funciona assim:

O MID precisa de um ponto de partida, assim, toda vez que e executado, ele percorre a string até o ponto de partida, para depois ajuntar o total de caracteres previstos, por exemplo MID('Teste',2,1) ele irá percorrer até o caracter 2 e depois separar 1 caracter.

O Left sempre começa do 0

VBAPRENDE 29/05/2007 15:32:17
#218728

left pega os 5 da esquerda para direita
o mid você especifica da onde comeca e aonde termina

no caso acima left(combo1.text,5) ele pega da esquerda para direita 5 caracter.

mid(combo1.text,1,5) ele pega da esquerda para direita 5 caracter mas se eu quisesse pegar do segundo até o quinto eu colocaria mid(combo1.text,2,5) no caso o left não faz isso.

Entendeu?

USUARIO.EXCLUIDOS 29/05/2007 15:35:11
#218730

MID - Exemplo:
Dim s as String
s = "Teste"
msgbox mid(s,1,3) 'Resposta: Tes

LEFT - Exemplo
Dim s as String
s = "Teste"
msgbox left(s,3) 'Resposta: Tes

Como pode observar o LEFT pega uma string em função do tamanho que você especifica a partir da primeira posição à esquerda, já o MID, pega uma string, a partir de uma posição inicial, e o tamanho que você deseja obter.