OOO Open File Batch

From Fxp Wiki

 
Sub openDosDoc ()
cFile = "C:\DBEZO.LIB"
sURL = ConvertToURL( cFile )
Dim FileProperties(1) As New com.sun.star.beans.PropertyValue
FileProperties(0).Name = "FilterName"
FileProperties(0).Value = "Text (encoded)"
FileProperties(1).Name = "FilterOptions"
FileProperties(1).Value = "IBM_863"
' sURL = ConvertToURL( cDestFolder + "/" + cFilename + ".sxd" )
 'oDrawDoc = ThisComponent
oTextDocument = starDesktop.loadComponentFromURL(sUrl,"_blank",0, FileProperties())
 
sFile = "C:\DBEZO.LIB.doc"
sFileUrl = sFile
FileProperties(0).Name = "FilterName"
FileProperties(0).Value = "MS WinWord 6.0"
FileProperties(1).Name = "FilterOptions"
FileProperties(1).Value = "utf-8"
ThisComponent.StoreToURL( ConvertToURL( sFileURL ), FileProperties()  )
 
End Sub
 
 

• ooo charset

• ^.(([A-Z']{2}).*)$

• ^.([A-Z' ]{3})(.*)$

  Encore des problèmes avec les lignes vides
• Replace with "&" for all what was found

 
 
Sub openDosDoc ()
cFile = "C:\DBERZO.LIB"
sURL = ConvertToURL( cFile )
Dim FileProperties(1) As New com.sun.star.beans.PropertyValue
FileProperties(0).Name = "FilterName"
FileProperties(0).Value = "Text (encoded)"
FileProperties(1).Name = "FilterOptions"
FileProperties(1).Value = "IBM_863"
' sURL = ConvertToURL( cDestFolder + "/" + cFilename + ".sxd" )
 'oDrawDoc = ThisComponent
oTextDocument = starDesktop.loadComponentFromURL(sUrl,"_blank",0, FileProperties())
 
End Sub
 
 

 
Dim FileProperties(1) As New com.sun.star.beans.PropertyValue
FileProperties(0).Name = "FilterName"
FileProperties(0).Value = "Text (encoded)"
FileProperties(1).Name = "FilterOptions"
FileProperties(1).Value = "IBM_850,,,,"
 
oTextDocument = oDesktop.loadComponentFromURL(sUrl,"_blank",0, FileProperties())