Журнал LinuxFormat - перейти на главную

LXF81:OOo Basic

Материал из Linuxformat
(Различия между версиями)
Перейти к: навигация, поиск
м
м (восстановление кавычек в коде AWB)
 
(не показаны 5 промежуточных версий 1 участника)
Строка 1: Строка 1:
 +
{{Цикл/OOo Basic}}
 
== OOo Basic. Макросы в Calc ==
 
== OOo Basic. Макросы в Calc ==
''часть 2 Держите таблицы на расстоянии вытянутой руки и работайте с данными из консоли просто следуйте за '''Марком Бэйном!'''''
+
''часть 2 Держите таблицы на расстоянии вытянутой руки и работайте с данными из консоли просто следуйте за '''Марком Бэйном!'''''
  
 
Со времен разностной машины Чарльза Бэббиджа и до
 
Со времен разностной машины Чарльза Бэббиджа и до
появления табличного процессора Calc люди стараются изобретать средства автоматизации зубодробительных вычислений. Один из способов избежать монотонной работы использование
+
появления табличного процессора Calc люди стараются изобретать средства автоматизации зубодробительных вычислений. Один из способов избежать монотонной работы использование
 
электронных таблиц, легко управляющихся с нудными столбцами цифр.
 
электронных таблиц, легко управляющихся с нудными столбцами цифр.
 
Благодаря комбинации OOo Basic и Calc возможно не только автоматизировать выполнение сложных задач, но и, как я продемонстрирую,
 
Благодаря комбинации OOo Basic и Calc возможно не только автоматизировать выполнение сложных задач, но и, как я продемонстрирую,
 
манипулировать данными прямо из командной строки.
 
манипулировать данными прямо из командной строки.
Как и в прошлый раз, первый шаг создание документа. Код для
+
Как и в прошлый раз, первый шаг создание документа. Код для
 
открытия нового пустого документа Writer:
 
открытия нового пустого документа Writer:
sub main
+
<source lang="oobas">
 +
sub main
 
  loadNewFile
 
  loadNewFile
end sub
+
end sub
sub loadNewFile
+
sub loadNewFile
 
  dim doc as object, desk as object, myFile as string, Dummy()
 
  dim doc as object, desk as object, myFile as string, Dummy()
  myFile = “private:factory/sWriter”
+
  myFile = "private:factory/sWriter"
  desk = CreateUnoService(“com.sun.star.frame.Desktop”)
+
  desk = CreateUnoService("com.sun.star.frame.Desktop")
  doc = desk.loadComponentFromUrl(myFile,”_blank”, 0,Dummy())
+
  doc = desk.loadComponentFromUrl(myFile,"_blank", 0,Dummy())
end sub
+
end sub
 +
</source>
  
 
Просмотрев код, вы увидите, что тип открываемого файла
 
Просмотрев код, вы увидите, что тип открываемого файла
 
определяется строкой
 
определяется строкой
  myFile = “private:factory/sWriter”
+
  myFile = "private:factory/sWriter"
  
 
Теперь надо бы знать, что подставить вместо swriter. Для открытия
 
Теперь надо бы знать, что подставить вместо swriter. Для открытия
 
таблицы необходимо сделать замену на sCalc:
 
таблицы необходимо сделать замену на sCalc:
  myFile = “private:factory/sCalc”
+
  myFile = "private:factory/sCalc"
===Будьте ленивее===
+
 
 +
=== Будьте ленивее ===
 
Понимаю вашу мысль: не писать же отдельную процедуру для каждого
 
Понимаю вашу мысль: не писать же отдельную процедуру для каждого
 
типа файла! Вам хочется, чтобы одна процедура выполняла всю работу.
 
типа файла! Вам хочется, чтобы одна процедура выполняла всю работу.
 
Так должен думать каждый уважающий себя программист, и вот как это
 
Так должен думать каждый уважающий себя программист, и вот как это
 
можно реализовать:
 
можно реализовать:
sub main
+
<source lang="oobas">
  loadNewFile(“sCalc”)
+
sub main
end sub
+
  loadNewFile("sCalc")
sub loadNewFile (filetype as string)
+
end sub
 +
sub loadNewFile (filetype as string)
 
  dim doc as object, desk as object, myFile as string, Dummy()
 
  dim doc as object, desk as object, myFile as string, Dummy()
  myFile = “private:factory/& filetype
+
  myFile = "private:factory/" & filetype
  desk = CreateUnoService(“com.sun.star.frame.Desktop”)
+
  desk = CreateUnoService("com.sun.star.frame.Desktop")
  doc = desk.loadComponentfromurl(myFile,”_blank”,0,Dummy())
+
  doc = desk.loadComponentfromurl(myFile,"_blank",0,Dummy())
end sub
+
end sub
 +
</source>
  
 
Благодаря тому, что наша процедура принимает тип файла в
 
Благодаря тому, что наша процедура принимает тип файла в
Строка 46: Строка 52:
 
документа Writer, и таблицы Calc. При желании можно даже задать тип
 
документа Writer, и таблицы Calc. При желании можно даже задать тип
 
по умолчанию, используя опциональный параметр и метод isMissing:
 
по умолчанию, используя опциональный параметр и метод isMissing:
sub loadNewFile (optional filetype as string)
+
<source lang="oobas">
if isMissing(filetype) then
+
sub loadNewFile (optional filetype as string)
  filetype = “sCalc”
+
if isMissing(filetype) then
end if
+
  filetype = "sCalc"
 +
end if
 +
</source>
  
Хорошо, теперь мы умеем открывать пустую таблицу а как насчет
+
Хорошо, теперь мы умеем открывать пустую таблицу а как насчет
 
записи в ячейку? Следующая процедура поможет это сделать:
 
записи в ячейку? Следующая процедура поможет это сделать:
sub writeToCell
+
<source lang="oobas">
 +
sub writeToCell
 
  dim sheet as object, cell as object
 
  dim sheet as object, cell as object
 
  sheet = thisComponent.sheets(0)
 
  sheet = thisComponent.sheets(0)
 
  cell = sheet.getCellByPosition(0,0)
 
  cell = sheet.getCellByPosition(0,0)
  cell.string = ”Hello World”
+
  cell.string = "Hello World"
end sub
+
end sub
 +
</source>
  
 
Запомните, что эту процедуру необходимо вызывать из процедуры
 
Запомните, что эту процедуру необходимо вызывать из процедуры
Строка 66: Строка 76:
 
