Open Textfile written with DOS Editor

[Dominik]

Hello!

In Star Office 5.2 I used this procedure to open a DOS-Textfile:

Dim mFileProperties(1) As New com.sun.star.beans.PropertyValue
Dim oDoc as Object

mFileProperties(0).Name = "FilterName"
mFileProperties(0).Value = "swriter: Text DOS"
mFileProperties(1).Name = "FilterFlags"
mFileProperties(1).Value = ""
oDoc = oDesktop.loadComponentFromURL(sUrl,"_blank",0,mFileProperties())

But in OOo 1.1 this doesn't work because the filter "swriter: Text DOS" doesn't exist.

So, does anybody know how to open a DOS file with the correct character set?
I need it because my company will be using OOo soon...

Bye,
Dominik
Dilorenzo@vogelsang-bandstahl.de

Btw:
I know how to open a CSV file with the correct character set:

Function OpenCSVFile (sUrl As String) As Object

Dim mFileProperties(1) As New com.sun.star.beans.PropertyValue

mFileProperties(0).Name = "FilterName"
mFileProperties(0).Value = "scalc: Text - txt - csv (StarCalc)"
mFileProperties(1).Name = "FilterFlags"
mFileProperties(1).Value = "59/9,34,IBMPC_850,1,1/1/1/1/1/1/1/1"
OpenCSVFile = StarDesktop.loadComponentFromURL(sUrl,"_blank", 0,mFileProperties())
End Function

[dominik]

Hello!

I searched the OOo source code the last few hours and now found the solution:

You can open a DOS text file like this:

Dim mFileProperties(1) As New com.sun.star.beans.PropertyValue
Dim oDocConv as Object

mFileProperties(0).Name = "FilterName"
mFileProperties(0).Value = "Text (encoded)"
mFileProperties(1).Name = "FilterOptions"
mFileProperties(1).Value = "DOS,CRLF,,"
oDocConv = StarDesktop.loadComponentFromURL(sUrl,"_blank",0,mFileProperties())

Here's a sub which converts a DOS file to the 'normal' textfile format:

Sub ConvertFile(sUrl as String)
'Converts a DOS-File into a Windows-File
Dim mFileProperties(1) As New com.sun.star.beans.PropertyValue
Dim mFileSaveProps(1) As New com.sun.star.beans.PropertyValue
Dim oDocConv as Object

mFileProperties(0).Name = "FilterName"
mFileProperties(0).Value = "Text (encoded)"
mFileProperties(1).Name = "FilterOptions"
mFileProperties(1).Value = "DOS,CRLF,,"
oDocConv = StarDesktop.loadComponentFromURL(sUrl,"_blank",0,mFileProperties())

mFileSaveProps(0).Name = "Overwrite"
mFileSaveProps(0).Value = TRUE
mFileSaveProps(1).Name = "FilterName"
mFileSaveProps(1).Value = "Text"

oDocConv.storeAsURL(sUrl, mFileSaveProps())

oDocConv.dispose()

End Sub

I hope this is usefull for anybody out there ...
cYa,
Dominik
Dilorenzo@vogelsang-bandstahl.de

[dominik]

Sorry,
the solution above only works with OOo 1.0.3 not with version 1.1.

Any idea why?

Thanks in advance,
Dominik

[dominik]

...
and finally I've got the solution for OOo 1.1.

instead of DOS use IBM_850:

[avantman42]

[Dominik]

The DOS files I have to open are created by old programms running in the steel company I work for.
My company is a German company, so in those DOS-files there are 'umlaute' as ä, ö, ü and ß (in html: ü ä ...)
With it didn't work I meant these characters weren't imported correct.

If I open such a file without a macro I do these steps:
menu / file / open
filename: DOSfile.txt
filter: Text (encode)
In the following Dialog I choose this charset:
DOS/OS2-850/International

Thanks a lot for thinking about my problem,
but as I allready posted I've got the solution for OOo 1.1 now.
(Charset is IBM_850 not DOS as in OOo 1.0.3)

cYa
Dominik
Dilorenzo@vogelsang-bandstahl.de

[avantman42]

[dominik]

To whom it may concern:

Strings for other charsets can be found in this file: