Questione : Aiuto dello scritto di VB stato necessario!


      
            

      
      
      

            
      
      



Il codice di cui sopra sta dando un errore. Potete riparare prego il programma di cui sopra e rendergli il lavoro?

Grazie

Risposta : Aiuto dello scritto di VB stato necessario!

Provare questo.

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

MethExecute secondario ()
 
   objRegEx fioco, objMatch, strString, strDisplayMsg
 
   Regolare il objRegEx = CreateObject (“VBScript.RegExp„)
   objRegEx.Pattern = “orso„
   objRegEx.Global = allineano
   objRegEx.IgnoreCase = allineano            
 
   strString = “una volta là era tre piccolo orsi. Ci era mama orso, orso del papà ed orso del bambino„
 
   strDisplayMsg = ""
 
   Per ogni objMatch in objRegEx.Execute (strString)
      lo strDisplayMsg = lo strDisplayMsg & “un caso di„ + objMatch.Value & “hanno trovato alla posizione„ & a CStr (CInt (objMatch.FirstIndex) + 1) & VbCrlf
   Dopo
 
   MsgBox (strDisplayMsg)      
   
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us