Frage : VB Indexhilfe benötigt!


      
            

      
      
      

            
      
      



Der oben genannte Code gibt eine Störung. Können Sie das oben genannte Programm bitte regeln und es Arbeit bilden?

Danke

Antwort : VB Indexhilfe benötigt!

Dieses versuchen.

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

VorMethExecute ()
 
   Schwaches objRegEx, objMatch, strString, strDisplayMsg
 
   objRegEx = CreateObject („VBScript.RegExp“) einstellen
   objRegEx.Pattern = „Bär“
   objRegEx.Global = ausrichten en
   objRegEx.IgnoreCase = ausrichten en            
 
   das strString = „einst dort waren drei wenig Bären. Es gab Mutter Bär, Papa Bären und Babybären“
 
   strDisplayMsg = ""
 
   Für jedes objMatch in objRegEx.Execute (strString)
      strDisplayMsg = strDisplayMsg u. „ein Fall von“ + objMatch.Value u. „gefunden bei der Position“ u. bei CStr (CInt (objMatch.FirstIndex) + 1) u. VbCrlf
   Zunächst
 
   MsgBox (strDisplayMsg)      
   
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us