Как привязать поле со списком ComboBox к .txt файлу

Автор redcool, 9 апреля 2011, 13:46

0 Пользователи и 1 гость просматривают эту тему.

redcool

Содержание .txt файла должно отображаться в списке

Рыбка Рио

#1
Если значение в текстовом файле разделены символами :: (два двоеточия)

REM  *****  BASIC  *****

Sub Main
DialogLibraries.LoadLibrary("Standard")
oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
CB = oDlg.getControl("ComboBox1")
ArCB = Split( TextFromFile("/path/to/file"),"::")
CB.addItems(ArCB,0)
CB.Text = ArCB(0)
oDlg.execute
End Sub

Function TextFromFile(sFilePath As String) As String
   sf = createUnoService("com.sun.star.ucb.SimpleFileAccess")
    fileStream = sf.openFileRead(sFilePath)
   myTextFile = createUnoService("com.sun.star.io.TextInputStream")
   myTextFile.InputStream = fileStream
   TextFromFile = myTextFile.readLine
   fileStream.closeInput
   myTextFile.closeInput
End Function
ubuntu 12.04 + LibO3.6.0