atesting.ru Блог Тестирование VBScript для автоматизации (QTP/UFT) — Часть 5

Тестирование VBScript для автоматизации (QTP/UFT) — Часть 5

В VBScript — часть 5, давайте рассмотрим следующие темы:

Как работать с файлами Excel
Как работать с файлами & amp; Папки (объект файловой системы)

 Тестирование VBScript для автоматизации (QTP/UFT) & ndash; Часть 5

КАК ОБРАБОТАТЬ ФАЙЛЫ EXCEL:

Давайте посмотрим на синтаксис и пример некоторых важных функций обработки Excel:

ДЛЯ СОЗДАНИЯ ОБЪЕКТА EXCEL:

Синтаксис:

1 установить excel = createobject (& # 34; excel.application & # 34;)

ЧТОБЫ СДЕЛАТЬ EXCEL ВИДИМОЙ:

Синтаксис:

1 excel.visible = true

ЧТОБЫ ДОБАВИТЬ EXCEL:

Синтаксис:

1 excel. workbooks.add ()

ЧТОБЫ СОХРАНИТЬ ОТКРЫТЫЙ EXCEL:

Синтаксис:

1 excel.Activeworkbook.saveas & # 34; D: TEST excel.xls & # 34;

ЧТОБЫ ОТКРЫТЬ СУЩЕСТВУЮЩИЙ EXCEL:

Синтаксис:

12 установить workbook1 = excel.workbooks.open (& # 34; D: TEST excel.xls & # 34;) установить workbook2 = excel.workbooks.open (& # 34; D: TEST excel1.xls & # 34;)

ЧТОБЫ ОТКРЫТЬ ОПРЕДЕЛЕННЫЙ ЛИСТ В EXCEL:

Синтаксис:

< tr class = "crayon-row">

12 set sheet1 = workbook1.worksheets (& # 34; sheet1 & # 34;) set sheet2 = workbook2.worksheets (& # 34; sheet1 & # 34;)

ДЛЯ ЗАПИСИ ДАННЫХ В EXCEL:

Синтаксис:

1 sheet.cells (1,1) .value = & # 34; Name & # 34;

ДЛЯ ЧТЕНИЯ ДАННЫЕ ИЗ EXCEL:

Синтаксис:

1 msgbox sheet.cells (1,1) .value

ДЛЯ СРАВНЕНИЯ ДАННЫХ В ДВУХ EXCELS:

Синтаксис:

12345 ДЛЯ КАЖДОЙ ячейки В Sheet2.usedrangeIF cell.value & amp; lt; & amp; gt; sheet1.range (cell.address) .value THENcell.interior.colorindex = 3END IFNEXT

ДЛЯ КОПИРОВАНИЯ ДАННЫХ ИЗ ОДНОГО EXCEL В ДРУГОЙ EXCEL:

Синтаксис:

12 workbook1.worksheets (& # 34; sheet1 & # 34;). usedrange.copyworkbook2.worksheets (& # 34; sheet2 & # 34;). Диапазон (& # 34; A1 & # 34;). PasteSpecial

УДАЛИТЬ ДАННЫЕ ИЗ EXCEL:

Синтаксис:

123 excel.workbooks.open & # 34; D: TEST excel.xls & # 34; set workheet = excel.worksheets (& # 34; sheet1 & # 34;) рабочий лист.Range (& # 34; A1: A3 & # 34; ) .clearcontents

ЧТОБЫ СОХРАНИТЬ РАБОЧУЮ КНИГУ:

Синтаксис:

12 workbook1.saveworkbook2.save

ЧТОБЫ ЗАКРЫТЬ УПРАЖНЕНИЕ:

Синтаксис:

12 workbook1.closeworkbook2.close

ДЛЯ ВЫХОДА ИЗ EXCEL:

Синтаксис:

1 excel.quit

ДЛЯ ОСВОБОЖДЕНИЯ СИСТЕМНЫХ РЕСУРСОВ:

Синтаксис :

12345 set sheet1 = nothingset sheet2 = nothingset workbook1 = somethingset workbook2 = nothingset excel = ничего

ОБЪЕКТ ФАЙЛОВОЙ СИСТЕМЫ:

Давайте посмотрим на синтаксис и пример некоторых важных функций FSO:

ДЛЯ СОЗДАНИЯ ОБЪЕКТА ФАЙЛОВОЙ СИСТЕМЫ:

Синтаксис:

1 Установите fso = CreateObject (& # 34; Scripting.FileSystemObject & # 34;)

ЧТОБЫ СОЗДАТЬ НОВЫЙ ФАЙЛ:

Синтаксис:

1 Установить objfile = fso.CreateTextFile (filename [, overwrite [, Unicode]])

Примечание. по умолчанию — true — перезаписать

Пример:

12 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Установить NewFile = FSO.CreateTextFile (& # 34; D: TEST newfile.txt & # 34 ;, true)

ЧТОБЫ ОТКРЫТЬ ТЕКСТОВЫЙ ФАЙЛ:

Синтаксис:

1 Установить objfile = fso.OpenTextFile (filename)

Пример:

12 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Установить NewFile = FSO.OpenTextFile (& # 34; D: TEST newfile.txt & # 34;)

ЧТОБЫ ОТКРЫТЬ ФАЙЛ С РАЗРЕШЕНИЕМ НА ЗАПИСЬ:

1 Установить OpObj = FSO.OpenTextFile (& # 34; D: TEST newfile.txt & # 34;, 2, True)

ЧТОБЫ ОТКРЫТЬ ФАЙЛ С РАЗРЕШЕНИЕМ НА ЧТЕНИЕ:

1 Установите OpObj = FSo.OpenTextFile (& # 34; D: TEST newfile.txt & # 34;, 1, True)

ДЛЯ КОПИРОВАНИЯ ТЕКСТА ФАЙЛ:

Синтаксис:

1 fso.CopyFile (source, destination [, overwrite])
Пример:

12 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) FSO.CopyFile & # 34; D: TEST newfile.txt & # 34;, & # 34; D: TEST copyfile .txt & # 34;

ДЛЯ ПЕРЕМЕЩЕНИЯ ФАЙЛА:

Синтаксис:

1 fso .MoveFile (sourceFilePath, destinationFolder)
Пример:

< tr class = "crayon-row">

12 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) FSO.MoveFile & # 34; D: TEST copyfile.txt & # 34 ;, & # 34; D: TEST NEWFOLDER & # 34;

ДЛЯ УДАЛЕНИЯ ТЕКСТОВОГО ФАЙЛА:

Синтаксис:

1 fso.DeleteFile (filename [, force])

Пример:

< td class = "crayon-code">Установите FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) FSO.DeleteFile & # 34; D: TEST newfile.txt & # 34;

12

ДЛЯ СОЗДАНИЯ НОВОЙ ПАПКИ:

Синтаксис:

1 fso.CreateFolder (имя папки)
Пример:

12 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Установите NewFolder = FSO.CreateFolder (& # 34; D: TEST NEWFOLDER & # 34;)

< h4> ДЛЯ КОПИРОВАНИЯ ПАПКИ:

Синтаксис:

1 fso.CopyFolder (источник, место назначения [, перезапись])
Пример:

12 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) FSO.CopyFolder & # 34; D: TEST NEWFOLDER & # 34 ;, & # 34; D: TEST NEWFOLDERCOPY & # 34;

ЧТОБЫ ПЕРЕМЕСТИТЬ ПАПКУ:

Синтаксис:

1 fso.MoveFolder (источник, место назначения)
Пример:

12 Установите FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) FSO. MoveFolder & # 34; D: TEST NEWFOLDERCOPY & # 34 ;, & # 34; D: TEST NEWFOLDER & # 34;

TO УДАЛИТЬ ПАПКУ:

Синтаксис:

1 fso.DeleteFolder (folderpec [, force])
Пример:

< tr class = "crayon-row">

12 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) FSO.DeleteFolder & # 34; D: TEST NEWFOLDER & # 34;

ЧТОБЫ ПРОВЕРИТЬ СУЩЕСТВОВАНИЕ ДИСКА:

Синтаксис:

1 fso.DriveExists (drivepec)
Пример:

123456 Установите FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Если fso.DriveExists (& # 34; G: & # 34;) = True, тогда msgbox & # 34; G Drive Exists & # 34; Elsemsgbox & # 34 ; G Drive Not Exists & # 34; End If

ЧТОБЫ ПРОВЕРИТЬ СУЩЕСТВОВАНИЕ ФАЙЛА:

Синтаксис:

< тело>

1 fso.FileExists (filespec)
Пример:

123456 Установите FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Если fso.FileExists (& # 34; D: TEST newfile.txt & # 34;) = False, то fso.CreateTextFile (& # 34; D: TEST newfile1.txt & # 34;) Elsefso.CreateTextFile (& # 34; D: TEST newfile.txt & # 34;) Конец, если

ЧТОБЫ ПРОВЕРИТЬ СУЩЕСТВОВАНИЕ ПАПКИ:

Синтаксис:

1 fso.FolderExists (folderpec)
Пример:

1234567 Установите FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Если fso.FolderExists (& # 34; D: TEST1 & # 34;) = True, то fso.CreateFolder (& # 34; D: TEST Happy & # 34;) Elsefso.CreateFolder (& # 34; D: TEST1 & # 34;) fso.CreateFolder (& # 34; D: TEST1 Happy & # 34;) End If

ЧТОБЫ ПОЛУЧИТЬ ИНФОРМАЦИЮ О ПРИВОДЕ:

Синтаксис:

1 objDrv = fso.GetDrive (drivepec)
Пример:

class = «crayon-nums» data-settings = «show»> 1234567891011
Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Установить GetDrv = FSO.GetDrive (& # 34; D: & # 34;) msgbox GetDrv.AvailableSpacemsgbox GetDrv.DriveLettermsgbox GetDrv.DriveTrpemsgbox. FreeSpacemsgbox GetDrv.Pathmsgbox GetDrv.RootFoldermsgbox GetDrv.SerialNumbermsgbox GetDrv.TotalSize

ЧТОБЫ ПОЛУЧИТЬ ДЕТАЛИ ПАПКИ:

Синтаксис:

1 objFolder = fso.GetFolder (folderSpec)
Пример:

1234567 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Установить GetFld = FSO.GetFolder (& # 34; D: TEST & # 34;) msgbox GetFld.nameSet GetSubFld = GetFld.SubFolders Для каждого ФАЙЛА в GetSubFldmsgbox FILE.nameNext

ЧТОБЫ ПОЛУЧИТЬ ДЕТАЛИ ФАЙЛА:

Синтаксис:

1 objFile = fso.GetFile (fileSpec)
Пример:

/table>

СПОСОБЫ ОБЪЕКТА ТЕКСТОВОГО ПОТОКА:

ДЛЯ ЗАКРЫТИЯ ОБЪЕКТА:

Синтаксис:

1234567 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Установить GetFile = FSO.GetFile (& # 34; D: TEST newfile.txt & # 34;) msgbox GetFile.DateCreatedmsgbox GetFile.DateLastAccessedmsgbox GetFile.DateLastModifiedmsgbox GetFile.ParentFoldermsgbox GetFile.Path
< tbody>

1 objTso.Close

ЧИТАТЬ:

Синтаксис:

1 strChars = objTso.Read (numCharacters)
Пример:

< tr class = "crayon-row">

123 Установите FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Установите OpObj = FSo.OpenTextFile (& # 34; D: TEST newfile.txt & # 34;, 1, True) msgbox OpObj.Read (5)

ДЛЯ ПОЛНОГО ПРОЧИТАНИЯ:

Синтаксис:

1 strChars = objTso.ReadAll
Пример:

123 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Установить OpObj = FSo.OpenTextFile (& # 34; D: TEST newfile.txt & # 34;, 1, True) msgbox OpObj.ReadAll

ДЛЯ ЧТЕНИЯ ПО СТРОКЕ:

Синтаксис:

1 strChars = objTso. ReadLine
Пример:

123 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Установить OpObj = FSo.OpenTextFile (& # 34; D: TEST newfile.txt & # 34;, 1, True) msgbox OpObj.ReadLine

ДЛЯ ЗАПИСИ:

Синтаксис:

1 objTso.Write (строка)
Пример:

1234 Установить FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Установить OpObj = FSO.OpenTextFile (& # 34; D: TEST newfile.txt & # 34;, 2, True) OpObj.Write & # 34; Материал для тестирования программного обеспечения & # 34; OpObj.Write & # 34; www.softwaretestingmaterial.com & # 34;

СОХРАНЕНИЕ КУРСОРА В НОВОЙ СТРОКЕ ДЛЯ ЗАПИСИ:

Синтаксис:

1 objTso .WriteLine ([строка])
Пример:

1234 Установите FSO = CreateObject (& # 34; Scripting.FileSystemObject & # 34;) Установите OpObj = FSO.OpenTextFile (& # 34; D: TEST newfile.txt & # 34;, 2, True) OpObj.WriteLine & # 34; Материал для тестирования программного обеспечения & # 34; OpObj.WriteLine & # 34; www.softwaretestingmaterial.com & # 34;

ЗАПИСАТЬ ПУСТЫЕ СТРОКИ:

Синтаксис:

1 objTso.WriteBlankLines (numLines)
Пример:

1 OpObj.WriteBlankLines (3)

В конце строки:

Синтаксис:

1 objTso.AtEndOfLine

В конце потока:

Синтаксис:

1 objTso.AtEndOfStream

ДЛЯ ОТКЛЮЧЕНИЯ ОБЪЕКТА ФАЙЛОВОЙ СИСТЕМЫ:

Синтаксис:

1 Установить FSO = ничего

Здесь я хотел бы завершить VBScript — Часть 5. < p>

Серия VBScript:

Тестирование VBScript для автоматизации (QTP/UFT) — Часть 1

VBScript для автоматизации (QTP/UFT) Тестирование — Часть 2

Тестирование VBScript для автоматизации (QTP/UFT) — Часть 3

Тестирование VBScript для автоматизации (QTP/UFT) — Часть 4

< p> Тестирование VBScript для автоматизации (QTP/UFT) — Par т 5

TAG: qa