VBScript Tutorial 7
(VBScript File System Operations Part-2)
6) Create a Text file
Note: File System Object is exclusively used for Drives, Folders together with Flat files.
We tin practise together with delete other types of also, merely nosotros can't perform internal operations similar Reading, Writing etc...
Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.txt"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.doc"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.xls"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.pdf"
Set objFso = Nothing
-------------------------------------
7) Delete a Text file
Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.DeleteFile "C:\Users\gcreddy\Desktop\QTP.txt"
objFso.DeleteFile "C:\Users\gcreddy\Desktop\QTP.doc"
objFso.DeleteFile "C:\Users\gcreddy\Desktop\QTP.xls"
objFso.DeleteFile "C:\Users\gcreddy\Desktop\QTP.pdf"
Set objFso = Nothing
-----------------------------------------------
External Operations
Create a Text file
Delete a Text file
Check being of a File
Count size
etc...
Internal operations
Read
Read grapheme yesteryear Character
Read Line yesteryear Line
Read All
Write
Write Continuously
Write Line yesteryear Line
Append
Compare
Compare 2 text files yesteryear Size (*External operation)
Compare 2 text files yesteryear Text
Compare 2 text files yesteryear Binary values.
Search operations
--------------------------------------------------
> using File System object nosotros tin perform External File operations
> Using Text current object nosotros tin perform Internal operations.
> Using File System Object nosotros tin practise Text current object.
Create File System Object
Set Variable = CreateObject("Scripting.FileSystemObject")
Create Text Stream object
Set Variable = FileSystemObject.CreateTextFile / OpenTextFile("File path", File mode)
File Modes for Text files
-------------------------
i) i for Read
ii) 2 for Write
iii) 8 for Append
----------------------------
Note: Read means is default mode.
Examples:
---------------------
8) Read a Text File Character yesteryear Character
Dim objFso, objTextstream, myChar
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Do While objTextstream.AtEndOfStream = False
myChar = objTextstream.Read(1)
Msgbox myChar
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
--------------------------------
9) Read a Text File Line yesteryear Line
Dim objFso, objTextstream, myLine
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Do While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
Msgbox myLine
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
--------------------------------------
10) Read a text file (read all)
Dim objFso, objTextstream, myContent
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Do While objTextstream.AtEndOfStream = False
myContent = objTextstream.ReadAll
Msgbox myContent
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
------------------------------------------
Dim objFso, objTextstream, myContent
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\UFT.txt")
Do While objTextstream.AtEndOfStream = False
myContent = objTextstream.ReadAll
Print myContent
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
-------------------------------------
Note: Print dominance is non a Global VBScript command, it is exclusively for UFT.
11) Read Test information from a text file together with perform Data driven Testing for Login functionality.
Dim objFso, objTextstream, myLine, myField
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt")
objTextStream.SkipLine 'To skip the 1st line
Do Until objTextStream.AtEndOfStream
myLine = objTextStream.ReadLine
myField = Split(myLine, ", ")
SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe"
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
Wait 2
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
Loop
objTextStream.Close
Set objTextStream = Nothing
Set objFso = Nothing
----------------------------------
12) Read Test information (Range of Records, ex: iv to vii records) from a Text file together with perform Data driven Testing for Login functionality.
Dim objFso, objTextstream, myLine, myField, LineCount
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt")
LineCount = 0
Do Until objTextStream.AtEndOfStream
myLine = objTextStream.ReadLine
LineCount = LineCount + 1
If LineCount > iv And LineCount < nine Then
myField = Split(myLine, ", ")
SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe"
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
Wait 2
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
End If
Loop
objTextStream.Close
Set objTextStream = Nothing
Set objFso = Nothing
---------------------------------------------
13) Write information to a Text file
Dim objFso, objTextstream, num1, num2, result
num1 = 10 : num2 = thirty : number = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 2)
objTextStream.Write "Addition of num1, num2 is: " & result
objTextstream.Close
Set objTextStream = Nothing
Set objFso = Nothing
14) Append information to a Text file
Dim objFso, objTextstream, num1, num2, result
num1 = 10 : num2 = sixty : number = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 8)
objTextStream.Write "Addition of num1, num2 is: " & result
objTextstream.Close
Set objTextStream = Nothing
Set objFso = Nothing
------------------------------
Dim objFso, objTextstream, num1, num2, result
num1 = 10 : num2 = lxxx : number = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 8)
objTextStream.WriteLine "Addition of num1, num2 is: " & result
objTextstream.Close
Set objTextStream = Nothing
Set objFso = Nothing
------------------------------------
15) Read Button Names from Login Dialog box together with export to a Text file
Dim objFso, objTextstream, oButton, Buttons, i
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 2)
Set oButton = Description.Create
oButton("Class Name").Value = "WinButton"
Set Buttons = Dialog("Login").ChildObjects(oButton)
'Msgbox Buttons.count
objTextstream.WriteLine "button Names"
objTextstream.WriteLine "---------"
For i = 0 To Buttons.count - i Step 1
objTextstream.WriteLine Buttons(i).GetRoProperty("text")
Next
objTextStream.Close
Set objTextStream = Nothing
Set objFso = Nothing
---------------------------------------------
16) Read Link Names from Rediff domicile page together with export to a text file
Dim objFso, objTextstream, oLink, Links, i, sno
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 2)
Set oLink = Description.Create
oLink("micclass").Value = "Link"
Set Links = Browser("Rediff.com: Online Shopping,").Page("Rediff.com: Online Shopping,").ChildObjects(oLink)
objTextstream.WriteLine "Link Names"
sno = 0
For i = 0 To Links.count - i Step 1
sno = sno + 1
objTextstream.WriteLine sno& ") " &Links(i).GetRoProperty("text")
Next
objTextStream.Close
Set objTextStream = Nothing
Set objFso = Nothing
--------------------------------------------------
17) Read Customer names from i to 10 Records together with export to a Text file
Dim objFso, objTextstream, CustomerName
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 2)
sno = 0
objtextstream.WriteLine "Customer Names"
For i = i To 10 Step 1
Window("Flight Reservation").Activate
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set i
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
CustomerName = Window("Flight Reservation").WinEdit("Name:").GetROProperty("text")
sno = sno + 1
objTextstream.WriteLine sno &") " & CustomerName
Next
objTextStream.Close
Set objTextStream = Nothing
Set objFso = Nothing
-----------------------------------------
18) Compare 2 text file yesteryear Size, yesteryear Text together with yesteryear Binary values.
Dim objFso, File1, File2, objTextstream1, objTextstream2, Read1, Read2
File1 = "C:\Users\gcreddy\Desktop\abc.txt"
File2 = "C:\Users\gcreddy\Desktop\xyz.txt"
Set objFso = CreateObject("Scripting.FileSystemObject")
'Msgbox "File i Size is: " & objFso.GetFile(File1).Size & " Bytes"
'Msgbox "File 2 Size is: " & objFso.GetFile(File2).Size & " Bytes"
'Compare 2 text files yesteryear Size
If objFso.GetFile(File1).Size = objFso.GetFile(File2).Size Then
Msgbox "Files are Same yesteryear Size"
Else
Msgbox "Files are Not Same yesteryear Size"
End If
'Compare 2 text files yesteryear Text
Set objTextstream1 = objFso.OpenTextFile(File1)
Set objTextstream2 = objFso.OpenTextFile(File2)
Read1 = objTextstream1.ReadAll
Read2 = objTextstream2.ReadAll
If StrComp(Read1, Read2, 1) = 0 Then
Msgbox "Files are Same yesteryear Text"
Else
Msgbox "Files are Not Same yesteryear Text"
End If
'Compare Two text file yesteryear Binary (ANSI grapheme codes) Values
If StrComp(Read1, Read2, 0) = 0 Then
Msgbox "Files are Same"
Else
Msgbox "Files are Not Same"
End If
objTextstream1.Close
objTextstream2.Close
Set objTextstream1 = Nothing
Set objTextstream2 = Nothing
Set objFso = Nothing
--------------------------------------------------
How to piece of employment amongst multiple Text files?
By using multiple Text Stream objects.
-----------------------------------------------------
19) Count how many times the discussion "UFT" appeared inwards a Text file
Dim objfso, objTextstream, objRegEx, matches, myContent
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\abc.txt")
myContent = objTextStream.ReadAll
Set objRegEx = New RegExp
objRegEx.pattern = "UFT"
objRegEx.Global = True ' To discovery all matches
objRegEx.IgnoreCase = True 'To ignore cases (Considers Upper together with Lower illustration letters)
Set matches = objRegex.Execute(myContent)
Msgbox matches.count
objTextStream.Close
Set objRegEx = Nothing
Set objTextStream = Nothing
Set objFso = Nothing
-------------------------------------------
Create Regular Expression Object
No specific Class for creating Regular Expression Object, using New together with RegExp keywords nosotros tin practise Regular Expression Object.
(VBScript File System Operations Part-2)
6) Create a Text file
Note: File System Object is exclusively used for Drives, Folders together with Flat files.
We tin practise together with delete other types of also, merely nosotros can't perform internal operations similar Reading, Writing etc...
Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.txt"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.doc"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.xls"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.pdf"
Set objFso = Nothing
-------------------------------------
7) Delete a Text file
Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.DeleteFile "C:\Users\gcreddy\Desktop\QTP.txt"
objFso.DeleteFile "C:\Users\gcreddy\Desktop\QTP.doc"
objFso.DeleteFile "C:\Users\gcreddy\Desktop\QTP.xls"
objFso.DeleteFile "C:\Users\gcreddy\Desktop\QTP.pdf"
Set objFso = Nothing
-----------------------------------------------
External Operations
Create a Text file
Delete a Text file
Check being of a File
Count size
etc...
Internal operations
Read
Read grapheme yesteryear Character
Read Line yesteryear Line
Read All
Write
Write Continuously
Write Line yesteryear Line
Append
Compare
Compare 2 text files yesteryear Size (*External operation)
Compare 2 text files yesteryear Text
Compare 2 text files yesteryear Binary values.
Search operations
--------------------------------------------------
> using File System object nosotros tin perform External File operations
> Using Text current object nosotros tin perform Internal operations.
> Using File System Object nosotros tin practise Text current object.
Create File System Object
Set Variable = CreateObject("Scripting.FileSystemObject")
Create Text Stream object
Set Variable = FileSystemObject.CreateTextFile / OpenTextFile("File path", File mode)
File Modes for Text files
-------------------------
i) i for Read
ii) 2 for Write
iii) 8 for Append
----------------------------
Note: Read means is default mode.
Examples:
---------------------
8) Read a Text File Character yesteryear Character
Dim objFso, objTextstream, myChar
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Do While objTextstream.AtEndOfStream = False
myChar = objTextstream.Read(1)
Msgbox myChar
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
--------------------------------
9) Read a Text File Line yesteryear Line
Dim objFso, objTextstream, myLine
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Do While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
Msgbox myLine
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
--------------------------------------
10) Read a text file (read all)
Dim objFso, objTextstream, myContent
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Do While objTextstream.AtEndOfStream = False
myContent = objTextstream.ReadAll
Msgbox myContent
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
------------------------------------------
Dim objFso, objTextstream, myContent
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\UFT.txt")
Do While objTextstream.AtEndOfStream = False
myContent = objTextstream.ReadAll
Print myContent
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
-------------------------------------
Note: Print dominance is non a Global VBScript command, it is exclusively for UFT.
11) Read Test information from a text file together with perform Data driven Testing for Login functionality.
Dim objFso, objTextstream, myLine, myField
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt")
objTextStream.SkipLine 'To skip the 1st line
Do Until objTextStream.AtEndOfStream
myLine = objTextStream.ReadLine
myField = Split(myLine, ", ")
SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe"
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
Wait 2
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
Loop
objTextStream.Close
Set objTextStream = Nothing
Set objFso = Nothing
----------------------------------
12) Read Test information (Range of Records, ex: iv to vii records) from a Text file together with perform Data driven Testing for Login functionality.
Dim objFso, objTextstream, myLine, myField, LineCount
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt")
LineCount = 0
Do Until objTextStream.AtEndOfStream
myLine = objTextStream.ReadLine
LineCount = LineCount + 1
If LineCount > iv And LineCount < nine Then
myField = Split(myLine, ", ")
SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe"
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
Wait 2
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
End If
Loop
objTextStream.Close
Set objTextStream = Nothing
Set objFso = Nothing
---------------------------------------------
13) Write information to a Text file
Dim objFso, objTextstream, num1, num2, result
num1 = 10 : num2 = thirty : number = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 2)
objTextStream.Write "Addition of num1, num2 is: " & result
objTextstream.Close
Set objTextStream = Nothing
Set objFso = Nothing
14) Append information to a Text file
Dim objFso, objTextstream, num1, num2, result
num1 = 10 : num2 = sixty : number = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 8)
objTextStream.Write "Addition of num1, num2 is: " & result
objTextstream.Close
Set objTextStream = Nothing
Set objFso = Nothing
------------------------------
Dim objFso, objTextstream, num1, num2, result
num1 = 10 : num2 = lxxx : number = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 8)
objTextStream.WriteLine "Addition of num1, num2 is: " & result
objTextstream.Close
Set objTextStream = Nothing
Set objFso = Nothing
------------------------------------
15) Read Button Names from Login Dialog box together with export to a Text file
Dim objFso, objTextstream, oButton, Buttons, i
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 2)
Set oButton = Description.Create
oButton("Class Name").Value = "WinButton"
Set Buttons = Dialog("Login").ChildObjects(oButton)
'Msgbox Buttons.count
objTextstream.WriteLine "button Names"
objTextstream.WriteLine "---------"
For i = 0 To Buttons.count - i Step 1
objTextstream.WriteLine Buttons(i).GetRoProperty("text")
Next
objTextStream.Close
Set objTextStream = Nothing
Set objFso = Nothing
---------------------------------------------
16) Read Link Names from Rediff domicile page together with export to a text file
Dim objFso, objTextstream, oLink, Links, i, sno
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 2)
Set oLink = Description.Create
oLink("micclass").Value = "Link"
Set Links = Browser("Rediff.com: Online Shopping,").Page("Rediff.com: Online Shopping,").ChildObjects(oLink)
objTextstream.WriteLine "Link Names"
sno = 0
For i = 0 To Links.count - i Step 1
sno = sno + 1
objTextstream.WriteLine sno& ") " &Links(i).GetRoProperty("text")
Next
objTextStream.Close
Set objTextStream = Nothing
Set objFso = Nothing
--------------------------------------------------
17) Read Customer names from i to 10 Records together with export to a Text file
Dim objFso, objTextstream, CustomerName
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\testdata.txt", 2)
sno = 0
objtextstream.WriteLine "Customer Names"
For i = i To 10 Step 1
Window("Flight Reservation").Activate
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set i
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
CustomerName = Window("Flight Reservation").WinEdit("Name:").GetROProperty("text")
sno = sno + 1
objTextstream.WriteLine sno &") " & CustomerName
Next
objTextStream.Close
Set objTextStream = Nothing
Set objFso = Nothing
-----------------------------------------
18) Compare 2 text file yesteryear Size, yesteryear Text together with yesteryear Binary values.
Dim objFso, File1, File2, objTextstream1, objTextstream2, Read1, Read2
File1 = "C:\Users\gcreddy\Desktop\abc.txt"
File2 = "C:\Users\gcreddy\Desktop\xyz.txt"
Set objFso = CreateObject("Scripting.FileSystemObject")
'Msgbox "File i Size is: " & objFso.GetFile(File1).Size & " Bytes"
'Msgbox "File 2 Size is: " & objFso.GetFile(File2).Size & " Bytes"
'Compare 2 text files yesteryear Size
If objFso.GetFile(File1).Size = objFso.GetFile(File2).Size Then
Msgbox "Files are Same yesteryear Size"
Else
Msgbox "Files are Not Same yesteryear Size"
End If
'Compare 2 text files yesteryear Text
Set objTextstream1 = objFso.OpenTextFile(File1)
Set objTextstream2 = objFso.OpenTextFile(File2)
Read1 = objTextstream1.ReadAll
Read2 = objTextstream2.ReadAll
If StrComp(Read1, Read2, 1) = 0 Then
Msgbox "Files are Same yesteryear Text"
Else
Msgbox "Files are Not Same yesteryear Text"
End If
'Compare Two text file yesteryear Binary (ANSI grapheme codes) Values
If StrComp(Read1, Read2, 0) = 0 Then
Msgbox "Files are Same"
Else
Msgbox "Files are Not Same"
End If
objTextstream1.Close
objTextstream2.Close
Set objTextstream1 = Nothing
Set objTextstream2 = Nothing
Set objFso = Nothing
--------------------------------------------------
How to piece of employment amongst multiple Text files?
By using multiple Text Stream objects.
-----------------------------------------------------
19) Count how many times the discussion "UFT" appeared inwards a Text file
Dim objfso, objTextstream, objRegEx, matches, myContent
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\abc.txt")
myContent = objTextStream.ReadAll
Set objRegEx = New RegExp
objRegEx.pattern = "UFT"
objRegEx.Global = True ' To discovery all matches
objRegEx.IgnoreCase = True 'To ignore cases (Considers Upper together with Lower illustration letters)
Set matches = objRegex.Execute(myContent)
Msgbox matches.count
objTextStream.Close
Set objRegEx = Nothing
Set objTextStream = Nothing
Set objFso = Nothing
-------------------------------------------
Create Regular Expression Object
No specific Class for creating Regular Expression Object, using New together with RegExp keywords nosotros tin practise Regular Expression Object.