Описание:
В AlterOffice есть функционал для записи/чтения в/из файлов (txt).
Описание команд для чтения файлов:
Для чтения файлов (txt) из Basic AlterOffice используются след. строки макроса (read.BAS):
oSFA = createUNOService("com.sun.star.ucb.SimpleFileAccess") - Служба UNO для SimpleFileAccess создается с помощью метода createUNOService и присваивается переменной «oSFA».
FileURL = ConvertToURL("Полный/ПУТЬ/К/123.txt") - URL-адрес файла создается с помощью функции ConvertToURL с указанием пути «Полный/ПУТЬ/К/123.txt» и присваивается переменной «FileURL».
oInText = createUNOService("com.sun.star.io.TextInputStream") - Служба UNO для TextInputStream создается с помощью метода createUNOService и присваивается переменной «oInText».
oInText.setInputStream(oSFA.openFileRead(FileURL)) - В качестве входного потока для setInputStream устанавливается файл, открытый для чтения с помощью службы SimpleFileAccess с указанным FileURL.
TheLine = oInText.readLine() - Строка текста считывается из входного потока и присваивается переменной «TheLine».
msgBox TheLine - Отображается окно сообщения, показывающее содержимое переменной «TheLine».
oInText.closeInput() - Входной поток закрывается с помощью метода closeInput.
Описание команд для записи в файл:
Для записи файлов (txt) из Basic AlterOffice используются след. строки макроса (write.BAS):
oSFA = createUNOService("com.sun.star.ucb.SimpleFileAccess") - Служба UNO для SimpleFileAccess создается с помощью метода createUNOService и присваивается переменной «oSFA».
FileURL = ConvertToURL("Полный/ПУТЬ/К/456.txt") - URL-адрес файла создается с помощью функции ConvertToURL с указанием
пути «Полный/ПУТЬ/К/123.txt» и присваивается переменной «FileURL».
oOutText = createUNOService("com.sun.star.io.TextOutputStream") - служба UNO для TextOutputStream с помощью метода createUNOService и присваивает ее переменной «oOutText».
oOutText.setOutputStream(oSFA.openFileWrite(FileURL)) - устанавливаем выходной поток TextOutputStream в файл, открытый для записи с помощью службы SimpleFileAccess с указанным FileURL
oOutText.WriteString("Hello World" & Chr(13) & Chr(10)) - записываем строку «Hello World», за которой следует символ новой строки (представленный Chr(13) и Chr(10)) в выходной поток с помощью метода WriteString.
oOutText.flush - очищаем выходной поток с помощью метода сброса, чтобы гарантировать запись любых буферизованных данных в файл.