How do I remove a line from incoming XML FILE

[Girish]

I have this XML FILE where I am reading data from and it has this node
doctype "< ! D O C T Y P E a d f S Y S T E M " h t t p : / / w h o s c
a l l i n g . c o m / d t d / a d f d t d . d t d " > "

ONLY When I remove this line I could display the data onto the browser, any
ideas WHY? if not I am using following code to remove the above line, it
doesn't work

Dim FindWhat, ReplaceWith

'dim MyString
'MyString= "Hello" & chr(34) & "World" & chr(34) & "World"

FindWhat = "< ! D O C T Y P E &nbsp;&nbsp; a d f &nbsp; S Y S T E M &nbsp;
" & chr(34) & " h t t p : / / w h o s c a l l i n g . c o m / d t d / a d f
d t d . d t d " & chr(34) & "&nbsp;>"
'FindWhat = FindWhat & " h t t p : / / w h o s c a l l i n g . c o m / d t
d / a d f d t d . d t d "
'FindWhat = FindWhat & ">"

response.write "FindWhat :" & FindWhat & "<br>"

ReplaceWith = ""

Dim fso, sText, fs, DestinationFile , writingFile, sPath
set fso = createobject("s cripting.filesy stemobject")
sPath = "D:\inetpub\Pen nyFlyer\carmart new\business_iv r.xml"

if fso.FileExists( sPath) then

Set fs = fso.OpenTextFil e(sPath)
sText = fs.ReadAll()

'response.write "sText" & sText

sText = Replace(sText, FindWhat, ReplaceWith)

DestinationFile = "D:\inetpub\Pen nyFlyer\carmart new\newbusiness _ivr.xml"

Set writingFile = fso.CreateTextF ile(Destination File,true,false )

WritingFile.Wri te(sText)

WritingFile.Clo se
end if

Thanks

[Mark Schupp]

What error message do you get in the browser?

--
Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com
"Girish" <gi********@yah oo.com> wrote in message
news:Ot******** ******@TK2MSFTN GP12.phx.gbl...

I have this XML FILE where I am reading data from and it has this node
doctype "< ! D O C T Y P E a d f S Y S T E M " h t t p : / / w h o s c a l l i n g . c o m / d t d / a d f d t d . d t d " > "

ONLY When I remove this line I could display the data onto the browser, any ideas WHY? if not I am using following code to remove the above line, it
doesn't work

Dim FindWhat, ReplaceWith

'dim MyString
'MyString= "Hello" & chr(34) & "World" & chr(34) & "World"

FindWhat = "< ! D O C T Y P E &nbsp;&nbsp; a d f &nbsp; S Y S T E M &nbsp; " & chr(34) & " h t t p : / / w h o s c a l l i n g . c o m / d t d / a d f d t d . d t d " & chr(34) & "&nbsp;>"
'FindWhat = FindWhat & " h t t p : / / w h o s c a l l i n g . c o m / d t d / a d f d t d . d t d "
'FindWhat = FindWhat & ">"

response.write "FindWhat :" & FindWhat & "<br>"

ReplaceWith = ""

Dim fso, sText, fs, DestinationFile , writingFile, sPath
set fso = createobject("s cripting.filesy stemobject")
sPath = "D:\inetpub\Pen nyFlyer\carmart new\business_iv r.xml"

if fso.FileExists( sPath) then

Set fs = fso.OpenTextFil e(sPath)
sText = fs.ReadAll()

'response.write "sText" & sText

sText = Replace(sText, FindWhat, ReplaceWith)

DestinationFile = "D:\inetpub\Pen nyFlyer\carmart new\newbusiness _ivr.xml"

Set writingFile = fso.CreateTextF ile(Destination File,true,false )

WritingFile.Wri te(sText)

WritingFile.Clo se
end if

Thanks

[Mark Schupp]

Your attachment opens and displays just fine in IE on my system.

If you are just having problems reading it in and re-writing it why don't
you open it and re-save it with the MSXML component instead of the file
system object?

--
Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com
"Girish" <gi********@yah oo.com> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

well, it creates a file called newbusiness_ivr .xml and the file should
contain everything and the node doctype replaced by "" right? It doesn't it just has the following partial data:
=============== =============== =============== =============== =============== = ==========
ÿþ<
< e m a i l > t j a v a @ w h o s c a l l i n g . c o m < / e m a i l >

< p h o n e > 8 6 6 3 1 2 2 2 2 2 < / p h o n e >

< / c o n t a c t >

< / p r o v i d e r >

< / p r o s p e c t >

< / a d f >
=============== =============== =============== =============== =============== = ==========
I am also attaching business_ivr.xm l file which is parsed and contains the
above node.

Thanks

"Mark Schupp" <ms*****@ielear ning.com> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

What error message do you get in the browser?

--
Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com
"Girish" <gi********@yah oo.com> wrote in message
news:Ot******** ******@TK2MSFTN GP12.phx.gbl...

I have this XML FILE where I am reading data from and it has this node
doctype "< ! D O C T Y P E a d f S Y S T E M " h t t p : / / w h o