понять ее работу. thisComponent мы уже видели (когда рассматривали
 
понять ее работу. thisComponent мы уже видели (когда рассматривали
 
OOo Basic и документ Writer): это просто ссылка на текущий документ
 
OOo Basic и документ Writer): это просто ссылка на текущий документ
(в нашем случае на таблицу). Далее мы выбираем лист, с которым
+
(в нашем случае на таблицу). Далее мы выбираем лист, с которым
 
будем работать; sheet(0) является первым листом (или Sheet1) в
 
будем работать; sheet(0) является первым листом (или Sheet1) в
 
Calc. Sheet(1) будет ссылаться на второй лист, и так далее. Наконец,
 
Calc. Sheet(1) будет ссылаться на второй лист, и так далее. Наконец,
Строка 72: Строка 82:
 
который требует в качестве входных параметров номер столбца и номер
 
который требует в качестве входных параметров номер столбца и номер
 
строки. Position(0,0) ссылается на ячейку A1, (1,0) соответствует B1,
 
строки. Position(0,0) ссылается на ячейку A1, (1,0) соответствует B1,
(0,2) А2, и так далее.
+
(0,2) А2, и так далее.
  
 
Все это здорово, но порядок ваших листов может меняться; что если
 
Все это здорово, но порядок ваших листов может меняться; что если
вы хотите обращаться к ним по именам? Нет проблем вместо sheets
+
вы хотите обращаться к ним по именам? Нет проблем вместо sheets
 
можно использовать метод getByName:
 
можно использовать метод getByName:
  sheet=thisComponent.sheets.getByName(“Sheet1”)
+
  sheet=thisComponent.sheets.getByName("Sheet1")
  
 
Теперь, когда мы знаем, как легко добавлять текст в документ (даже
 
Теперь, когда мы знаем, как легко добавлять текст в документ (даже
 
легче, чем в Writer), давайте попробуем сделать что-нибудь полезное:
 
легче, чем в Writer), давайте попробуем сделать что-нибудь полезное:
sub simple_maths
+
<source lang="oobas">
 +
sub simple_maths
 
  dim sheet as object, cell as object
 
  dim sheet as object, cell as object
  sheet = thisComponent.sheets.getByName(“Sheet1”)
+
  sheet = thisComponent.sheets.getByName("Sheet1")
 
  cell = sheet.getCellByPosition(0,0)
 
  cell = sheet.getCellByPosition(0,0)
 
  cell.value = 10
 
  cell.value = 10
Строка 89: Строка 100:
 
  cell.value = 10
 
  cell.value = 10
 
  cell = sheet.getCellByPosition(0,2)
 
  cell = sheet.getCellByPosition(0,2)
  cell.formula == A1+A2”
+
  cell.formula ="= A1+A2"
end sub
+
end sub
 +
</source>
  
 
Особой пользы тут нет, но зато этот пример показывает, что
 
Особой пользы тут нет, но зато этот пример показывает, что
Строка 96: Строка 108:
 
очень просто. Можно улучшить процедуру, разрешив ввод чисел в
 
очень просто. Можно улучшить процедуру, разрешив ввод чисел в
 
процедуру в качестве аргументов:
 
процедуру в качестве аргументов:
sub simple_maths(numbA as double, numbB as double)
+
<source lang="oobas">
 +
sub simple_maths(numbA as double, numbB as double)
 
  dim sheet as object, cell as object
 
  dim sheet as object, cell as object
  sheet=thisComponent.sheets.getByName(“Sheet1”)
+
  sheet=thisComponent.sheets.getByName("Sheet1")
 
  cell=sheet.getCellByPosition(0,0)
 
  cell=sheet.getCellByPosition(0,0)
 
  cell.value=numbA
 
  cell.value=numbA
Строка 104: Строка 117:
 
  cell.value=numbB
 
  cell.value=numbB
 
  cell=sheet.getCellByPosition(0,2)
 
  cell=sheet.getCellByPosition(0,2)
  cell.formula==A1+A2”
+
  cell.formula="=A1+A2"
end sub
+
end sub
 +
</source>
  
 
Теперь надо немного изменить процедуру Main:
 
Теперь надо немного изменить процедуру Main:
Строка 111: Строка 125:
  
 
Пример, конечно, тривиальный: было бы куда быстрее вбить цифры
 
Пример, конечно, тривиальный: было бы куда быстрее вбить цифры
в таблицу вручную. Но ведь это только начало вы можете приняться
+
в таблицу вручную. Но ведь это только начало вы можете приняться
 
за любые усложнения обработки данных согласно вашим потребностям.
 
за любые усложнения обработки данных согласно вашим потребностям.
По-вашему, 2 числа это слишком мало: а вдруг понадобится передать
+
По-вашему, 2 числа это слишком мало: а вдруг понадобится передать
 
10, 100 или 1000 значений? К счастью, в процедуру очень легко
 
10, 100 или 1000 значений? К счастью, в процедуру очень легко
 
передать массив:
 
передать массив:
sub main
+
<source lang="oobas">
 +
sub main
 
  loadNewFile
 
  loadNewFile
 
  simple_maths_array(array(45,67,89,34))
 
  simple_maths_array(array(45,67,89,34))
end sub
+
end sub
sub simple_maths_array(numbers)
+
sub simple_maths_array(numbers)
 
  dim sheet as object, cell as object, r as integer, sum as double
 
  dim sheet as object, cell as object, r as integer, sum as double
  sheet = thisComponent.sheets.getByName(“Sheet1”)
+
  sheet = thisComponent.sheets.getByName("Sheet1")
 
  sum = 0
 
  sum = 0
 
  for r = 0 to ubound(numbers)
 
  for r = 0 to ubound(numbers)
sum = sum + numbers(r)
+
  sum = sum + numbers(r)
cell = sheet.getCellByPosition(0,r)
+
  cell = sheet.getCellByPosition(0,r)
cell.value = numbers(r)
+
  cell.value = numbers(r)
 
  next
 
  next
 
  cell = sheet.getCellByPosition(0,r+1)
 
  cell = sheet.getCellByPosition(0,r+1)
 
  cell.value = sum
 
  cell.value = sum
end sub
+
end sub
 +
</source>
  
 
Процедура simple_maths_array заполняет первую колонку
 
Процедура simple_maths_array заполняет первую колонку
Строка 142: Строка 158:
 
существующую таблицу (~/test.ods) и отображает содержимое ячейки
 
существующую таблицу (~/test.ods) и отображает содержимое ячейки
 
A1 листа Sheet1:
 
A1 листа Sheet1:
sub dataFromExistingFile
+
<source lang="oobas">
 +
