Чтение из Edit-ов
#1
Отправлено 31 августа 2005 - 10:34
#2
Отправлено 31 августа 2005 - 10:39
Все можно (в пределах разумного).
Для получения данных можно использовать SQAGetProperty и иже с ними (см.SQABasicLanguage Reference)
По ListBoxam также есть help там же.
С примерами
Ну и verification point-ы никто не отменял
#3
Отправлено 31 августа 2005 - 11:31
#4
Отправлено 31 августа 2005 - 14:38
Люди, кто-нибудь может меня просветить, может робот считывать инфу из Edit-ов и можно-ли программно задать, как курсору ползать по всяким там ListView-шкам, или все ограничивается записью движений мыши с определением координат нажатия кнопок? Проблема в том, что я хотел бы проанализировать значения в тех-же самых Edit-ах, а как оно деется - не знаю... Как бы Хелп!!!
Ползать тока с помощью мыши, либо команд с клавиатуры. Поэтому позиционирование на заданном значении задача довольно сложная.
Набор значений вытаскивается с помощью в ListView VP.
#5
Отправлено 05 января 2006 - 17:48
Люди, кто-нибудь может меня просветить, может робот считывать инфу из Edit-ов и можно-ли программно задать, как курсору ползать по всяким там ListView-шкам, или все ограничивается записью движений мыши с определением координат нажатия кнопок? Проблема в том, что я хотел бы проанализировать значения в тех-же самых Edit-ах, а как оно деется - не знаю... Как бы Хелп!!!
Ползать тока с помощью мыши, либо команд с клавиатуры. Поэтому позиционирование на заданном значении задача довольно сложная.
Набор значений вытаскивается с помощью в ListView VP.
А можешь написать кусок кода как это делать, если у меня к примеру EditBox с именем value2, как мне узнать какое у него значение????
Буду ОЧЕНЬ ПРИЗНАТЕЛЕН
#6
Отправлено 06 января 2006 - 16:49
Dim Result as integer
Dim s as string
Result = SQAGetProperty ("Type=EditBox;Name=value2","value",s)
if Result = SQASuccess then
SQALogMessage SQAPass, "Value in editbox is " + s, ""
else
SQALogMessage SQAFail, "Result = " +CStr(Result)
end if
#7
Отправлено 06 января 2006 - 16:54
Почитайте внимательно help по функциям SQAGetProperty и SQASetProperty.
Dim Result as integer
Dim s as string
Result = SQAGetProperty ("Type=EditBox;Name=value2","value",s)
if Result = SQASuccess then
SQALogMessage SQAPass, "Value in editbox is " + s, ""
else
SQALogMessage SQAFail, "Result = " +CStr(Result)
end if
Надя, спасибо огромное за помощь. Если ты мне ответишь на ещё один вопрос, то просто незнаю....приеду в Харьков выставляться ))))
У меня есть HTMLImage, которая по совместительству является submit. Я пишу HTMLImage Click, "Name=submit", "" - не работает, пробовал уже и Type=Image вставить, все равно... как сделать, чтобы не привязываться к координатам, потому что если их указать во вторых ковычках все работает нормально...
Заранее Вам благодарен и если Вам не сложно, напишите ЛС с Вашей Аськой, буду очень благодарен Вам...
#8
Отправлено 10 января 2006 - 08:48
#10
Отправлено 10 января 2006 - 15:11
#12
Отправлено 10 января 2006 - 16:15
#14
Отправлено 12 января 2006 - 12:56
- это что, лэйбл, название окна?слово Error
В любом случае, скорее всего это делается через VerifPoint
#18
Отправлено 12 января 2006 - 14:14
что из себя представляет страница? Что есть страница?
Где содержится означенное слово Еррор? В файле(если да, то просто сравнить строки-символы) или на HTML-странице (тоже можно сделать, как лучше - не знаю, не сталкивался, с ходу могу предложить открыть в HTML-формате, через свойство Text вытянуть содержимое и парсить уже как текстовый файл)
Парсил я примерно так (смотрел, появились те или иные строки в файле)
Function CompareConfigFile(StartString As String, CountString As Integer, SrtingArray() As String, NameControlProcess As String) Dim Fchar() As String Dim newline As String'строка из файла конфигурации Dim FullLine As String Dim x As Integer'количество строк в файле Dim y As Integer 'открываем файл конфигурации Open "c:\имя файла.ini" for Input as #1 'считаем количество строк в файле Do Until x=Lof(1)'проверка на конец файла Line Input #1, newline 'считываем строку 'переход на новую строку x=x+1 y=Seek(1) If y>Lof(1) Then Exit Do Else Seek 1,y End If Loop Close #1 'открываем файл конфигурации Open "c:\имя файла.ini" for Input as #1 ReDim Fchar(x-1) For y=0 To x-1 Line Input #1, Fchar(y) Next y Close #1 For y=0 To x-1 If Fchar(y) = StartString Then For yy = y To y+CountString - 1 If Fchar(yy) <> SrtingArray(yy-y)Then MsgBox NameControlProcess & "Несоответствие РДВ и " & yy &"-й строки файла c:\имя файла.ini. " & "Строка в файле: " & Fchar(yy) & ", необходимая строка: " & SrtingArray(yy-y) End If Next yy End If Next y End Function Sub Main Dim Result As Integer Dim StrArr() As String Dim ArraySize As Integer 'Initially Recorded: 03.11.2005 15:38:34 'Script Name: имя скрипта 'контроль функции..ххх.. ArraySize =2 ReDim StrArr(ArraySize) StrArr(0) = "<print>" StrArr(1) = "0" StrArr(2) = "</print>" CompareConfigFile "<print>", ArraySize , StrArr, "Контроль функции..ххх... " ...
Дык я уж год сижу.... Хе и все равно многого не знаю. Читайте Хелп.Можете написать пример как это делать, очень нужно...Сижу уже третий день!!!!!!
#19
Отправлено 12 января 2006 - 15:27
Dim s as string Dim Result as integer Window SetContext, "CurrentWindow", "" InputKeys "^a^c" s = Clipboard.gettext Result = InStr(s,"Error") if Result <> 0 then SQALogMessage sqafail, "Error is found", "" exit sub end if
#20
Отправлено 12 января 2006 - 15:30
Грубо, но действует:
Dim s as string Dim Result as integer Window SetContext, "CurrentWindow", "" InputKeys "^a^c" s = Clipboard.gettext Result = InStr(s,"Error") if Result <> 0 then SQALogMessage sqafail, "Error is found", "" exit sub end if
спасибо...Прикольный способ
Количество пользователей, читающих эту тему: 0
0 пользователей, 0 гостей, 0 анонимных