VBSCRIPT ДЛЯ АВТОМАТИЗАЦИИ (QTP/UFT) ТЕСТИРОВАНИЯ – ЧАСТЬ 5

В VBScript. Часть 5 рассмотрим следующие темы:

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

< p>

КАК ОБРАЩАТЬСЯ С ФАЙЛАМИ EXCEL:

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

СОЗДАТЬ ОБЪЕКТ EXCEL:

< h5>Синтаксис:

set excel = createobject("excel.<span id="more-4212"></span>application")

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

Синтаксис:

excel.visible = true

ДОБАВИТЬ EXCEL:

Синтаксис:

excel.workbooks.add()

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

Синтаксис:

excel.Activeworkbook.saveas "D:TESTexcel.xls"

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

Синтаксис:

set workbook1 = excel.workbooks.open("D:TESTexcel.xls") set workbook2 = excel.workbooks.open("D:TESTexcel1.xls")

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

Синтаксис:

set sheet1 = workbook1.worksheets ("лист1") установить лист2 = workbook2.worksheets("лист1")

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

Синтаксис:

sheet.cells(1,1).value = "Name"

ЧТЕНИЕ ДАННЫХ ИЗ EXCEL:

Синтаксис:

msgbox sheet.cells(1,1).value

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

Синтаксис:

ДЛЯ КАЖДОЙ ячейки В листе2.usedrange ЕСЛИ значение ячейки &lt;&gt; sheet1.range(cell.address).value THEN cell.interior.colorindex = 3 END IF NEXT

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

Синтаксис:

workbook1.worksheets("лист1").usedrange.copy workbook2.worksheets("лист2").Range("A1").PasteSpecial

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

Синтаксис:

excel.workbooks.open "D:TESTexcel.xls" set worksheet = excel.worksheets("sheet1") worksheet.Range("A1:A3").clearcontents

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

Синтаксис:

workbook1.save workbook2.save

ЧТОБЫ ЗАКРЫТЬ РАБОТУ:

Синтаксис:

workbook1.close workbook2.close

ВЫЙТИ ИЗ EXCEL:

Синтаксис:

excel.quit

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

Синтаксис:

установить лист1 = ничего установить лист2 = ничего установить книгу1 = ничего установить книгу2 = ничего установить excel = ничего

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

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

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

Синтаксис:

Set fso = CreateObject("Scripting.FileSystemObject")

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

Синтаксис:

Установить objfile = fso.CreateTextFile (имя файла [, перезаписать [, Unicode]])

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject") Set NewFile = FSO.CreateTextFile("D :TESTnewfile.txt", true)

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

Синтаксис:

Set objfile = fso.OpenTextFile(имя файла)

Пример:

Set FSO = CreateObject(& #34;Scripting.FileSystemObject") Set NewFile = FSO.OpenTextFile("D:TESTnewfile.txt")

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

Set OpObj = FSO.OpenTextFile("D:TESTnewfile.txt",2,True)

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

Set OpObj = FSo.OpenTextFile("D:TEST newfile.txt",1,True)

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

Синтаксис:

fso.CopyFile (источник, пункт назначения[ , перезаписать])

Пример:

<перенос текстового поля =soft class="crayon-plain print-no" data-settings=dblclick стиль только для чтения=-moz-tab-size:4;-o-tab-size:4;-webkit-tab-size:4;tab-size :4;размер шрифта:12px!важно;высота строки:15px!важно>Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFile "D:TESTnewfile.txt& #34;,"D:TESTcopyfile.txt"

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

Синтаксис:

fso.MoveFile(sourceFilePath, targetFolder)

1

fso.MoveFile (sourceFilePath, targetFolder)< /table> Пример: Установите FSO = CreateObject("Scripting.FileSystemObject") FSO.MoveFile "D:TESTcopyfile.txt", "D:TESTNEWFOLDER" 12 Set FSO = CreateObject( “Scripting.FileSystemObject”)FSO.MoveFile “D:TESTcopyfile.txt”, “D:TESTNEWFOLDER” ЧТОБЫ УДАЛИТЬ ТЕКСТОВЫЙ ФАЙЛ: Синтаксис: fso.DeleteFile (имя файла [, сила]) 1 fso.DeleteFile (filename[, force]) Пример: Установите FSO = CreateObject("Scripting.FileSystemObject") FSO.DeleteFile "D:TESTnewfile.txt" 12 Set FSO = CreateObject( “Scripting.FileSystemObject”)FSO.DeleteFile “D:TESTnewfile.txt”  ЧТОБЫ СОЗДАТЬ НОВУЮ ПАПКУ: Синтаксис: fso.CreateFolder(имя папки) 1 fso.CreateFolder(имя папки) Пример: Установить FSO = CreateObject("Scripting.FileSystemObject") Установить NewFolder = FSO.CreateFolder("D:TESTNEWFOLDER") < tbody> 12 Set FSO = CreateObject(“Scripting.FileSystemObject”)Set NewFolder = FSO.CreateFolder( “D:TESTNEWFOLDER”) ЧТОБЫ КОПИРОВАТЬ ПАПКУ: Синтаксис: fso.CopyFolder (источник, место назначения[, перезапись]) < tr class=crayon-row> 1 fso.CopyFolder (источник, место назначения[, перезапись]) Пример: Установите FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFolder "D:TESTNEWFOLDER", "D:TESTNEWFOLDERCOPY" 12 Set FSO = CreateObject(“Scripting.FileSystemObject “)FSO.CopyFolder “D:TESTNEWFOLDER”, “D:TESTNEWFOLDERCOPY” ДЛЯ ПЕРЕМЕЩЕНИЯ ПАПКИ: Синтаксис: fso.MoveFolder (источник, место назначения) 1 fso.MoveFolder (источник, место назначения) Пример: Set FSO = CreateObject("Scripting.FileSystemObject") FSO.MoveFolder "D:TEST NEWFOLDERCOPY", "D:TESTNEWFOLDER" 12 Set FSO = CreateObject(“Scripting.FileSystemObject”)FSO.MoveFolder “D:TESTNEWFOLDERCOPY”, “D:TESTNEWFOLDER” ДЛЯ УДАЛЕНИЯ ПАПКИ: Синтаксис: fso.DeleteFolder (folderspec [, force]) 1 fso.DeleteFolder (folderspec[, force]) Пример: Set FSO = CreateObject("Scripting.FileSystemObject") FSO.DeleteFolder "D:TEST NEWFOLDER" 12 Set FSO = CreateObject(“Scripting.FileSystemObject”)FSO.DeleteFolder “D:TESTNEWFOLDER” ПРОВЕРИТЬ СУЩЕСТВОВАНИЕ ДИСКА: Синтаксис: fso.DriveExists (drivespec) 1 fso.DriveExists (спецификация диска) Пример: Set FSO = CreateObject("Scripting.FileSystemObject") If fso.DriveExists ("G: ") = True, затем msgbox "G Drive Exists" В противном случае msgbox "Диск G не существует" End If 123456 Установите FSO = CreateObject(“Scripting.FileSystemObject”)If fso.DriveExists(“G:”) = True thenmsgbox “Диск G существует”Elsemsgbox “Диск G не существует”End If ПРОВЕРИТЬ СУЩЕСТВОВАНИЕ ФАЙЛА : Синтаксис: fso.FileExists (filespec) 1 fso.FileExists (filespec) Пример: Set FSO = CreateObject("Scripting.FileSystemObject") If fso.FileExists ("D: TESTnewfile.txt") = False, затем fso.CreateTextFile("D:TESTnewfile1.txt") Else fso.CreateTextFile("D:TESTnewfile.txt&# 34;) End If 123456 Set FSO = CreateObject(“Scripting.FileSystemObject”)If fso.FileExists(“D:TESTnewfile.txt”) = False thenfso.CreateTextFile(“D:TESTnewfile1.txt”)Elsefso.CreateTextFile(“D:TESTnewfile.txt”)End If ПРОВЕРИТЬ СУЩЕСТВОВАНИЕ ПАПКИ: < h5>Синтаксис: fso.FolderExists (folderspec) 1 fso.FolderExists (folderspec) Пример: Установите FSO = CreateObject("Scripting.FileSystemObject") Если fso.FolderExists ("D:TEST1") = True, то fso.CreateFolder ("D:TEST Happy") Else fso.CreateFolder ("D:TEST1") fso.CreateFolder ("D:TEST1Happy") End If 1234567 Установить FSO = CreateObject(“Scripting.FileSystemObject”), если fso.FolderExists (“D:TEST1”) = True, то fso.CreateFolder (“D:TESTHappy”) Elsefso.CreateFolder (“D:TEST1”) fso.CreateFolder(“D:TEST1Happy”)End If ДЛЯ ПОЛУЧЕНИЯ ДАННЫХ О ПРИВОДЕ: Синтаксис: objDrv = fso.GetDrive(drivespec) 1 objDrv = fso.GetDrive(drivespec) Пример: Set FSO = CreateObject("Scripting.FileSystemObject") Set GetDrv = FSO.GetDrive("D:") msgbox GetDrv.AvailableSpace msgbox GetDrv.DriveLetter msgbox GetDrv.DriveType msgbox GetDrv. FileSystem msgbox GetDrv.FreeSpace msgbox GetDrv.Path msgbox GetDrv.RootFolder msgbox GetDrv.SerialNumber msgbox GetDrv.TotalSize 1234567891011 Set FSO = CreateObject(“Scripting.FileSystemObject”)Set GetDrv = FSO.GetDrive(“D:”)msgbox GetDrv.AvailableSpacemsgbox GetDrv.DriveLettermsgbox GetDrv.DriveTypemsgbox GetDrv.FileSystemmsgbox GetDrv.FreeSpacemsgbox GetDrv.Pathmsgbox GetDrv.RootFoldermsgbox GetDrv.SerialNumbermsgbox GetDrv.TotalSize ЧТОБЫ ПОЛУЧИТЬ ДЕТАЛИ ПАПКИ: Синтаксис: objFolder = fso.GetFolder(folderSpec) 1 objFolder = fso.GetFolder(folderSpec) Пример: Set FSO = CreateObject("Scripting.FileSystemObject") Set GetFld = FSO.GetFolder("D :TEST") msgbox GetFld.name Set GetSubFld = GetFld.SubFolders Для каждого ФАЙЛА в GetSubFld msgbox FILE.name Next 1234567 Установите FSO = CreateObject(“Scripting.FileSystemObject”)Set GetFld = FSO.GetFolder(“D:TEST”)msgbox GetFld.nameSet GetSubFld = GetFld.SubFoldersДля каждого ФАЙЛА в GetSubFldmsgbox FILE.nameNext TO GET ДЕТАЛИ ФАЙЛА: Синтаксис: objFile = fso.GetFile(fileSpec) 1 objFile = fso.GetFile(fileSpec) Пример: Set FSO = CreateObject("Scripting.FileSystemObject") Set GetFile = FSO.GetFile("D:TESTnewfile.txt") msgbox GetFile.DateCreated msgbox GetFile.DateLastAccessed msgbox GetFile. DateLastModified msgbox GetFile.ParentFolder msgbox GetFile.Path 1234567 Set FSO = CreateObject(“Scripting.FileSystemObject”)Set GetFile = FSO.GetFile(“D:TESTnewfile.txt”)msgbox GetFile.DateCreatedmsgbox GetFile.DateLastAccessedmsgbox GetFile.DateLastModifiedmsgbox GetFile.ParentFoldermsgbox GetFile.Path< /table> МЕТОДЫ ОБЪЕКТА ТЕКСТОВОГО ПОТОКА: ЧТОБЫ ЗАКРЫТЬ ОБЪЕКТ: Синтаксис: objTso.Close 1 objTso.Close ПРОЧИТАЙТЕ:< /h4> Синтаксис: strChars = objTso.Read (число символов) 1 strChars = objTso.Read(numCharacters) Пример: Set FSO = CreateObject("Scripting.FileSystemObject") Set OpObj = FSo.OpenTextFile("D :TESTnewfile.txt",1,True) msgbox OpObj.Read(5) 123 Set FSO = CreateObject(“Scripting.FileSystemObject”)Set OpObj = FSo.OpenTextFile(“D:TESTnewfile.txt”,1,True) msgbox OpObj.Read(5) ЧИТАТЬ ПОЛНОСТЬЮ: Синтаксис: strChars = objTso.ReadAll 1 strChars = objTso.ReadAll Пример: Set FSO = CreateObject("Scripting.FileSystemObject") Set OpObj = FSo.OpenTextFile("D :TESTnewfile.txt",1,True) msgbox OpObj.ReadAll 123 Установите FSO = CreateObject(“Scripting.FileSystemObject”)Set OpObj = FSo.OpenTextFile(“D:TESTnewfile.txt”,1,True)msgbox OpObj.ReadAll ЧИТАТЬ ПОСТРОЧНО: Синтаксис: strChars = objTso.ReadLine 1 strChars = objTso.ReadLine Пример:< /h5>Set FSO = CreateObject("Scripting.FileSystemObject") Set OpObj = FSo.OpenTextFile("D :TESTnewfile.txt",1,True) msgbox OpObj.ReadLine 123 Установите FSO = CreateObject(“Scripting.FileSystemObject”)Set OpObj = FSo.OpenTextFile(“D:TESTnewfile.txt”,1,True)msgbox OpObj.ReadLine Для записи: Синтаксис: objTso.Write(string) 1 objTso.Write(string) Пример: Set FSO = CreateObject(" Scripting.FileSystemObject") Set OpObj = FSO.OpenTextFile("D:TESTnewfile.txt",2,True) OpObj.Write "Материалы по тестированию программного обеспечения" OpObj.Write "www.softwaretestingmaterial.com" 1234 Set FSO = CreateObject(“Scripting.FileSystemObject”)Set OpObj = FSO.OpenTextFile(“D :TESTnewfile.txt”,2,True)OpObj.Write “Материалы по тестированию программного обеспечения”OpObj.Write “www.softwaretestingmaterial.com” ДЕРЖАТЬ КУРСОР В НОВОЙ СТРОКЕ ДЛЯ ЗАПИСИ: Синтаксис: objTso.WriteLine([string]) 1 objTso.WriteLine([string]) Пример: Установить FSO = CreateObject("Scripting.FileSystemObject") Установить OpObj = FSO.OpenTextFile("D:TESTnewfile.txt",2,True) OpObj.WriteLine " Материалы по тестированию программного обеспечения" OpObj.WriteLine "www.softwaretestingmaterial.com" 1234 Set FSO = CreateObject(“Scripting.FileSystemObject”)Set OpObj = FSO.OpenTextFile(“D:TESTnewfile.txt”,2,True)OpObj.WriteLine “Материал для тестирования программного обеспечения”OpObj.WriteLine “www.softwaretestingmaterial.com “ ЗАПИСАТЬ ПУСТЫЕ СТРОКИ: Синтаксис: objTso.WriteBlankLines (numLines) 1 objTso. WriteBlankLines(numLines) Пример: OpObj.WriteBlankLines(3) 1 OpObj.WriteBlankLines(3) В конце строки: Синтаксис: objTso.AtEndOfLine 1 objTso.AtEndOfLine В конце потока: Синтаксис: objTso.AtEndOfStream 1 objTso.AtEndOfStream ДЛЯ ОСВОБОЖДЕНИЯ ОБЪЕКТА ФАЙЛОВОЙ СИСТЕМЫ: Синтаксис: < textarea wrap=soft class="crayon-plain print-no" data-settings=dblclick только для чтения стиль=-moz-tab-size:4;-o-tab-size:4;-webkit-tab-size:4;tab -size:4;размер шрифта:12px!важно;высота строки:15px!важно>Установить FSO = ничего 1 Установите FSO = ничего Я хотел бы завершить VBScript — часть 5 здесь. Серия VBScript: VBScript для тестирования автоматизации (QTP/UFT) — часть 1 VBScript для тестирования автоматизации (QTP/UFT) — часть 2 VBScript для тестирования автоматизации (QTP/UFT) — часть 3 VBScript для тестирования автоматизации (QTP/UFT) — часть 4 VBScript для тестирования автоматизации (QTP/UFT) — часть 5 TAG: qa Еще об этом: VBSCRIPT ДЛЯ АВТОМАТИЗАЦИИ (QTP/UFT) ТЕСТИРОВАНИЯ – ЧАСТЬ 4 VBSCRIPT ДЛЯ АВТОМАТИЗАЦИИ (QTP/UFT) ТЕСТИРОВАНИЯ – ЧАСТЬ 3 МАССИВЫ VBSCRIPT | АВТОМАТИЗАЦИЯ ТЕСТИРОВАНИЯ QTP/UFT VBSCRIPT ДЛЯ АВТОМАТИЗАЦИИ (QTP/UFT) ТЕСТИРОВАНИЯ – ЧАСТЬ 1 VBSCRIPT ДЛЯ АВТОМАТИЗАЦИИ (QTP/UFT) ТЕСТИРОВАНИЯ – ЧАСТЬ 2 100 САМЫХ ПОПУЛЯРНЫХ ПРОДВИНУТЫХ ВОПРОСОВ И ОТВЕТОВ НА ИНТЕРВЬЮ ПО SELENIUM Операторы цикла VBSCRIPT | АВТОМАТИЗАЦИЯ ТЕСТИРОВАНИЯ QTP/UFT СТРУКТУРА, УПРАВЛЯЕМАЯ ДАННЫМИ, В SELENIUM WEBDRIVER | МАТЕРИАЛ ДЛЯ ТЕСТИРОВАНИЯ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ УПРАВЛЯЮЩИЕ ЗАЯВЛЕНИЯ VBSCRIPT | АВТОМАТИЗАЦИЯ ТЕСТИРОВАНИЯ QTP/UFT 150+ ЛУЧШИХ ВОПРОСОВ И ОТВЕТОВ НА ИНТЕРВЬЮ О ТЕСТИРОВАНИИ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ От QA genius Связанная запись Обзоры ЛУЧШИЕ ИНСТРУМЕНТЫ ТЕСТИРОВАНИЯ МОБИЛЬНЫХ ПРИЛОЖЕНИЙ В 2024 ГОДУ ДЛЯ ANDROID И IOS QA genius 1 января, 2024 Обзоры ЧТО ТАКОЕ ТЕСТИРОВАНИЕ ПРАВОЙ СМЕНЫ? | ОПРЕДЕЛЕНИЕ, ПРЕИМУЩЕСТВА, ПРОБЛЕМЫ QA genius 18 декабря, 2023 Обзоры ЛУЧШИЕ КОМПАНИИ ПО КИБЕРБЕЗОПАСНОСТИ 2023 ГОДА QA genius 17 декабря, 2023 Вы пропустили Python УЧЕБНОЕ УПРАВЛЕНИЕ ПО ДЖАНГО Python СТАНДАРТНАЯ БИБЛИОТЕКА PYTHON Python РУКОВОДСТВО ПО PYQT Python РЕСУРСЫ ПИТОНА Найти: Подпишись на телеграмм заметки тестировщика, впереди еще много интересного Сейчас заходил СТО, спрашивал почему так резко похолодало. Неужели автотесты и сборки в андроид студии сломались? 😃 Это он еще не знает, что Валера приболел и никто не собирает новую версию фронта. #qa #android #факап   × Adblock detector