sub dataFromExistingFile
 
  dim doc as object, desk as object, sheet as object, cell as object
 
  dim doc as object, desk as object, sheet as object, cell as object
 
  dim url as string, contents as double, Dummy()
 
  dim url as string, contents as double, Dummy()
  desk = CreateUnoService(“com.sun.star.frame.Desktop”)
+
  desk = CreateUnoService("com.sun.star.frame.Desktop")
 
  url=file://~/test.ods
 
  url=file://~/test.ods
  doc = desk.loadComponentfromurl(url,”_blank”,0,Dummy())
+
  doc = desk.loadComponentfromurl(url,"_blank",0,Dummy())
  sheet = thisComponent.sheets.getByName(“Sheet1”)
+
  sheet = thisComponent.sheets.getByName("Sheet1")
 
  cell = sheet.getCellByPosition(0,0)
 
  cell = sheet.getCellByPosition(0,0)
 
  contents = cell.value
 
  contents = cell.value
 
  msgbox(contents)
 
  msgbox(contents)
end sub
+
end sub
 +
</source>
  
 
Тут вы, видимо, спросите: а что будет, если ячейка содержит текст,
 
Тут вы, видимо, спросите: а что будет, если ячейка содержит текст,
Строка 159: Строка 177:
 
то параметр value будет установлен в ноль, таким образом, проблема
 
то параметр value будет установлен в ноль, таким образом, проблема
 
будет устранена.
 
будет устранена.
===Немного математики===
+
 
 +
=== Немного математики ===
 
Пока что мы всего-навсего писали и читали данные из ячеек. Пора
 
Пока что мы всего-навсего писали и читали данные из ячеек. Пора
 
заняться чем-нибудь поинтереснее. Как насчет использования встроенных математических функций OpenOffice.org Calc? Допустим, мы хотим
 
заняться чем-нибудь поинтереснее. Как насчет использования встроенных математических функций OpenOffice.org Calc? Допустим, мы хотим
 
посчитать сумму, среднее чисел и стандартное отклонение. Это можно
 
посчитать сумму, среднее чисел и стандартное отклонение. Это можно
 
сделать, используя сервис FunctionAccess:
 
сделать, используя сервис FunctionAccess:
sub usingOOoFunctions(iArray)
+
<source lang="oobas">
 +
sub usingOOoFunctions(iArray)
 
  dim service as object, sheet as object, cell as object
 
  dim service as object, sheet as object, cell as object
  service = createUnoService( “com.sun.star.sheet.FunctionAccess” )
+
  service = createUnoService( "com.sun.star.sheet.FunctionAccess" )
  sheet = thisComponent.sheets.getByName(“Sheet1”)
+
  sheet = thisComponent.sheets.getByName("Sheet1")
 
  cell = sheet.getCellByPosition(0,0)
 
  cell = sheet.getCellByPosition(0,0)
  cell.value = service.callFunction( “STDEV”, iArray )
+
  cell.value = service.callFunction( "STDEV", iArray )
end sub
+
end sub
 +
</source>
  
 
Как всегда, не забудьте изменить процедуру Main, чтобы новая
 
Как всегда, не забудьте изменить процедуру Main, чтобы новая
Строка 177: Строка 198:
  
 
Не сомневаюсь, что вы немедля найдете кучу недостатков у
 
Не сомневаюсь, что вы немедля найдете кучу недостатков у
usingOOoFunctions на данный момент она умеет считать только
+
usingOOoFunctions на данный момент она умеет считать только
 
стандартное отклонение, использует только Sheet1 и пишет только в
 
стандартное отклонение, использует только Sheet1 и пишет только в
 
ячейку A1. Но, используя входные параметры, ее можно сделать весьма
 
ячейку A1. Но, используя входные параметры, ее можно сделать весьма
 
адаптивной:
 
адаптивной:
sub usingOOoFunctions( fType as string, sName as string, _c as integer,r as integer, iArray )
+
<source lang="oobas">
 +
sub usingOOoFunctions( fType as string, sName as string, _c as integer,r as integer, iArray )
 
  dim service as object, sheet as object, cell as object
 
  dim service as object, sheet as object, cell as object
  service = createUnoService( “com.sun.star.sheet.FunctionAccess” )
+
  service = createUnoService( "com.sun.star.sheet.FunctionAccess" )
 
  sheet = thisComponent.sheets.getByName(sName)
 
  sheet = thisComponent.sheets.getByName(sName)
 
  cell = sheet.getCellByPosition(c,r)
 
  cell = sheet.getCellByPosition(c,r)
 
  cell.value = service.callFunction( fType, iArray )
 
  cell.value = service.callFunction( fType, iArray )
end sub
+
end sub
 +
</source>
  
 
Модифицируйте Main следующим образом:
 
Модифицируйте Main следующим образом:
  usingOOoFunctions(“STDEV”,”Sheet1”, 1, 1, array(45,67,89,34))
+
  usingOOoFunctions("STDEV","Sheet1", 1, 1, array(45,67,89,34))
  
 
Возникает серьезный вопрос: как обрабатывать неверные операции
 
Возникает серьезный вопрос: как обрабатывать неверные операции
 
или входные данные? Например, что произойдет при попытке
 
или входные данные? Например, что произойдет при попытке
 
выполнить
 
выполнить
  usingOOoFunctions(“SQRT”,”Sheet1”, 1, 1, array(-1))
+
  usingOOoFunctions("SQRT","Sheet1", 1, 1, array(-1))
* то есть извлечь квадратный корень из «-1»? (Надеюсь, вы в курсе, что так делать нельзя [ну, по крайней мере, на множестве действительных чисел, прим.ред.].) Ошибочные ситуации можно отсечь, написав следующий код:
+
* то есть извлечь квадратный корень из «-1»? (Надеюсь, вы в курсе, что так делать нельзя [ну, по крайней мере, на множестве действительных чисел, прим.ред.].) Ошибочные ситуации можно отсечь, написав следующий код:
  if (fType <> “SQRT” and iArray(0) <> -1 ) then
+
  if (fType <> "SQRT" and iArray(0) <> -1 ) then
 
* но тогда выходит, что вы обязаны предусмотреть все возможные комбинации функций и их аргументов, способные вызвать ошибку.
 
* но тогда выходит, что вы обязаны предусмотреть все возможные комбинации функций и их аргументов, способные вызвать ошибку.
  
 
Самым эффективным решением будет написание обработчика
 
Самым эффективным решением будет написание обработчика
 
ошибок. Рассмотрим пример (он завершится аварийно):
 
