Сообщений в теме: 7

[ryazhenka]

Всем привет! Коллеги, подскажите, с чем может быть связана проблема:

ТС v7.20.562.7
при использовании .xls/.xlsx/.csv - ТС не правильно считывает данные из второго столбца.
Вот пример .csv-файла:

valid;invalid
фыва;jkfd
0321;
asdf;
$%#@;

Вот пример schema.ini к нему:

[new.csv]
Format=Delimited(;)
ColNameHeader=True
MaxScanRows=0

При обращении к колонке invalid, ТС опрашивает 4 строчки, как и в первой колонке, соответственно, последние три с ошибкой.
Обращаюсь к файлу через DriveMethod.

[Zenturio]

Всем привет! Коллеги, подскажите, с чем может быть связана проблема:

ТС v7.20.562.7
при использовании .xls/.xlsx/.csv - ТС не правильно считывает данные из второго столбца.
Вот пример .csv-файла:

valid;invalid
фыва;jkfd
0321;
asdf;
$%#@;

Вот пример schema.ini к нему:

[new.csv]
Format=Delimited(;)
ColNameHeader=True
MaxScanRows=0

При обращении к колонке invalid, ТС опрашивает 4 строчки, как и в первой колонке, соответственно, последние три с ошибкой.
Обращаюсь к файлу через DriveMethod.

Вы вручную файл создавали. Попробуйте сделать экспорт в Csv из эксель
Второй вариант точка запятой после второго столбца...

[ryazhenka]

не, не помогает...

[SergeyP]

Приведите скрипт, в котором возникает ошибка.

[Vader]

...

Сообщение отредактировал Vader: 22 декабря 2011 - 09:50

[ryazhenka]

Приведите скрипт, в котором возникает ошибка.

Sub wtf

	Dim nya
	Dim PropNameMaterialId
	Dim PropValueMaterialId
	Dim TabSearch
	Dim MaterialIDFld
	
	Set nya = Sys.Process("IExplore")
	Set TabSearch = nya.Page("http://guess.who.hz").Frame("framemain").Frame("main").Panel("main_viewport_port")
	
	PropNameMaterialId = Array("enabled", "exists", "ObjectType", "name")
	PropValueMaterialId = Array(true, true, "Textbox", "*search_terms_material_id*")
	
	Set MaterialIdFld = TabSearch.FindChild(PropNameMaterialId, PropValueMaterialId, 10000)
	
	if MaterialIdFld.exists Then
			Log.Message("MaterialIdFld найдено")
			MaterialIdFld.Keys("^a")   
			MaterialIdFld.Keys("[BS]")
			MaterialIdFld.Keys(DDT.CurrentDriver.Value("MaterialId_valid"))
		Else
			Log.Error("MaterialIdFld не найдено")
	end If
	
	call System.ClickSearchButton
	call System.SrchResult
	call System.ClickSearchParam
end Sub

[SergeyP]

В приведенном коде не вижу DriveMethod

Посмотрите здесь пример использования DriveMethod.

[ryazhenka]

В приведенном коде не вижу DriveMethod

Посмотрите здесь пример использования DriveMethod.

Ну да, всё верно. Сам DriveMethod выведен в отдельную функцию, как и в примере по ссылке. Вы же просили скрипт, где вылетает ошибка. А функция, где находится сам DriveMethod простая, как огурец):

Function StartDdt(CurrentSubName)

			Dim ddtCsv
									
			Set ddtCsv = DDT.CSVDriver("W:\test_data\new.csv")
			
			ddtCsv.DriveMethod(CurrentSubName)
			
			DDT.CloseDriver(ddtCsv.Name)  
 
End Function

В неё передаётся через параметр CurrentSubName название конкретной процедуры.