QuickScript .NET — различия между версиями

Версия 16:12, 9 сентября 2013

QuickScript (для InTouch)

QuickScript .NET (для Application Server)

Общие вопросы

Задание размерности массива

Dim size as integer; 
Size = me.ArrayAttribute[].Dimension1; 'Gets the array size as integer 
Size = 25; 
me.ArrayAttribute[].Dimension1 = Size; 'Sets the array size Note: The change must be done from within the object.

Работа с Historian

Question: Can I use script i AppServer to change the Historian name? Answer: No, but you should be able to do so using the GRAccess Toolkit

Работа с файлами

Примеры

Удаление файла:

System.IO.File.Delete("C:\temp\temp.xlsx");   

Работа с MS Excel

SR30711946: How to maximize an excel application? Use WWControl()

SR19817850: указано много особенностей работы с Excel (https://wdnresource.wonderware.com/automation/csparea/SRDetail.aspx?id=19817850)

В Windows 2008 с Excel 2007 может быть проблема с сохранением файлов, для этого см. http://social.msdn.microsoft.com/Forums/en-US/b81a3c4e-62db-488b-af06-44421818ef91/excel-2007-automation-on-top-of-a-windows-server-2008-x64 Решение:

 ・Windows 2008 Server x64  please make this folder.    C:\Windows\SysWOW64\config\systemprofile\Desktop
 ・Windows 2008 Server x86  please make this folder.    C:\Windows\System32\config\systemprofile\Desktop

Для импортирования функций Excel и возможности работы с типами Excel._Application; Excel._Workbook; Excel._WorkSheet необходимо: - Galaxy -> import -> Script Function Library файл: C:\Program Files (x86)\Microsoft Office\Office12\Excel.exe

Описание объектной модели

Самым "верхним" объектом в Excel является объект Application. Это объект приложение. И этот объект содержит ряд коллекций. Коллекция - это что-то вроде массива, только элементы в нее можно добавлять и удалять во время выполнения программы. Рабочие книги Excel входят в коллекцию Workbooks. Чтобы узнать количество открытых книг, используется метод Workbooks.Count.

Добавить новую книгу можно вызвав метод Workbooks.Add(). В качестве параметра этому методу можно передать имя шаблона, на основе которого будет создаваться новая книга. Чтобы открыть существующий файл Excel, вызывается метод Workbooks.Open("file.xls") - в результате будет открыт файл file.xls.

Закрыть книгу можно так: Workbooks(1).Close, или так: Workbooks("Книга1").Close, или закрыть все книги сразу: Workbooks.Close. Метод Close имеет ряд необязательных параметров. Вот они. expression.Close(SaveChanges, FileName, RouteWorkbook) Первый параметр SaveChanges имеет тип BOOL, если он равен TRUE, сделанные изменения сохранятся, если FALSE - то нет. Если параметр не задан, то при закрытии появляется диалоговое окно с вопросом о необходимости сохранения. Save changes ?

Доступ к книге можно получить по индексу и по имени книги. Имя книги - это имя файла, в котором она хранится. Fullname содержит полное имя, название файла и путь, а Name - только имя.

Примеры Application Server 3.5 + Microsoft Excel 2007

Для импортирования функций Excel и возможности работы с типами Excel._Application; Excel._Workbook; Excel._WorkSheet необходимо: - Galaxy -> import -> Script Function Library файл: C:\Program Files (x86)\Microsoft Office\Office12\Excel.exe

Пример создания файла Excel и записи в него данных

Перед этим импортировать библиотеку из excel.exe (см. выше) Тип скрипта асинхронный

LogMessage("Start Script");

dim app as Microsoft.Office.Interop.Excel._Application;
dim wb as Microsoft.Office.Interop.Excel._Workbook;
dim ws as Microsoft.Office.Interop.Excel._WorkSheet;


dim a1 as Microsoft.Office.Interop.Excel.Range;
dim a2 as Microsoft.Office.Interop.Excel.Range;
dim a3 as Microsoft.Office.Interop.Excel.Range;

app = new Microsoft.Office.Interop.Excel.Application;

wb = app.Workbooks.Add();
ws = wb.ActiveSheet;

a1 = ws.Range("A1");
a2 = ws.Range("A2");
a3 = ws.Range("A3");

a1.Value2 = 1000;
a2.Value2 = 2000;
a3.Value2 = "=A1*A2";

LogMessage(a3.Value2);

System.IO.File.Delete("C:\temp\temp.xlsx");
LogMessage("del file");

wb.SaveAs("C:\temp\temp.xlsx");
LogMessage("save file"); 

wb.Close(false);
LogMessage("close file"); 

LogMessage("end main part");

System.Runtime.InteropServices.Marshal.ReleaseComObject(ws );
System.Runtime.InteropServices.Marshal.ReleaseComObject(wb);
app.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(app);
System.GC.Collect();
System.GC.WaitForPendingFinalizers();
LogMessage("end");

Примеры из руководства AS3.6 файл: Scripting.pdf

Доработанный пример из руководства "Accessing an Excel Spreadsheet Using CreateObject" (AS3.6, файл: Scripting.pdf, стр. 111)

dim app as object;
dim wb as object;
dim ws as object;


app = CreateObject("Excel.Application");
wb = app.Workbooks.Add();
ws = wb.ActiveSheet;
ws.Range("A1").value = 20; 
ws.Range("A2").value = 30; 
ws.Range("A3").value = "=A1*A2"; 
LogMessage(ws.Range("A3").Value); 
wb.Close(false);


LogMessage("end main part");
System.Runtime.InteropServices.Marshal.ReleaseComObject(ws );
System.Runtime.InteropServices.Marshal.ReleaseComObject(wb);
app.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(app);
System.GC.Collect();
System.GC.WaitForPendingFinalizers();
LogMessage("end");

Очистка ресурсов после выгрузки данных в Excel

Источник: http://www.sql.ru/forum/906372/dlya-chego-nuzhen-marshal-releasecomobject

Пример кода очистки:

appl.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet);
System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook);
System.Runtime.InteropServices.Marshal.ReleaseComObject(appl);
worksheet = null;
workbook = null;
appl = null;
System.GC.Collect();

• Т.е. предложенный способ очистки ресурсов - корректный?
  • Не вполне. В конце после вызова System.GC.Collect() не хватает еще GC.WaitForPendingFinalizers().
• К чему приведет неиспользование данного метода?
  • Попробуйте сгениерить через интероп экселевский документ эдак на 50 тысяч строк раз 10-20-30. И понаблюдайте за памятью. Достаточно обычная * Следует ли применять данный метод к объектам Range?
  • Мало того, что к Range - это такой же com-объект, как и все прочие при работе через интероп. Желательно делать свои обертки для всех используемых объектов, и обертки эти делать с реализацией IDisposable, в которых Dispose будет освобождать память по подобному сценарию. Нужно это потому, что при работе с интероп сплошь и рядом имеет место быть неявное создание ссылок на com-объекты - например, вы получаете ссылку на Selection, и работаете с Selection.Range; при этом создается неявная ссылка на Selection.Range, которую GC не подбирает. Обертка, разумеется, ведет контроль за созданием подобных ссылок.

При использовании из AS3.5 без кода очистки не завершает процесс excel *32