ошибок. Рассмотрим пример (он завершится аварийно):
function dummy as double
+
<source lang="oobas">
 +
function dummy as double
 
  dim service as object
 
  dim service as object
  service = createUnoService( “com.sun.star.sheet.FunctionAccess” )
+
  service = createUnoService( "com.sun.star.sheet.FunctionAccess" )
  dummy = service.callFunction( “SQRT”, array(-1) )
+
  dummy = service.callFunction( "SQRT", array(-1) )
end function
+
end function
 +
</source>
  
 
Запустите ее с
 
Запустите ее с
Строка 215: Строка 240:
 
ошибки просто отошлет к выполнению следующей строки кода. Вы,
 
ошибки просто отошлет к выполнению следующей строки кода. Вы,
 
видимо, заявите (довольно верно), что нам незачем продолжать
 
видимо, заявите (довольно верно), что нам незачем продолжать
выполнение кода лучше изящно выйти вон. Значит, потребуется
+
выполнение кода лучше изящно выйти вон. Значит, потребуется
 
добавить кое-какой код для правильной обработки ошибки:
 
добавить кое-какой код для правильной обработки ошибки:
function dummy as double
+
<source lang="oobas">
 +
function dummy as double
 
  dim service as object
 
  dim service as object
 
  on error goto errorFound
 
  on error goto errorFound
  service = createUnoService( “com.sun.star.sheet.FunctionAccess” )
+
  service = createUnoService( "com.sun.star.sheet.FunctionAccess" )
  dummy = service.callFunction( “SQRT”, array(-1) )
+
  dummy = service.callFunction( "SQRT", array(-1) )
 
  exit function
 
  exit function
 
  errorFound:
 
  errorFound:
  msgbox(“Invalid input. Result set to -1”)
+
  msgbox("Invalid input. Result set to -1")
 
  dummy=-1
 
  dummy=-1
end function
+
end function
 +
</source>
  
 
Теперь функция не продолжит выполнение, а перескочит на метку
 
Теперь функция не продолжит выполнение, а перескочит на метку
 
errorFound: (двоеточие означает, что данная лексема является меткой).
 
errorFound: (двоеточие означает, что данная лексема является меткой).
 
Заметим, что exit function стоит ДО кода обработки ошибки, иначе
 
Заметим, что exit function стоит ДО кода обработки ошибки, иначе
этот код будет выполняться всегда, хоть бы ошибки и не было а нам-
+
этот код будет выполняться всегда, хоть бы ошибки и не было а нам-
 
то надо, чтобы ошибка обрабатывалась, только если она действительно
 
то надо, чтобы ошибка обрабатывалась, только если она действительно
 
возникла.
 
возникла.
===Функция не есть процедура===
+
 
 +
=== Функция не есть процедура ===
 
В приведенных примерах мы использовали функции и процедуры. Вы
 
В приведенных примерах мы использовали функции и процедуры. Вы
спросите: а в чем разница? Функция и процедура почти одно и то же,
+
спросите: а в чем разница? Функция и процедура почти одно и то же,
 
только функция еще и возвращает результат. Это значит, что, определяя
 
только функция еще и возвращает результат. Это значит, что, определяя
 
функцию, вы должны указать, какой тип результата она возвратит. Вот
 
функцию, вы должны указать, какой тип результата она возвратит. Вот
Строка 242: Строка 270:
  
 
Сначала установим значение переменной с помощью процедуры:
 
Сначала установим значение переменной с помощью процедуры:
dim sheet as object, cell as object
+
<source lang="oobas">
sub main
+
dim sheet as object, cell as object
 +
sub main
 
  loadNewFile
 
  loadNewFile
 
  sheet=thisComponent.sheets(0)
 
  sheet=thisComponent.sheets(0)
 
  cell=sheet.getCellByPosition(0,0)
 
  cell=sheet.getCellByPosition(0,0)
 
  simple_sub
 
  simple_sub
end sub
+
end sub
sub simple_sub
+
sub simple_sub
 
  cell.value = 1
 
  cell.value = 1
end sub
+
end sub
 +
</source>
  
 
Теперь сделаем то же самое, но уже с помощью функции:
 
Теперь сделаем то же самое, но уже с помощью функции:
dim sheet as object, cell as object
+
<source lang="oobas">
sub main
+
dim sheet as object, cell as object
 +
sub main
 
  loadNewFile
 
  loadNewFile
 
  sheet=thisComponent.sheets(0)
 
  sheet=thisComponent.sheets(0)
 
  cell=sheet.getCellByPosition(0,0)
 
  cell=sheet.getCellByPosition(0,0)
 
  cell.value = simple_function
 
  cell.value = simple_function
end sub
+
end sub
function simple_function as integer
+
function simple_function as integer
 
  simple_function = 1
 
  simple_function = 1
end function
+
end function
 +
</source>
  
 
Заметили? Процедура записывает напрямую в ячейку, а функция
 
Заметили? Процедура записывает напрямую в ячейку, а функция
Строка 275: Строка 307:
 
но из-за этого вы должны быть очень внимательны, назначая имена
 
но из-за этого вы должны быть очень внимательны, назначая имена
 
переменным:
 
переменным:
dim sheet_number as integer
+
<source lang="oobas">
dim sheet as object, cell as object
+
dim sheet_number as integer
sub main
+
dim sheet as object, cell as object
 +
sub main
 
  loadNewFile
 
  loadNewFile
 
  set_sheetnumber
 
  set_sheetnumber
Строка 283: Строка 316:
 
  cell = sheet.getCellByPosition(0,0)
 
  cell = sheet.getCellByPosition(0,0)
 
  cell.value = sheet_number
 
  cell.value = sheet_number
end sub
+
end sub
sub set_sheetnumber
+
sub set_sheetnumber
 
  sheet_number = 1
 
  sheet_number = 1
end sub
+
end sub
 +
</source>
  
 
Число 1 записывается в ячейку А1 листа Sheet2.
 
Число 1 записывается в ячейку А1 листа Sheet2.
Строка 298: Строка 332:
 
Теперь мы можем легко и просто читать и записывать любую
 
Теперь мы можем легко и просто читать и записывать любую
 
ячейку на любом листе таблицы. Значит, настало время заняться
 
ячейку на любом листе таблицы. Значит, настало время заняться
именами листов. Они не оригинальны Sheet1, Sheet2, Sheet3 и не
+
именами листов. Они не оригинальны Sheet1, Sheet2, Sheet3 и не
 
информативны. К тому же их всего три.
 
