Cuestión : ¡Ayuda de la escritura de VB necesaria!


      
            

      
      
      

            
      
      



El código antedicho está dando un error. ¿Puede usted fijar por favor el programa antedicho y hacerle el trabajo?

Gracias

Respuesta : ¡Ayuda de la escritura de VB necesaria!

Intentar esto.

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

MethExecute secundario ()
 
   objRegEx dévil, objMatch, strString, strDisplayMsg
 
   Fijar el objRegEx = CreateObject (“VBScript.RegExp”)
   objRegEx.Pattern = “oso”
   objRegEx.Global = verdad
   objRegEx.IgnoreCase = verdad            
 
   el strString = “érase una vez allí era tres las Osas Menor. Había mam3a oso, oso de la papá y oso del bebé”
 
   strDisplayMsg = ""
 
   Para cada objMatch en objRegEx.Execute (el strString)
      el strDisplayMsg = el strDisplayMsg y “un caso de” + objMatch.Value y “encontraron en la posición” y CStr (CInt (objMatch.FirstIndex) + 1) y VbCrlf
   Después
 
   MsgBox (strDisplayMsg)      
   
Submarino del extremo
Otras soluciones  
 
programming4us programming4us