How to add DOCTYPE in the xml output file

[abc73]

Hi,
Can anyone help me how to add the DOCTYPE in the xml output file. I am build an xml through the program but I need to add
<!DOCTYPE Test SYSTEM 'Test.dtd'>

at the top of the xml file. My xml file looks like:

<?xml version="1.0" ?>
<Test>
.... more elements here
</Test>

now I also want to add
<!DOCTYPE Test SYSTEM 'Test.dtd'>
after <?xml version="1.0" ?>
how can I do this in the code.

Thanks

 

[CubeE101]

I'm sure there is a better way, though I have not ran into this situation yet...

You could always open the file and append the text to the beginning of it, after you export it...

Open MyXMLFile For Input As #1
  FileText = Input(LOF(1),#1)
Close
FileText = Replace(FileText, "<?xml version=""1.0"" ?>","<?xml version=""1.0"" ?><!DOCTYPE Test SYSTEM 'Test.dtd'>")
Open MyXMLFile For Input As #1
  Print #1, FileText
Close

This may not be the best method in the end, be it should work good enough until you find a better way.

if you want it to be on the second line by itself, just add a VbCrLf in between them...

FileText = Replace(FileText, "<?xml version=""1.0"" ?>","<?xml version=""1.0"" ?>[b]" & VbCrLf & "[/b]<!DOCTYPE Test SYSTEM 'Test.dtd'>")

Good Luck,
Josh

Have Fun, Be Young... Code BASIC
-Josh

http://cubee.topcities.com

PROGRAMMER: Red-eyed, mumbling mammal capable of conversing with inanimate objects.

 

[CubeE101]

Oops, sorry, I thought I was in the VB forum...

Sorry about that...

Good Luck,
Josh ;-)

Have Fun, Be Young... Code BASIC
-Josh

http://cubee.topcities.com

PROGRAMMER: Red-eyed, mumbling mammal capable of conversing with inanimate objects.