информативны. К тому же их всего три.
sub changeSheetNames
+
<source lang="oobas">
 +
sub changeSheetNames
 
  dim sheet as object
 
  dim sheet as object
  sheet = thisComponent.createInstance(“com.sun.star.sheet.Spreadsheet”)
+
  sheet = thisComponent.createInstance("com.sun.star.sheet.Spreadsheet")
thisComponent.Sheets.insertByName(“MySheet”, Sheet)
+
        thisComponent.Sheets.insertByName("MySheet", Sheet)
thisComponent.sheets.removebyname(“Sheet1”)
+
        thisComponent.sheets.removebyname("Sheet1")
thisComponent.sheets.removebyname(“Sheet2”)
+
        thisComponent.sheets.removebyname("Sheet2")
thisComponent.sheets.removebyname(“Sheet3”)
+
        thisComponent.sheets.removebyname("Sheet3")
end sub
+
end sub
 +
</source>
  
Легко и просто но малость ограниченно. Было бы действительно
+
Легко и просто но малость ограниченно. Было бы действительно
полезно передавать имена листов в качестве массива смотрите:
+
полезно передавать имена листов в качестве массива смотрите:
dim i as integer
+
<source lang="oobas">
for i = 0 to ubound(sheetNames)
+
dim i as integer
  sheet = thisComponent.createInstance(“com.sun.star.sheet.Spreadsheet”)
+
for i = 0 to ubound(sheetNames)
thisComponent.Sheets.insertByName(sheetNames(i), Sheet)
+
  sheet = thisComponent.createInstance("com.sun.star.sheet.Spreadsheet")
next
+
        thisComponent.Sheets.insertByName(sheetNames(i), Sheet)
===Слушай мою команду…===
+
next
 +
</source>
 +
 
 +
=== Слушай мою команду… ===
 
Наконец, мы можем объединить все, что мы рассмотрели в этом руководстве (плюс кое-что из прошлого выпуска). Следующий код запускает
 
Наконец, мы можем объединить все, что мы рассмотрели в этом руководстве (плюс кое-что из прошлого выпуска). Следующий код запускает
 
команды интерпретатора (в нашем случае это df и du), сохраняет результаты в файле, а затем загружает их в таблицу.
 
команды интерпретатора (в нашем случае это df и du), сохраняет результаты в файле, а затем загружает их в таблицу.
  
 
Выполняем:
 
Выполняем:
const tmpFile as string = /tmp/myfile.tmp”
+
<source lang="oobas">
const bshFile as string = /tmp/runme.bsh”
+
const tmpFile as string = "/tmp/myfile.tmp"
sub main
+
const bshFile as string = "/tmp/runme.bsh"
 +
sub main
 
  theFullWorks
 
  theFullWorks
end sub
+
end sub
function buildCommand (ipCommand as string) as string
+
function buildCommand (ipCommand as string) as string
  buildCommand = “rm -f & tmpFile & ;_
+
  buildCommand = "rm -f " & tmpFile & ";" _
  & ipCommand & | sed s/\t’/’ ‘/g >& tmpFile & ;_
+
  & ipCommand & " | sed s/'\t'/' '/g >" & tmpFile & ";" _
  & “while [ “”$(grep ‘ ‘ “ & tmpFile & )”” != “””” ];_
