Apache OpenOffice Community Forum

Code: Select all

Sub Main
	iStart = 3
	iLines = 5
	aData = ReadFile("c:\temp\foo.txt", iStart, iLines)
	oDoc = ThisComponent 
	oRange = oDoc.Sheets(0).getCellRangeByName("A1:A" & iLines)
	oRange.DataArray = aData
End Sub

Function ReadFile(sUrl as string, _
					optional nStart as long, _
					optional nLines as long)
   if not FileExists(sUrl) then 
   		msgbox("File not found:" & chr(10) & sUrl)
   		exit function
   endif
   oSFA = createUnoService("com.sun.star.ucb.SimpleFileAccess")
   oTIS = createUnoService("com.sun.star.io.TextInputStream")
   
   oFile = oSFA.openFileRead(sUrl)
   oTIS.InputStream = oFile
   i = 0
   Dim aRet(i)
   Do while not oTIS.isEOF
   		if i = nLines then exit do 		
   		Redim Preserve aRet(0 to i)
        aRet(i) = array(oTIS.readLine)
        i = i + 1
   Loop
   oTIS.closeInput
   ReadFile = aRet
End Function

Code: Select all

ali
ben
cal
don
eli
fox
gin
hal
iso
jon
kab
leo
max
neo
oli
pat
qin
rob
sal
teo
ubi
vic
won
xeo
yes
zoe

Code: Select all

def main(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    skip, read = 3,  5
    output_range = doc.Sheets[0][:read, 0]
    
    with open("ali.txt") as ali:
        for _ in range(skip-1):
            next(ali)
        out = [[next(ali).strip()] for _ in range(read)]
    output_range.DataArray = out

Code: Select all

Sub Main
	iStart = 3
	iLines = 5
	aData = ReadFile(ConvertToURL("c:\temp\foo.txt"),iStart, iLines)'"c:\temp\foo.txt", iStart, iLines)
	oDoc = ThisComponent 
	oRange = oDoc.Sheets(0).getCellRangeByName("A1:A" & iLines)
	oRange.clearContents(23)
	oRange.setDataArray(aData) REM The relevant error: You can't ASSIGN the DataAddray. It must be set.
End Sub

Function ReadFile(sUrl as string, _
					optional nStart as long, _
					optional nLines as long)
   if not FileExists(sUrl) then 
   		msgbox("File not found:" & chr(10) & sUrl)
   		exit function
   endif
   oSFA = createUnoService("com.sun.star.ucb.SimpleFileAccess")
   oTIS = createUnoService("com.sun.star.io.TextInputStream")
   oFile = oSFA.openFileRead(sUrl)
   Dim sLine As String, aRet(nLines - 1)
   oTIS.InputStream = oFile
   For i = -nStart + 1 To nLines - 1
    If oTis.isEOF Then
     ReadFile = aREt  
     Exit Function
    EndIf
    sLine = otis.readLine
    If i>=0 Then aRet(i) = Array(sLine)
   Next i
  oTIS.closeInput
 ReadFile = aRet
End Function