To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=115347
                 Issue #|115347
                 Summary|FIX in the FilterOptions does not work (earlier it wor
                        |ked well)
               Component|Spreadsheet
                 Version|OOO320m12
                Platform|PC
                     URL|
              OS/Version|Linux
                  Status|UNCONFIRMED
       Status whiteboard|
                Keywords|
              Resolution|
              Issue type|DEFECT
                Priority|P3
            Subcomponent|open-import
             Assigned to|spreadsheet
             Reported by|ahamedck





------- Additional comments from [email protected] Tue Nov  2 06:51:01 
+0000 2010 -------
while attempting to do a problem using the macro developed and connected with 
the event key-
pressed of a push button, to open-import the CSV file using the following code 
did not open the 
document properly but a blank document comes up instead.  However, if the file 
FilterOptions were 
specified as "59/9,34,IBMPC_850,1,1/1/1/1/1/1/1/1" the file displays some data 
though it is not as 
desired.  Earlier, I had used the same macro well and now only the problem 
noticed.  I have tried 
many options for the "FIX,,,,0/1/10/1/20/1/30/1/40/1/50/1/60/1/70/1"---- which 
was the original form 
which worked well earlier.  Now I am using OOO3.2m12 in UBUNTU 10.4 linux.  The 
earlier version 
of Linux was Fedora 12

The code I had used is reproduced below:

Function OpenCSVFile (sUrl As String) As Object
' Opens CSV-file
' sUrl MUST be in Url-format (for example: "file:///c:/ddd.sxc")
'       ( --> use / not \ )

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

        fileProperties(0).Name = "FilterName"
        fileProperties(0).Value = "Text - txt - csv (StarCalc)"  '"Text - csv - 
xls (StarCalc)"
        fileProperties(1).Name = "FilterOptions"
        fileProperties(1).Value = "FIX,,IBMPC_850,1,0/1/10/1/20/1/30/1/40/1" 
                        '"59/9,34,IBMPC_850,1,1/1/1/1/1/1/1/1" 
"FIX,,,,0/1/10/1/20/1/30/1/40/1/50/1/60/1/70/1"
'       fileProperties(1).Value = 
"FIX,34,0,1,0/1/10/1/20/1/30/1/40/1/50/1/60/1/70/1"
                ' pl see the following link for getting the clear picture...
                ' this is a string with five tokens separated by commas ..
                ' first one decides the the field separator, 2nd on the text 
delimiter, 3rd decides the char set
                ' 4th - the first line on which the action to be carried out 
can be 1 or above
                ' and 5th token describes the 
column/format[/column/format.....] code
                ' in case of fixed width the first token will be FIX and the 
last token will be in the 
                ' start/format[/start/format ...] form
                ' 
http://wiki.services.openoffice.org/wiki/Documentation/DevGuide/Spreadsheets/Filter_Options
                           '59/9 --> columns are devided by ";" and tab
                           '34   --> text delimiter --> double qoutes (")
                           ' IBMPC_850 --> charset (is a constant with the 
value 4)
                           '                       0 is system charset  
                           ' FIX IS FOR FIXED WIDTH ---OLDER FORM OBTAINED FROM 
THE NET FROM 
mR.dOMINIC IS RETAINED
        OpenCSVFile = StarDesktop.loadComponentFromURL(sUrl,"_blank", 0, 
fileProperties())
End Function







Kindly help me

---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification

---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]


---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]

Reply via email to