+
  & "while [ ""$(grep ' ' " & tmpFile & ")"" != """" ];" _
  & “do cat & tmpFile & | sed s/’ ‘/’ ‘/g > & tmpFile & “1;_
+
  & "do cat " & tmpFile & " | sed s/' '/' '/g > " & tmpFile & "1;" _
  & “mv “ & tmpFile & “1 “ & tmpFile & ;& “done”
+
  & "mv " & tmpFile & "1 " & tmpFile & ";" & "done"
end function
+
end function
sub theFullWorks
+
sub theFullWorks
 
  dim command as string
 
  dim command as string
 
  loadNewFile
 
  loadNewFile
  changeSheetNames (array(“Disk Space Usage”,”File Usage”))
+
  changeSheetNames (array("Disk Space Usage","File Usage"))
  command = buildCommand(“df|grep -v Filesystem”)
+
  command = buildCommand("df|grep -v Filesystem")
  reportSheet(command,”Disk Space Usage”)
+
  reportSheet(command,"Disk Space Usage")
  command = buildCommand(“du /| sort -nr”)
+
  command = buildCommand("du /| sort -nr")
  reportSheet(command,”File Usage”)
+
  reportSheet(command,"File Usage")
end sub
+
end sub
sub reportSheet (command as string, sheetName as string)
+
sub reportSheet (command as string, sheetName as string)
 
  dim sheet as object, cell as object
 
  dim sheet as object, cell as object
 
  dim iNumber As Integer, oNumber As Integer, iLine As String
 
  dim iNumber As Integer, oNumber As Integer, iLine As String
Строка 351: Строка 391:
 
  print #oNumber,command
 
  print #oNumber,command
 
  close #oNumber
 
  close #oNumber
  shell(“bash -c “”” & bshFile & “”””,,,true)
+
  shell("bash -c """ & bshFile & """",,,true)
 
  i = 1
 
  i = 1
 
  sheet=thisComponent.sheets.getByName(sheetName)
 
  sheet=thisComponent.sheets.getByName(sheetName)
Строка 360: Строка 400:
 
  cArray = split(iLine)
 
  cArray = split(iLine)
 
  for c=0 to ubound(cArray)
 
  for c=0 to ubound(cArray)
cell=sheet.getCellByPosition(c,i)
+
  cell=sheet.getCellByPosition(c,i)
cell.string=cArray(c)
+
  cell.string=cArray(c)
 
  next
 
  next
 
  i = i + 1
 
  i = i + 1
 
  wend
 
  wend
 
  Close #iNumber
 
  Close #iNumber
end sub
+
end sub
 +
</source>
  
 +
[[Изображение:Img 81 71 1.png|thumb|300px|Чтобы просмотреть команду, выполняемую оболочкой, используйте msgbox.]]
 
Большая часть кода вполне понятна, но несколько мест выглядят
 
Большая часть кода вполне понятна, но несколько мест выглядят
 
слегка пугающе. Например, что означают & и зачем они нужны? С
 
слегка пугающе. Например, что означают & и зачем они нужны? С
Строка 373: Строка 415:
 
командным интерпретатором Linux. Если вы хотите увидеть, что именно
 
командным интерпретатором Linux. Если вы хотите увидеть, что именно
 
будет выполняться, просто добавьте msgbox следующим образом:
 
будет выполняться, просто добавьте msgbox следующим образом:
Sub main
+
<source lang="oobas">
 +
Sub main
 
  dim command as string
 
  dim command as string
  command = buildCommand(“df|grep –v Filesystem”)
+
  command = buildCommand("df|grep –v Filesystem")
 
  msgbox(command)
 
  msgbox(command)
end sub
+
end sub
 
+
</source>
<font color=red>(см. пример в верху страницы)</font>
+
  
 
Код, который мы рассмотрели, выглядит достаточно просто, но вы,
 
Код, который мы рассмотрели, выглядит достаточно просто, но вы,
Строка 390: Строка 432:
 
* И спользуйте CreateUnoService для доступа к различным интерфейсам OpenOffice.org (или Универсальным Сетевым Объектам)
 
* И спользуйте CreateUnoService для доступа к различным интерфейсам OpenOffice.org (или Универсальным Сетевым Объектам)
 
* Если вам лень все время писать thisComponent, можете заменить его псевдонимом:
 
* Если вам лень все время писать thisComponent, можете заменить его псевдонимом:
dim doc as object
+
<source lang="oobas">
doc = thisComponent
+
dim doc as object
* Помните разницу между функцией и процедурой функция выполняет код и возвращает значение. Процедура выполняет код, но не возвращает никакого результата.
+
doc = thisComponent
 +
</source>
 +
* Помните разницу между функцией и процедурой функция выполняет код и возвращает значение. Процедура выполняет код, но не возвращает никакого результата.
 
* Заметив, что какой-либо участок вашего кода неоднократно повторяется, обдумайте, можно ли вынести его в процедуру или функцию.
 
* Заметив, что какой-либо участок вашего кода неоднократно повторяется, обдумайте, можно ли вынести его в процедуру или функцию.
 
* Если вы пишете код для выполнения командным интерпретатором, отлаживайте его методом просмотра в msgbox
 
* Если вы пишете код для выполнения командным интерпретатором, отлаживайте его методом просмотра в msgbox
  
===Объекты, которые вам нужны===
+
=== Объекты, которые вам нужны ===
 
Доступ к Универсальным Сетевым
 
Доступ к Универсальным Сетевым
 
Объектам OpenOffice.org можно
 
Объектам OpenOffice.org можно

Текущая версия на 16:42, 27 апреля 2008

Содержание

[править] OOo Basic. Макросы в Calc

часть 2 Держите таблицы на расстоянии вытянутой руки и работайте с данными из консоли — просто следуйте за Марком Бэйном!

Со времен разностной машины Чарльза Бэббиджа и до появления табличного процессора Calc люди стараются изобретать средства автоматизации зубодробительных вычислений. Один из способов избежать монотонной работы — использование электронных таблиц, легко управляющихся с нудными столбцами цифр. Благодаря комбинации OOo Basic и Calc возможно не только автоматизировать выполнение сложных задач, но и, как я продемонстрирую, манипулировать данными прямо из командной строки. Как и в прошлый раз, первый шаг — создание документа. Код для открытия нового пустого документа Writer:

sub main
 loadNewFile
end sub
sub loadNewFile
 dim doc as object, desk as object, myFile as string, Dummy()
 myFile = "private:factory/sWriter"
 desk = CreateUnoService("com.sun.star.frame.Desktop")
 doc = desk.loadComponentFromUrl(myFile,"_blank", 0,Dummy())
end sub

Просмотрев код, вы увидите, что тип открываемого файла определяется строкой

myFile = "private:factory/sWriter"

Теперь надо бы знать, что подставить вместо swriter. Для открытия таблицы необходимо сделать замену на sCalc:

myFile = "private:factory/sCalc"

[править] Будьте ленивее

Понимаю вашу мысль: не писать же отдельную процедуру для каждого типа файла! Вам хочется, чтобы одна процедура выполняла всю работу. Так должен думать каждый уважающий себя программист, и вот как это можно реализовать:

sub main
 loadNewFile("sCalc")
end sub
sub loadNewFile (filetype as string)
 dim doc as object, desk as object, myFile as string, Dummy()
 myFile = "private:factory/" & filetype
 desk = CreateUnoService("com.sun.star.frame.Desktop")
 doc = desk.loadComponentfromurl(myFile,"_blank",0,Dummy())
end sub

Благодаря тому, что наша процедура принимает тип файла в качестве аргумента, она становится гораздо более гибкой. Что еще более важно, можно обойтись всего одной процедурой для открытия и документа Writer, и таблицы Calc. При желании можно даже задать тип по умолчанию, используя опциональный параметр и метод isMissing:

sub loadNewFile (optional filetype as string)
if isMissing(filetype) then
 filetype = "sCalc"
end if

Хорошо, теперь мы умеем открывать пустую таблицу — а как насчет записи в ячейку? Следующая процедура поможет это сделать:

sub writeToCell
 dim sheet as object, cell as object
 sheet = thisComponent.sheets(0)
 cell = sheet.getCellByPosition(0,0)
 cell.string = "Hello World"
end sub

Запомните, что эту процедуру необходимо вызывать из процедуры Main.

Не мешает просмотреть процедуру writeToCell, чтобы как следует понять ее работу. thisComponent мы уже видели (когда рассматривали OOo Basic и документ Writer): это просто ссылка на текущий документ (в нашем случае — на таблицу). Далее мы выбираем лист, с которым будем работать; sheet(0) является первым листом (или Sheet1) в Calc. Sheet(1) будет ссылаться на второй лист, и так далее. Наконец, мы выбираем нужную ячейку с помощью метода getCellByPosition, который требует в качестве входных параметров номер столбца и номер строки. Position(0,0) ссылается на ячейку A1, (1,0) соответствует B1, (0,2) — А2, и так далее.

Все это здорово, но порядок ваших листов может меняться; что если вы хотите обращаться к ним по именам? Нет проблем — вместо sheets можно использовать метод getByName:

sheet=thisComponent.sheets.getByName("Sheet1")

Теперь, когда мы знаем, как легко добавлять текст в документ (даже легче, чем в Writer), давайте попробуем сделать что-нибудь полезное:

sub simple_maths
 dim sheet as object, cell as object
 sheet = thisComponent.sheets.getByName("Sheet1")
 cell = sheet.getCellByPosition(0,0)
 cell.value = 10
 cell = sheet.getCellByPosition(0,1)
 cell.value = 10
 cell = sheet.getCellByPosition(0,2)
 cell.formula ="= A1+A2"
end sub

Особой пользы тут нет, но зато этот пример показывает, что загружать данные в таблицу и затем совершать над ними операции очень просто. Можно улучшить процедуру, разрешив ввод чисел в процедуру в качестве аргументов:

sub simple_maths(numbA as double, numbB as double)
 dim sheet as object, cell as object
 sheet=thisComponent.sheets.getByName("Sheet1")
 cell=sheet.getCellByPosition(0,0)
 cell.value=numbA
 cell=sheet.getCellByPosition(0,1)
 cell.value=numbB
 cell=sheet.getCellByPosition(0,2)
 cell.formula="=A1+A2"
end sub

Теперь надо немного изменить процедуру Main:

simple_maths(12.5,35.7)

Пример, конечно, тривиальный: было бы куда быстрее вбить цифры в таблицу вручную. Но ведь это только начало — вы можете приняться за любые усложнения обработки данных согласно вашим потребностям. По-вашему, 2 числа — это слишком мало: а вдруг понадобится передать 10, 100 или 1000 значений? К счастью, в процедуру очень легко передать массив:

sub main
 loadNewFile
 simple_maths_array(array(45,67,89,34))
end sub
sub simple_maths_array(numbers)
 dim sheet as object, cell as object, r as integer, sum as double
 sheet = thisComponent.sheets.getByName("Sheet1")
 sum = 0
 for r = 0 to ubound(numbers)
  sum = sum + numbers(r)
  cell = sheet.getCellByPosition(0,r)
  cell.value = numbers(r)
 next
 cell = sheet.getCellByPosition(0,r+1)
 cell.value = sum
end sub

Процедура simple_maths_array заполняет первую колонку Sheet1 содержимым массива, а затем внизу подсчитывает сумму всех элементов.

Записав данные в таблицу, вы заинтересуетесь: можно ли использовать данные из существующей таблицы? Естественно, можно, а то бы я и упоминать об этом не стал. Следующая процедура открывает существующую таблицу (~/test.ods) и отображает содержимое ячейки A1 листа Sheet1:

sub dataFromExistingFile
 dim doc as object, desk as object, sheet as object, cell as object
 dim url as string, contents as double, Dummy()
 desk = CreateUnoService("com.sun.star.frame.Desktop")
 url=file://~/test.ods
 doc = desk.loadComponentfromurl(url,"_blank",0,Dummy())
 sheet = thisComponent.sheets.getByName("Sheet1")
 cell = sheet.getCellByPosition(0,0)
 contents = cell.value
 msgbox(contents)
end sub

Тут вы, видимо, спросите: а что будет, если ячейка содержит текст, а не число? Наверное, команда contents = cell.value вызовет ошибку, и процедура не выполнится? А вот и нет: если ячейка содержит текст, то параметр value будет установлен в ноль, таким образом, проблема будет устранена.

[править] Немного математики

Пока что мы всего-навсего писали и читали данные из ячеек. Пора заняться чем-нибудь поинтереснее. Как насчет использования встроенных математических функций OpenOffice.org Calc? Допустим, мы хотим посчитать сумму, среднее чисел и стандартное отклонение. Это можно сделать, используя сервис FunctionAccess:

sub usingOOoFunctions(iArray)
 dim service as object, sheet as object, cell as object
 service = createUnoService( "com.sun.star.sheet.FunctionAccess" )
 sheet = thisComponent.sheets.getByName("Sheet1")
 cell = sheet.getCellByPosition(0,0)
 cell.value = service.callFunction( "STDEV", iArray )
end sub

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

usingOOoFunctions(array(45,67,89,34))

Не сомневаюсь, что вы немедля найдете кучу недостатков у usingOOoFunctions — на данный момент она умеет считать только стандартное отклонение, использует только Sheet1 и пишет только в ячейку A1. Но, используя входные параметры, ее можно сделать весьма адаптивной:

sub usingOOoFunctions( fType as string, sName as string, _c as integer,r as integer, iArray )
 dim service as object, sheet as object, cell as object
 service = createUnoService( "com.sun.star.sheet.FunctionAccess" )
 sheet = thisComponent.sheets.getByName(sName)
 cell = sheet.getCellByPosition(c,r)
 cell.value = service.callFunction( fType, iArray )
end sub

Модифицируйте Main следующим образом:

usingOOoFunctions("STDEV","Sheet1", 1, 1, array(45,67,89,34))

Возникает серьезный вопрос: как обрабатывать неверные операции или входные данные? Например, что произойдет при попытке выполнить

usingOOoFunctions("SQRT","Sheet1", 1, 1, array(-1))
  • то есть извлечь квадратный корень из «-1»? (Надеюсь, вы в курсе, что так делать нельзя [ну, по крайней мере, на множестве действительных чисел, — прим.ред.].) Ошибочные ситуации можно отсечь, написав следующий код:
if (fType <> "SQRT" and iArray(0) <> -1 ) then
  • но тогда выходит, что вы обязаны предусмотреть все возможные комбинации функций и их аргументов, способные вызвать ошибку.

Самым эффективным решением будет написание обработчика ошибок. Рассмотрим пример (он завершится аварийно):

function dummy as double
 dim service as object
 service = createUnoService( "com.sun.star.sheet.FunctionAccess" )
 dummy = service.callFunction( "SQRT", array(-1) )
end function

Запустите ее с

msgbox (dummy)

На последней строке функция начнет ругаться, но это можно предотвратить, вставив в ее начало выражение, которое при наличии ошибки просто отошлет к выполнению следующей строки кода. Вы, видимо, заявите (довольно верно), что нам незачем продолжать выполнение кода — лучше изящно выйти вон. Значит, потребуется добавить кое-какой код для правильной обработки ошибки:

function dummy as double
 dim service as object
 on error goto errorFound
 service = createUnoService( "com.sun.star.sheet.FunctionAccess" )
 dummy = service.callFunction( "SQRT", array(-1) )
 exit function
 errorFound:
 msgbox("Invalid input. Result set to -1")
 dummy=-1
end function

Теперь функция не продолжит выполнение, а перескочит на метку errorFound: (двоеточие означает, что данная лексема является меткой). Заметим, что exit function стоит ДО кода обработки ошибки, иначе этот код будет выполняться всегда, хоть бы ошибки и не было — а нам- то надо, чтобы ошибка обрабатывалась, только если она действительно возникла.

[править] Функция не есть процедура

В приведенных примерах мы использовали функции и процедуры. Вы спросите: а в чем разница? Функция и процедура — почти одно и то же, только функция еще и возвращает результат. Это значит, что, определяя функцию, вы должны указать, какой тип результата она возвратит. Вот простой пример, который вам все объяснит.

Сначала установим значение переменной с помощью процедуры:

dim sheet as object, cell as object
sub main
 loadNewFile
 sheet=thisComponent.sheets(0)
 cell=sheet.getCellByPosition(0,0)
 simple_sub
end sub
sub simple_sub
 cell.value = 1
end sub

Теперь сделаем то же самое, но уже с помощью функции:

dim sheet as object, cell as object
sub main
 loadNewFile
 sheet=thisComponent.sheets(0)
 cell=sheet.getCellByPosition(0,0)
 cell.value = simple_function
end sub
function simple_function as integer
 simple_function = 1
end function

Заметили? Процедура записывает напрямую в ячейку, а функция возвращает значение, а уж оно затем записывается в ячейку.

Следует заметить еще одно: некоторые переменные (sheet и cell) объявлены глобальными. Это значит, что они доступны из любой функции и процедуры. Если переменная определена внутри процедуры, то она существует только на время выполнения функции или процедуры (их часто называют областью видимости переменной). Вещь полезная, но из-за этого вы должны быть очень внимательны, назначая имена переменным:

dim sheet_number as integer
dim sheet as object, cell as object
sub main
 loadNewFile
 set_sheetnumber
 sheet = thisComponent.sheets(sheet_number)
 cell = sheet.getCellByPosition(0,0)
 cell.value = sheet_number
end sub
sub set_sheetnumber
 sheet_number = 1
end sub

Число 1 записывается в ячейку А1 листа Sheet2.

Если бы мы вставили строку dim sheet_number as integer в процедуру set_sheetnumber в вышеописанном примере, то создалась бы новая переменная sheet_number, доступная только из процедуры set_sheetnumber. Хотя имена в обеих процедурах совпадают, это две разных переменных, содержащих разные значения.

Теперь мы можем легко и просто читать и записывать любую ячейку на любом листе таблицы. Значит, настало время заняться именами листов. Они не оригинальны — Sheet1, Sheet2, Sheet3 — и не информативны. К тому же их всего три.

sub changeSheetNames
 dim sheet as object
 sheet = thisComponent.createInstance("com.sun.star.sheet.Spreadsheet")
         thisComponent.Sheets.insertByName("MySheet", Sheet)
         thisComponent.sheets.removebyname("Sheet1")
         thisComponent.sheets.removebyname("Sheet2")
         thisComponent.sheets.removebyname("Sheet3")
end sub

Легко и просто — но малость ограниченно. Было бы действительно полезно передавать имена листов в качестве массива — смотрите:

dim i as integer
for i = 0 to ubound(sheetNames)
 sheet = thisComponent.createInstance("com.sun.star.sheet.Spreadsheet")
         thisComponent.Sheets.insertByName(sheetNames(i), Sheet)
next

[править] Слушай мою команду…

Наконец, мы можем объединить все, что мы рассмотрели в этом руководстве (плюс кое-что из прошлого выпуска). Следующий код запускает команды интерпретатора (в нашем случае это df и du), сохраняет результаты в файле, а затем загружает их в таблицу.

Выполняем:

const tmpFile as string = "/tmp/myfile.tmp"
const bshFile as string = "/tmp/runme.bsh"
sub main
 theFullWorks
end sub
function buildCommand (ipCommand as string) as string
 buildCommand = "rm -f " & tmpFile & ";" _
 & ipCommand & " | sed s/'\t'/' '/g >" & tmpFile & ";" _
 & "while [ ""$(grep ' ' " & tmpFile & ")"" != """" ];" _
 & "do cat " & tmpFile & " | sed s/' '/' '/g > " & tmpFile & "1;" _
 & "mv " & tmpFile & "1 " & tmpFile & ";" & "done"
