Vraag : VB nodig de hulp van het manuscript!


      
            

      
      
      

            
      
      



De bovengenoemde code geeft een fout. Kunt u het bovengenoemde programma tot het het werk maken alstublieft bevestigen en?

Dank

Antwoord : VB nodig de hulp van het manuscript!

Probeer dit.

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

Sub MethExecute ()
 
   Schemerige objRegEx die, objMatch, strDisplayMsg strString
 
   Reeks objRegEx = CreateObject („VBScript.RegExp“)
   objRegEx.Pattern = „beer“
   objRegEx.Global = Waar
   objRegEx.IgnoreCase = Waar            
 
   het strString = „eens er waren drie weinig draagt. Er was mamma draagt, draagt de pa en de baby draagt“
 
   strDisplayMsg = ""
 
   Voor Elke objMatch in objRegEx.Execute (het strString)
      strDisplayMsg = strDisplayMsg & een „Geval van“ + objMatch.Value & „gevonden in positie“ & CStr (CInt (objMatch.FirstIndex) + 1) & VbCrlf
   Daarna
 
   MsgBox (strDisplayMsg)      
   
Sub van het eind
Andere oplossingen  
 
programming4us programming4us