www.InTouch.su

Здравствуйте
подскажите как реализовать сохранение в csv
или подскажите где почитать
я сделал следующее

в общем кнопка открыть с таким скриптом по клику

F InfoAppActive( InfoAppTitle("explorer")) == 0 THEN
StartApp "C:\WINDOWS\explorer D:\HistoryExport";
ELSE
ActivateApp InfoAppTitle("explorer");
WWControl (InfoAppTitle("explorer"),"Restore");
ENDIF;

кнопка сохранить с таким скриптом
IF FileToExport <> "" THEN

DbDir = InfoInTouchAppDir();
DataDir = HTGetLogDirectory();
Filename = ExportDir + "\" + FileToExport + ".CSV";
Duration = Text( HistTrend1.ChartLength * ( HistTrend1.ScooterPosRight - HistTrend1.ScooterPosLeft ), "0" ) + "S";
StartDate = HTGetTimeStringAtScooter( HistTrend1.Name, HistTrend1.UpdateCount, 1, HistTrend1.ScooterPosLeft, "Date" );
StartTime = StringMid( StringFromTime( HTGetTimeAtScooter( HistTrend1.Name, HistTrend1.UpdateCount, 1, HistTrend1.ScooterPosLeft),3),12,8);

HDWTemp = "$Date,$Time";

IF HTGetPenName( HistTrend1.Name, 1, 1 ) <> "Unassigned" THEN
HDWTemp = HDWTemp + "," + HTGetPenName( HistTrend1.Name, 1, 1 );
ENDIF;

IF HTGetPenName( HistTrend1.Name, 1, 2 ) <> "Unassigned" THEN
HDWTemp = HDWTemp + "," + HTGetPenName( HistTrend1.Name, 1, 2 );
ENDIF;

HDWTemp = HDWTemp + "+";

Tags = HDWTemp;

HDWTemp = "";

IF HTGetPenName( HistTrend1.Name, 1, 3 ) <> "Unassigned" THEN
HDWTemp = HTGetPenName( HistTrend1.Name, 1, 3 );
ENDIF;

IF HTGetPenName( HistTrend1.Name, 1, 4 ) <> "Unassigned" THEN
IF HDWTemp <> "" THEN
HDWTemp = HDWTemp + ",";
ENDIF;

HDWTemp = HDWTemp + HTGetPenName( HistTrend1.Name, 1, 4 );
ENDIF;

IF HTGetPenName( HistTrend1.Name, 1, 5 ) <> "Unassigned" THEN
IF HDWTemp <> "" THEN
HDWTemp = HDWTemp + ",";
ENDIF;

HDWTemp = HDWTemp + HTGetPenName( HistTrend1.Name, 1, 5 );
ENDIF;

HDWTemp = HDWTemp + "+";

Tags1 = HDWTemp;

HDWTemp = "";

IF HTGetPenName( HistTrend1.Name, 1, 6 ) <> "Unassigned" THEN
HDWTemp = HTGetPenName( HistTrend1.Name, 1, 6 );
ENDIF;

IF HTGetPenName( HistTrend1.Name, 1, 7 ) <> "Unassigned" THEN
IF HDWTemp <> "" THEN
HDWTemp = HDWTemp + ",";
ENDIF;

HDWTemp = HDWTemp + HTGetPenName( HistTrend1.Name, 1, 7 );
ENDIF;

IF HTGetPenName( HistTrend1.Name, 1, 8 ) <> "Unassigned" THEN
IF HDWTemp <> "" THEN
HDWTemp = HDWTemp + ",";
ENDIF;

HDWTemp = HDWTemp + HTGetPenName( HistTrend1.Name, 1, 8 );
ENDIF;

Tags2 = HDWTemp;

{Interval = Text( HistTrend1.ChartLength * ( HistTrend1.ScooterPosRight - HistTrend1.ScooterPosLeft ) / 10,"0.00000" ) + "S";}

WriteFile = 1;
WriteFile = WriteFile;

ELSE
Status = 0;
Error = "Input file name";
ENDIF;




поле ввода для имени файла (с тегом FileToExport)
но файл не создается
или я что то не понимаю , может его создавать надо отдельно как то
в общем кто знает подскажите пожалуйста

Почитайте HistData.chm.
Утилита специально создана для конвертации данных исторических трендов в CSV-формат.