end function
sub theFullWorks
 dim command as string
 loadNewFile
 changeSheetNames (array("Disk Space Usage","File Usage"))
 command = buildCommand("df|grep -v Filesystem")
 reportSheet(command,"Disk Space Usage")
 command = buildCommand("du /| sort -nr")
 reportSheet(command,"File Usage")
end sub
sub reportSheet (command as string, sheetName as string)
 dim sheet as object, cell as object
 dim iNumber As Integer, oNumber As Integer, iLine As String
 dim i as integer, c as integer
 iNumber = Freefile
 oNumber = Freefile
 Open bshFile For output As #oNumber
 print #oNumber,command
 close #oNumber
 shell("bash -c """ & bshFile & """",,,true)
 i = 1
 sheet=thisComponent.sheets.getByName(sheetName)
 Open tmpFile For Input As #iNumber
 While not EOF(iNumber)
 dim cArray
 Line Input #iNumber, iLine
 cArray = split(iLine)
 for c=0 to ubound(cArray)
  cell=sheet.getCellByPosition(c,i)
  cell.string=cArray(c)
 next
 i = i + 1
 wend
 Close #iNumber
end sub
(thumbnail)
Чтобы просмотреть команду, выполняемую оболочкой, используйте msgbox.

Большая часть кода вполне понятна, но несколько мест выглядят слегка пугающе. Например, что означают & и зачем они нужны? С их помощью строятся команды, предназначенные для выполнения командным интерпретатором Linux. Если вы хотите увидеть, что именно будет выполняться, просто добавьте msgbox следующим образом:

Sub main
 dim command as string
 command = buildCommand("df|grep –v Filesystem")
 msgbox(command)
end sub

Код, который мы рассмотрели, выглядит достаточно просто, но вы, наверное, согласитесь: основываясь на нем, можно затевать достаточно сложную и мощную работу.


[править] Полезные советы

  • И спользуйте CreateUnoService для доступа к различным интерфейсам OpenOffice.org (или Универсальным Сетевым Объектам)
  • Если вам лень все время писать thisComponent, можете заменить его псевдонимом:
dim doc as object
doc = thisComponent
  • Помните разницу между функцией и процедурой — функция выполняет код и возвращает значение. Процедура выполняет код, но не возвращает никакого результата.
  • Заметив, что какой-либо участок вашего кода неоднократно повторяется, обдумайте, можно ли вынести его в процедуру или функцию.
  • Если вы пишете код для выполнения командным интерпретатором, отлаживайте его методом просмотра в msgbox

[править] Объекты, которые вам нужны

Доступ к Универсальным Сетевым Объектам OpenOffice.org можно получить с помощью метода CreateUnoService. Эти объекты обычно называют «Сервисы».

Персональные инструменты
купить
подписаться
Яндекс.Метрика