Apache OpenOffice Community Forum

Code: Select all

Sub testCSV
Dim oDoc1, oDoc2 as Object
Dim oFile1, oFile2 as String
Dim oRange1 , oRange2 as Object
Dim oURL1, oURL2 as String
Dim oCell as Object
Dim oSheet as Object
Dim i,r,b,c,d,y,x as Integer
dim aProps(1) As new com.sun.star.beans.PropertyValue	
	oFile1 = "file:///media/user/Data/Folder/FILE.XLS" 
	oURL1 = convertToUrl  (oFile1)
	aProps(0).name = "FilterName"
	aProps(0).Value = "Text - txt - csv (StarCalc)"
	aProps(1).name = "FilterData"
	aProps(1).Value = "<TAB>,,76,1"
	oDoc1 = starDeskTop.loadComponentFromURL (oURL1, "_blank", 0, aProps() )
  	                                                       
End Sub

Code: Select all

Sub showFilterOptions
Dim args(),i%
   args() = thisComponent.getArgs
   for i = 0 to uBound(Args())
      if args(i).Name = "FilterOptions" then inputbox "","",args(i).value
   next
End Sub 

Code: Select all

Sub testCSV
Dim oDoc1, oDoc2 as Object
Dim oFile1, oFile2 as String
Dim oRange1 , oRange2 as Object
Dim oURL1, oURL2 as String
Dim oCell as Object
Dim oSheet as Object
Dim i,r,b,c,d,y,x as Integer
dim aProps(1) As new com.sun.star.beans.PropertyValue   
   oFile1 = "file:///media/user/Data/Folder/FILE.XLS"
   oURL1 = convertToUrl  (oFile1)
   aProps(0).name = "FilterName"
   aProps(0).Value = "scalc: Text - txt - csv (StarCalc)"
   aProps(1).name = "FilterOptions"
   aProps(1).Value = "9,,76,1" '9 - To specify that some fields are separated by a tab would use "9" for the filter options.
   oDoc1 = starDeskTop.loadComponentFromURL (oURL1, "_blank", 0, aProps() )
                                                            
End Sub

Code: Select all

Dim options(0) As New com.sun.star.beans.NamedValue

util = createUnoService("org.universolibre.EasyDev")

range = ThisComponent.CurrentSelection
path = "/home/USER/test.csv"
options(0).Name = "delimiter"
options(0).Value = CHR(9)
data = util.importCSV(path, options)
range.setDataArray(data)