topical media & game development
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

talk show tell print

basic-regex-20-MatchGlobal.htm / htm



  <html>
  <head>
  <title>Carry out a non-global replace and a global replace.</title>
  <script language="vbscript" type="text/vbscript">
  Dim myRegExp, InputString, ChangedString
  
  Function MatchGlobal
  Set myRegExp = new RegExp
  myRegExp.Pattern = "A"
  DoReplaceDefault
  DoReplaceGlobal
  End Function
  
  Function DoReplaceDefault
  InputString = InputBox("Enter a string. It will be tested once to see if it contains" &VBCrLf & "any 'A' characters. Any 'A' will be replaced by 'B'")
  myRegExp.Global = False
  ChangedString = myRegExp.Replace(InputString, "B")
  If myRegExp.Test(InputString) = True Then
    MsgBox "The test string '" & InputString & "' matches the pattern '" & myRegExp.Pattern & "'." & VBCrLf _
    & "The changed string is " & ChangedString
  Else
    MsgBox "There is no match. '" & InputString & "' does not match " &VBCrLf _
    & "the pattern '" & myRegExp.Pattern & "'."
  End If
  End Function
  
  Function DoReplaceGlobal
  InputString = InputBox("Enter a string. It will be tested to see if it contains" &VBCrLf & "any 'A' characters. Any 'A' will be replaced by 'B'")
  myRegExp.Global = True
  ChangedString = myRegExp.Replace(InputString, "B")
  If myRegExp.Test(InputString) = True Then
    MsgBox "The test string '" & InputString & "' matches the pattern '" & myRegExp.Pattern & "'." & VBCrLf _
    & "The changed string is " & ChangedString
  Else
    MsgBox "There is no match. '" & InputString & "' does not match " &VBCrLf _
    & "the pattern '" & myRegExp.Pattern & "'."
  End If
  End Function
  
  </script>
  </head>
  <body onload="MatchGlobal">
  
  </body>
  </html>
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

(C) Æliens 20/2/2008

You may not copy or print any of this material without explicit permission of the author or the publisher. In case of other copyright issues, contact the author.