"Invalid procedure call or argument" on write method 2

[poobah252]

Following is the code fragment giving me trouble.

' ***** begin fragment *****

Private Const conOverwriteExistingFile = True ' for CreateTextFile & Copy
Private Const conASCIIformat = 0 ' for OpenAsTextStream

set doc = CreateObject("Msxml2.DOMDocument.3.0&quot ' "Version dependent rental-threaded" model
doc.validateOnParse = false
doc.async = false
doc.load(CStr(FileName))

set xslDoc = CreateObject("Msxml2.DOMDocument.3.0&quot
xslDoc.async = false
xslDoc.load(StyleSheetPath)

Set fso = CreateObject("Scripting.FileSystemObject&quot
Set fHtml = fso.CreateTextFile(xslOutputName, conOverwriteExistingFile, conASCIIformat)
strHtmlTempString = doc.transformNode(xslDoc)

wscript.echo "'Len(strHtmlTempString)' = '" & Len(strHtmlTempString) & "'"
wscript.echo "'strHtmlTempString' = '" & strHtmlTempString & "'"

fHtml.Write strHtmlTempString
fHtml.close
set fHtml = nothing

' ***** end fragment *****

Initially, "fHtml.Write doc.transformNode(xslDoc)" was all one line. Upon receiving the VBScript runtime error "Invalid procedure call or argument" on this line, I split it into two steps & found I am receiving this runtime error on the "write" method.

I added the "wscript.echo" to confirm that I am getting HTML in "strHtmlTempString". I am. It is 7,681 bytes. Only one of dozens of "xml" files I have run through the script gives the run-time error. The successfully-processed files range in size from "1" to "159" kilobytes, so I don't think that string length is an issue.

Anyone have any ideas what else to check?

Thanks, Bill
william.g.starr@cummins.com
812-377-6212
Monday, 8 October 2001, 5:04pm EST

 

[JohnYingling]

If this is in an Activer Server Page, you MUST user Server.CreateObject in place of CreatObject.

http://www.VBCompare.com

http://www.VBSortGen.com

 

[JohnYingling]

I see that you have WScript so I'll assume this is not running on IIS. The only thing I can thonk of is thw the Write is throwing an exception for a "bad" unicode character. It sound like a shot in the dark but..

http://www.VBCompare.com

http://www.VBSortGen.com

 

[tsuji]

Hello, poobah252.

Alter the unicode:
Private Const conASCIIformat = True

See what it gives.

regards - tsuji

 

[poobah252]

Thank you, JohnYingling and tsuji, for your helpful replies.

I don't know which character is giving me trouble yet, and it may end up that it does not matter, but creating the output file as Unicode instead of ASCII cures the runtime error.

I sure appreciate your help, after banging my head against the wall on other dead-end ideas all day yesterday.

Regards, Bill
Tuesday, 9 October 2001, 9:36:40am EST

 

[tsuji]

Hello again.

Thanks for your feedback. It seems unicode be norm for communicting with msxml parser or other objects. But, am not knowledgeable enough to put a firm delimiter on this. Glad it works out this time.

regards - tsuji