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