Olá pessoal,

Eu tenho uma variavel com o conteudo:

nomeA, nomeB, nomeC... e gostaria de comparar um nome fixo com ela... por ex: o nome fixo seria nomeB, aí retornaria verdadeiro ou algo assim...

não sei se deu pra entender,

T +

Nao sei se entendi bem mais vamos la.

 

Se for um array

dim i as long

for i=1 to 3 'Para este caso que o array é 3

   if var(i) = "nomeB" then

       msgbox "Achou!!!!"

   endif

Next

 

se um variavel normal

dim mComeco as long

mcomeco = instr(1,"nomeA,nomeB,nomeC","nomeB")

msgboxbox mid("nomeA,nomeB,nomeC",mcomeco,len("nomeB"))

 

 

Espero ter ajudado

    'Ex1

    Dim sNomes As String
    Dim sNomesTemp As String
   
    sNomes = "nomeA, nomeBb, nomeC"
    sNomesTemp = Replace(UCase(sNomes), "NOMEB", "XXXX")
    If sNomesTemp <> sNomes Then MsgBox "Encontrou"
   
    'Só tem um problema, ele encontrará qualquer nome que contenha nomeb
   
    'Ex2
    Dim aNomes() As String
    'Usando o snomes declarado no exemplo 1
   
    aNomes = Split(sNomes, ", ")
   
    For i = 0 To UBound(aNomes)
        If UCase(aNomes(i)) = UCase("NomeB") Then MsgBox "Encontrou": Exit For
    Next