Fråga : VB skrivar behövd hjälp!


      
            

      
      
      

            
      
      



De ovannämnda kodifierar ger ett fel. Kan du behaga knipan det ovannämnda programet och göra det arbete?

Tack

Svar : VB skrivar behövd hjälp!

Försök detta.

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

UnderMethExecute ()
 
   Dunkel objRegEx, objMatch som strString, strDisplayMsg
 
   Fastställd objRegEx = CreateObject (”VBScript.RegExp”)
   objRegEx.Pattern = ”björn”,
   objRegEx.Global = True
   objRegEx.IgnoreCase = True            
 
   strString = ”en gång på en tid där var tre lite björnar. Det fanns mamaen björnen, farbjörn och behandla som ett barn björnen”,
 
   strDisplayMsg = "",
 
   För varje objMatch i objRegEx.Execute (strString)
      strDisplayMsg = strDisplayMsg & ”en anföra som exempel av” + objMatch.Value & ”grundar på placerar” & CStr (CInt (objMatch.FirstIndex) + 1) & VbCrlf
   Därefter
 
   MsgBox (strDisplayMsg)      
   
Avsluta suben
Andra lösningar  
 
programming4us programming4us