s

c

a l l i n g . c o m / d t d / a d f d t d . d t d " > "

ONLY When I remove this line I could display the data onto the

browser,

any

ideas WHY? if not I am using following code to remove the above line,

it doesn't work

Dim FindWhat, ReplaceWith

'dim MyString
'MyString= "Hello" & chr(34) & "World" & chr(34) & "World"

FindWhat = "< ! D O C T Y P E &nbsp;&nbsp; a d f &nbsp; S Y S T E M

&nbsp;

" & chr(34) & " h t t p : / / w h o s c a l l i n g . c o m / d t d /

a d

f

d t d . d t d " & chr(34) & "&nbsp;>"
'FindWhat = FindWhat & " h t t p : / / w h o s c a l l i n g . c o m

/ d

t

d / a d f d t d . d t d "
'FindWhat = FindWhat & ">"

response.write "FindWhat :" & FindWhat & "<br>"

ReplaceWith = ""

Dim fso, sText, fs, DestinationFile , writingFile, sPath
set fso = createobject("s cripting.filesy stemobject")
sPath = "D:\inetpub\Pen nyFlyer\carmart new\business_iv r.xml"

if fso.FileExists( sPath) then

Set fs = fso.OpenTextFil e(sPath)
sText = fs.ReadAll()

'response.write "sText" & sText

sText = Replace(sText, FindWhat, ReplaceWith)

DestinationFile =

"D:\inetpub\Pen nyFlyer\carmart new\newbusiness _ivr.xml"
Set writingFile = fso.CreateTextF ile(Destination File,true,false )

WritingFile.Wri te(sText)

WritingFile.Clo se
end if

Thanks

[Girish]

u mean that node is not giving problem, r u reading its data via ASP and
displaying it? if yes, please send me some sample and / or URL on MSXML
component please...

Thanks much!
"Mark Schupp" <ms*****@ielear ning.com> wrote in message
news:uk******** ******@TK2MSFTN GP11.phx.gbl...

Your attachment opens and displays just fine in IE on my system.

If you are just having problems reading it in and re-writing it why don't
you open it and re-save it with the MSXML component instead of the file
system object?

--
Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com
"Girish" <gi********@yah oo.com> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

well, it creates a file called newbusiness_ivr .xml and the file should
contain everything and the node doctype replaced by "" right? It doesn't

it

just has the following partial data:

=============== =============== =============== =============== =============== =

==========
ÿþ<
< e m a i l > t j a v a @ w h o s c a l l i n g . c o m < / e m a i

l >

< p h o n e > 8 6 6 3 1 2 2 2 2 2 < / p h o n e >

< / c o n t a c t >

< / p r o v i d e r >

< / p r o s p e c t >

< / a d f >

=============== =============== =============== =============== =============== = ==========
I am also attaching business_ivr.xm l file which is parsed and contains the above node.

Thanks

"Mark Schupp" <ms*****@ielear ning.com> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

What error message do you get in the browser?

--
Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com
"Girish" <gi********@yah oo.com> wrote in message
news:Ot******** ******@TK2MSFTN GP12.phx.gbl...
> I have this XML FILE where I am reading data from and it has this node > doctype "< ! D O C T Y P E a d f S Y S T E M " h t t p : / / w

h o

s

c
> a l l i n g . c o m / d t d / a d f d t d . d t d " > "
>
> ONLY When I remove this line I could display the data onto the

browser, any
> ideas WHY? if not I am using following code to remove the above

line, it > doesn't work
>
> Dim FindWhat, ReplaceWith
>
> 'dim MyString
> 'MyString= "Hello" & chr(34) & "World" & chr(34) & "World"
>
> FindWhat = "< ! D O C T Y P E &nbsp;&nbsp; a d f &nbsp; S Y S T E M
&nbsp;
> " & chr(34) & " h t t p : / / w h o s c a l l i n g . c o m / d t d

/ a

d

f
> d t d . d t d " & chr(34) & "&nbsp;>"
> 'FindWhat = FindWhat & " h t t p : / / w h o s c a l l i n g . c o

m /

d

t
> d / a d f d t d . d t d "
> 'FindWhat = FindWhat & ">"
>
> response.write "FindWhat :" & FindWhat & "<br>"
>
> ReplaceWith = ""
>
> Dim fso, sText, fs, DestinationFile , writingFile, sPath
> set fso = createobject("s cripting.filesy stemobject")
> sPath = "D:\inetpub\Pen nyFlyer\carmart new\business_iv r.xml"
>
> if fso.FileExists( sPath) then
>
> Set fs = fso.OpenTextFil e(sPath)
> sText = fs.ReadAll()
>
> 'response.write "sText" & sText
>
> sText = Replace(sText, FindWhat, ReplaceWith)
>
> DestinationFile =

"D:\inetpub\Pen nyFlyer\carmart new\newbusiness _ivr.xml"

>
> Set writingFile = fso.CreateTextF ile(Destination File,true,false )
>
> WritingFile.Wri te(sText)
>
> WritingFile.Clo se
> end if
>
> Thanks
>
>