File System Operations 2

10) Counting the number of times a word appears in a file

sFileName="E:\gcr.txt"

sString="gcreddy"

Const FOR_READING = 1

Dim oFso, oTxtFile, sReadTxt, oRegEx, oMatches

Set oFso = CreateObject("Scripting.FileSystemObject")

Set oTxtFile = oFso.OpenTextFile(sFileName, FOR_READING)

sReadTxt = oTxtFile.ReadAll

Set oRegEx = New RegExp

oRegEx.Pattern = sString

oRegEx.IgnoreCase = bIgnoreCase

oRegEx.Global = True

Set oMatches = oRegEx.Execute(sReadTxt)

MatchesFound = oMatches.Count

Set oTxtFile = Nothing : Set oFso = Nothing : Set oRegEx = Nothing

msgbox MatchesFound

11) Read a CSV File Using Database Techniques

On Error Resume Next

Const adOpenStatic = 3

Const adLockOptimistic = 3

Const adCmdText = &H0001

Set objConnection = CreateObject("ADODB.Connection")

Set objRecordSet = CreateObject("ADODB.Recordset")

strPathtoTextFile = "C:\Databases\"

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

          "Data Source=" & strPathtoTextFile & ";" & _

          "Extended Properties=""text;HDR=YES;FMT=Delimited"""

objRecordset.Open "SELECT * FROM PhoneList.csv", _

          objConnection, adOpenStatic, adLockOptimistic, adCmdText

Do Until objRecordset.EOF

    Wscript.Echo "Name: " & objRecordset.Fields.Item("Name")

    Wscript.Echo "Department: " & _

        objRecordset.Fields.Item("Department")

    Wscript.Echo "Extension: " & objRecordset.Fields.Item("Extension")  

    objRecordset.MoveNext

Loop

12) Read a Text File into an Array

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile _

    ("e:\gcreddy.txt", ForReading)

Do Until objTextFile.AtEndOfStream

    strNextLine = objTextFile.Readline

    arrServiceList = Split(strNextLine , ",")

    Wscript.Echo "Server name: " & arrServiceList(0)

    For i = 1 to Ubound(arrServiceList)

        Wscript.Echo "Service: " & arrServiceList(i)

    Next

Loop

13)  'Calculate size of a Text file

Dim objFso, File1,File2
File1="C:\Documents and Settings\1 RIGHATWAY\Desktop\xyz.txt"
Set objFso=CreateObject("
Scripting.FileSystemObject")
x= objFso.GetFile(File1).Size
Msgbox x& "  Bytes"

14) 'Test Requirement: Open 1 to 10 orders in Flight Reservation , Capture Customer names and Export into a Text file

'Test Flow:
'Login Operation
'Open Order Operation and form the Loop to open 1 to 10 Orders
'Capture Cusomer names using GetROProperty Method
'Create File system Object and Open the Text file using  the Object and Export Cusomer names
'----------------------------------------------------------------------------
Option Explicit
Dim Order_Number, Customer_Name, objFso, myFile
Set objFso=CreateObject("Scripting.FileSystemObject")
Set myFile= objFso.CreateTextFile ("C:\Documents and Settings\1 RIGHATWAY\Desktop\abcNew.txt",2)
myFile.WriteLine "Cusomer Names"
myFile.WriteLine "--------------------"
If Not Window("Flight Reservation").Exist(3)  Then
SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set "asdf"
Dialog("Login").WinEdit("Password:").SetSecure "4c48590870466b8dc050bbd24e816890c747ccf8"
Dialog("Login").WinButton("OK").Click
End If
For Order_Number= 1 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 Order_Number
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
Customer_Name = Window("Flight Reservation").WinEdit("Name:").GetROProperty("text")
wait (2)
myFile.WriteLine Customer_Name
Next
myFile.Close
Set objFso=Nothing

15)
'******************************************************
'Test Requirement: Capturing all Buttons Names from the Login Dialog box and exporting to a Text file