Pergunta : Ajuda do certificado de VB necessário!


      
            

      
      
      

            
      
      



O código acima está dando um erro. Pode você por favor reparar o programa acima e fazer-lhe o trabalho?

Obrigado

Resposta : Ajuda do certificado de VB necessário!

Tentar isto.

~bp
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

MethExecute secundário ()
 
   objRegEx não ofuscante, objMatch, strString, strDisplayMsg
 
   Ajustar o objRegEx = o CreateObject (“VBScript.RegExp”)
   objRegEx.Pattern = “urso”
   objRegEx.Global = retificam
   objRegEx.IgnoreCase = retificam            
 
   strString = “uma vez lá era três pouco ursos. Havia mama urso, urso da papá e urso do bebê”
 
   strDisplayMsg = ""
 
   Para cada objMatch em objRegEx.Execute (strString)
      o strDisplayMsg = o strDisplayMsg & “um exemplo de” + objMatch.Value & “encontraram na posição” & o CStr (CInt (objMatch.FirstIndex) + 1) & o VbCrlf
   Em seguida
 
   MsgBox (strDisplayMsg)      
   
Submarino da extremidade
Outras soluções  
 
programming4us programming4us