Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

27 Май 2020, 02:22 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: очень нужна помощь с кодировкой файла  (Прочитано 755 раз)
0 Пользователей и 1 Гость смотрят эту тему.
mikekaganski
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 1 850


« Ответ #53487: 29 Январь 2020, 08:45 »

Точно не знаю можно ли задать загрузку текстового файла в режиме csv c разделителем "|" и кодировкой cp866 через макрос

Код:
Sub importCSV(sURL$)
dim args(1) as new com.sun.star.beans.PropertyValue
args(0).Name = "FilterName"
args(0).Value = "Text - txt - csv (StarCalc)"
args(1).Name = "FilterOptions"
args(1).Value = "124,34,30,1,,1049,,true," ' можно поставить 2 вместо 1, чтобы пропустить первую строку
StarDesktop.loadComponentFromURL(sURL, "_blank", 0, args())
End Sub

Sub testImportCSV
importCSV(ConvertToURL("D:\Downloads\08101151.txt"))
End Sub
Опции фильтра CSV.

поискать функцию конвертирования из  DOS/OS2-866/русский в utf-8

Код:
DefObj o
Sub readCP866(sURL$)
Dim oUcb, oInputStream, sInputLine$
oUcb = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
oInputStream = CreateUnoService("com.sun.star.io.TextInputStream")
oInputStream.setInputStream(oUcb.openFileRead(sURL$))
oInputStream.setEncoding("cp866")
Do While Not oInputStream.isEOF()
sInputLine = oInputStream.readLine()
MsgBox(sInputLine) ' здесь что-то делается с полученной строкой
Loop
oInputStream.closeInput()
End Sub

Sub testReadCP866
readCP866(ConvertToURL("D:\Downloads\08101151.txt"))
End Sub
com.sun.star.ucb.SimpleFileAccess.
com.sun.star.io.TextInputStream.
« Последнее редактирование: 29 Январь 2020, 09:03 от mikekaganski » Записан

С уважением,
Михаил Каганский
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!