inadmissible value or data type error

[cmosentine]

Hello all: I am updating an older OOo 1.1x macro for use in OOo 2.0.3 The macro basic is going to be used to convert about 45,000 OOo 1.x documents (.sxw) to OOo 2.x (.odt) file format.

The macro is designed to transverse thru a series of directories, numbers 1,2,3 ...) and open the files within which are numbered 0 thru 999.

The macro works fine on a limited number of files but when I try to run it on an entire directory of files (999 files) it fails with "inadmissible value or data type". The line of code which gets flagged is a simple interger multipication and addition formula.

Since the macro ran fine for the first 508 files I am thinking the problem may be a file handle issue of some kind.

Has anyone alse seen this problem and solved it?? How??

All help greatly appreciated, Chris.

[hol.sten]

[cmosentine]

Yes I can certainly do that, but that is a bastardized way of working. I have used similar techniques when we converted from word perfect to staroffice format and twice since to replace built-in letterhead in the header and footer. In these cases SO and OOo did stumble but only after about 2000 + files, and then it was a lack of memory/resources.

But now the error is different in my opinion. The failure takes place during an integer operation. Surely OOo can handle 1000's of simple integer calcs. Or is this a result of memory/resource depletion, but in manifesting itself in a different form??

Chris

[B Marcelly]

[cmosentine]

Below is a snippet of my macro code. I was able to fix the issue by using type double rather than integer.

Given an integer is 16 bits wide, it should not fail until an integer variable passes 65535. Now it's been a long time since school, but the code should work with type integer too!

Sub ConvertFileType

dim mNoArgs()
dim oDesktop, oDocument, oText, oTextCursor as Object
dim oStyleFamilies, oStyle, oPageStyles as Object
dim sTemplateURI, sPageStyleName as String
dim sURL, sPath, sExtension as String
dim dURL, dPath, dExtension as String
dim iCounter, jCounter, fileNumber as double

sTemplateURL = "file:///j:/oo/templates/vra/letterhead_vra.ott"

sPath = "file:///d:/so/pts/"
sExtension = "sxw"

dPath = "file:///d:/oo/pts/"
dExtension = "odt"

fileNumber = 0

' Create a desktop to work in
oDesktop = createUnoService("com.sun.star.frame.Desktop")

for iCounter = 32 to 32
for jCounter = 0 to 999

fileNumber = iCounter*1000+jCounter

' Generate the source file URL
sURL = sPath & iCounter & "/" & fileNumber & "." & sExtension

if FileExists(sURL) then

' File exists so open it up
oDocument = oDesktop.loadComponentFromURL(sURL, "_blank", 0, mNoArgs())

[B Marcelly]

Basic Integer is 16bits signed. Range is from -32768 to +32767.
The code should work with Long variables (32 bits signed).

[cmosentine]

I am so stupid. YOU ARE EXACTLY RIGHT. Thanks for pointing out how much I have forgotten since CS101.

Thank you very much, Chris.