Two nice library that help you speed up your VB 6.0 / VBA development time are the
1) Microsoft Scripting Run Time library
The two most interestinjg objects here are the
Dictionary object which is an hashtable. Its only major draw back is that it does not expose the NewEnum function, which means that while you can wrap it up to create a strongly type dictionary object, you cannot create a NewEnum method to loop through the collection using the For Each statement
FileSystemObject which let you easily access to files and folders
2) Microsoft VBScript Regural Expression 5.5.
This is a really nice library to use to test a string using regular expression.
This is an example on how it works:
Function TestRegExp(myPattern As String, myString As String) 'Create objects. Dim objRegExp As RegExp Dim objMatch As Match Dim colMatches As MatchCollection Dim RetStr As String ' Create a regular expression object. Set objRegExp = New RegExp 'Set the pattern by using the Pattern property. objRegExp.Pattern = myPattern ' Set Case Insensitivity. objRegExp.IgnoreCase = True 'Set global applicability. It search the entire string objRegExp.Global = True 'Test whether the String can be compared. If (objRegExp.Test(myString) = True) Then 'Get the matches. Set colMatches = objRegExp.Execute(myString) ' Execute search. For Each objMatch In colMatches ' Iterate Matches collection. RetStr = RetStr & "Match found at position " RetStr = RetStr & objMatch.FirstIndex & ". Match Value is '" RetStr = RetStr & objMatch.Value & "'." & vbCrLf Next Else RetStr = "String Matching Failed" End If TestRegExp = RetStr End Function
You can test your regual expression here
An excellent introduction to regular expression can be found in this code project article
No comments:
Post a Comment