download an XML file Using fileStream

[Dorsa]

HI, Could you please tell me the error in here. I am trying to open an
XML file from a link.
Response.Clear( )
Response.Expire s = 0
Response.Buffer Output = False
Response.Conten tType = "text/xml"
Response.AddHea der("Content-Disposition",
"filename=test. XML")

Dim OStream As FileStream
Dim FileSize As Long
Dim ds As New DataSet()

OStream = New FileStream(Serv er.MapPath("tes t.XML"),
FileMode.Open, FileAccess.Read )
ds.ReadXml(OStr eam)

FileSize = OStream.Length
Dim Buffer(CInt(Fil eSize)) As Byte

OStream.Read(Bu ffer, 0, CInt(FileSize))
OStream.Close()

Response.Write( Buffer)
Response.End()

[Dorsa]

The Problem is not "," infact is "'" in my file.
"vMike" <Mi************ ****@noYandZ.ge ZwaYrrenZ.com> wrote in message news:<bt******* ***@ngspool-d02.news.aol.co m>...

Well, if I understand what you are trying to do you would do something like
I have below, but there are better ways to do this if your original word
file is structured but you can give this a try. Typically you would go to a
node and change the node values but this should work.
Dim doc As XmlDocument = New XmlDocument()
doc.Load("yourp ath and file name.xml")
dim sb as new stringbuilder(d oc.innerxml,doc .innerxml.lengt h + 100)
sb.replace("old text","newtext" )
doc.innerXML = sb.tostring()
doc.save("yourp ath and file name.xml") 'note you may want to use a
different name for testing to see how it works

Good luck.

"Dorsa" <do******@yahoo .com> wrote in message
news:23******** *************** ***@posting.goo gle.com...

Yes, It worked. But here is the things that I'm not sure about that
and I got stuck and I couldn't find any solution for that. I'm pretty
sure that you can help me.
So right now, that XML file can be opend with word2003. it's only text
in that file but I need to treat it as an XML file. (word2003 saved as
XML)
I need to search and replace some text in it. here is an example. I
need to replace "test" with "test1" in "This is a test". Could you
tell me how I can do that? I'm have tried with fileStream and binary
reading but without any success.
I would be thankful if you could help me with that. I'm using vb.net
Thanks
Ayat
"vMike" <Mi************ ****@noYandZ.ge ZwaYrrenZ.com> wrote in message

news:<bs******* ***@ngspool-d02.news.aol.co m>...

Have you tried just a straight forward file write such as. You might also want to mess with the ContentType

Dim fi as System.IO.FileI nfo = new System.IO.FileI nfo(youpathandf ilename)
Response.Clear( )
Response.ClearC ontent()
Response.ClearH eaders()
Response.Conten tType = "applicatio n/unknown"
Response.AddHea der("Content-Disposition", "attachment;fil ename=" +
filename)
Response.WriteF ile(fi.fullname )
Response.End()

fi = Nothing

"Dorsa" <do******@yahoo .com> wrote in message
news:23******** *************** ***@posting.goo gle.com...
> yes, there is an extra character at the end. I couldn't find the
> reason and I also tried with other Response.Conten tType but seems that
> it dosen't care what for that value. Do you any idea how I can delete
> that character byte at the end after ">" ?
> Also, Is there another way for getting my XML file into word? Can you
> tell me about why you used binary for output?
> Thanks
> Dorsa
>
>
> "vMike" <Mi************ ****@noYandZ.ge ZwaYrrenZ.com> wrote in message news:<bs******* ***@ngspool-d02.news.aol.co m>... > > One other probably obvious thing is have you tried reopenning it with > > Word2003 before it is downloaded to see that Word is creating a valid
xml > > file. I read a few threads about it and it fairly new and there have been > > some problems with Word documents which contain grahics and other features. > >
> > "Dorsa" <do******@yahoo .com> wrote in message
> > news:23******** *************** ***@posting.goo gle.com...
> > > Thanks very much mike But here is another problem. I'm trying to open > > > up that XML file with word2003. the file that I'm trying to open is a > > > word file which I had saved it as an XML file. After I download the > > > file, Word2003 opens up but it can't open the file. when I edit the > > > downloaded file with .net, I see an extra character at the end of the > > > document.
> > > </w:wordDocument> "it doesn't show here but it's a rectangle" after > > > ">"
> > > Do you have any suggestion?
> > > thanks
> > > Dorsa
> > >
> > >
> > > "vMike" <Mi************ ****@noYandZ.ge ZwaYrrenZ.com> wrote in message
news:<bs******* ***@ngspool-d02.news.aol.co m>... > > > > Try something like this where pathfile is the path and file name of
your > > > > file.
> > > >
> > > > Dim fStream As New System.IO.FileS tream(pathfile, IO.FileMode.Ope n, > > > > IO.FileAccess.R ead, IO.FileShare.Re ad)
> > > > Dim b(ctype(fStream .Length,int32)) As Byte
> > > > Response.Clear( )
> > > > Response.ClearC ontent()
> > > > Response.ClearH eaders()
> > > > Response.Conten tType = "applicatio n/unknown"
> > > > Response.AddHea der("Content-Disposition", "attachment;fil ename="
+ > > > > filename)
> > > > fStream.Read(b, 0, ctype(fStream.L ength,int32))
> > > > Response.Binary Write(b)
> > > > Response.End()
> > > > fStream.Close()
> > > > fStream = Nothing
> > > > "Dorsa" <do******@yahoo .com> wrote in message
> > > > news:23******** *************** **@posting.goog le.com...
> > > > > HI, Could you please tell me the error in here. I am trying to open an > > > > > XML file from a link.
> > > > >
> > > > >
> > > > > Response.Clear( )
> > > > > Response.Expire s = 0
> > > > > Response.Buffer Output = False
> > > > > Response.Conten tType = "text/xml"
> > > > > Response.AddHea der("Content-Disposition",
> > > > > "filename=test. XML")
> > > > >
> > > > > Dim OStream As FileStream
> > > > > Dim FileSize As Long
> > > > > Dim ds As New DataSet()
> > > > >
> > > > > OStream = New FileStream(Serv er.MapPath("tes t.XML"), > > > > > FileMode.Open, FileAccess.Read )
> > > > > ds.ReadXml(OStr eam)
> > > > >
> > > > > FileSize = OStream.Length
> > > > > Dim Buffer(CInt(Fil eSize)) As Byte
> > > > >
> > > > > OStream.Read(Bu ffer, 0, CInt(FileSize))
> > > > > OStream.Close()
> > > > >
> > > > > Response.Write( Buffer)
> > > > > Response.End()

[vMike]

I am glad you got it working. You might want to take another look at the
stringbuilder info as regards to memory. As I understand it, any time you
change a string, a new string must be created in memory and the old string's
memory is released. The stringbuilder class using the same memory as long as
the size of the "string" isn't greater that the capacity when it is created.
I have never done any tests so I am not sure which is better to use, but
generally if I have a lot of concatenation and/or replacing I prefer the
stringbuilder versus a string, but if I am doing simple string manipulation
I use the string class.

As far as the strange characters, I am not sure but some characters have
special meaning in xml files so that they have to be escaped or otherwise
changed to work correctly. That my be the case in your situation, but if it
works I would worry about it. I would test it with a lot of different
characters like & and > etc to make sure it works.
Good luck/.
"Dorsa" <do******@yahoo .com> wrote in message
news:23******** *************** ***@posting.goo gle.com...

Appreciate it Mike. You helped me a lot. I like to way you wrote it
and it works perfectly.I wanted to show you my code and ask your idea
about it.
Please read my code below. It works, but I found out that when there
is a comma in my text (not the text that I'm searching for) it changes
into some strange character. I also read about stringBulider and I
found out that whenever that we use one of the methods, we create a
new string object in the memory which requires a new allocation of
space. Since this search and replace is a daily routine and there are
more than 100 documents in near future, should I be worry about Memory
and related issues?
Thanks
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

Dim result, str As String
Dim xml As New XmlDocument()
Dim oStream As FileStream
Dim fStream As New
System.IO.FileS tream(Server.Ma pPath("test.xml "), IO.FileMode.Ope n,
IO.FileAccess.R ead, IO.FileShare.Re ad)

Dim byteArray(CType (fStream.Length - 1, Int32)) As Byte
fStream.Read(by teArray, 0, CInt(fStream.Le ngth))

Dim i As Integer

For i = 0 To byteArray.Lengt h - 1
str &= Chr(byteArray(i ))
Next

result = Replace(str, "test", "test1")

Response.Clear( )
Response.ClearC ontent()
Response.ClearH eaders()
Response.Conten tType = "applicatio n/x-msdownload"
Response.AddHea der("Content-Disposition",
"attachment;fil ename=" + "test.xml")
Response.Write( result)
fStream.Close()
Response.End()

fStream = Nothing

End Sub

"vMike" <Mi************ ****@noYandZ.ge ZwaYrrenZ.com> wrote in message

news:<bt******* ***@ngspool-d02.news.aol.co m>...

Well, if I understand what you are trying to do you would do something like I have below, but there are better ways to do this if your original word
file is structured but you can give this a try. Typically you would go to a node and change the node values but this should work.
Dim doc As XmlDocument = New XmlDocument()
doc.Load("yourp ath and file name.xml")
dim sb as new stringbuilder(d oc.innerxml,doc .innerxml.lengt h + 100)
sb.replace("old text","newtext" )
doc.innerXML = sb.tostring()
doc.save("yourp ath and file name.xml") 'note you may want to use a
different name for testing to see how it works

Good luck.

"Dorsa" <do******@yahoo .com> wrote in message
news:23******** *************** ***@posting.goo gle.com...

Yes, It worked. But here is the things that I'm not sure about that
and I got stuck and I couldn't find any solution for that. I'm pretty
sure that you can help me.
So right now, that XML file can be opend with word2003. it's only text in that file but I need to treat it as an XML file. (word2003 saved as
XML)
I need to search and replace some text in it. here is an example. I
need to replace "test" with "test1" in "This is a test". Could you
tell me how I can do that? I'm have tried with fileStream and binary
reading but without any success.
I would be thankful if you could help me with that. I'm using vb.net
Thanks
Ayat
"vMike" <Mi************ ****@noYandZ.ge ZwaYrrenZ.com> wrote in message

news:<bs******* ***@ngspool-d02.news.aol.co m>...

> Have you tried just a straight forward file write such as. You might

also

> want to mess with the ContentType
>
> Dim fi as System.IO.FileI nfo = new

System.IO.FileI nfo(youpathandf ilename)

>
> Response.Clear( )
> Response.ClearC ontent()
> Response.ClearH eaders()
> Response.Conten tType = "applicatio n/unknown"
> Response.AddHea der("Content-Disposition", "attachment;fil ename=" + > filename)
> Response.WriteF ile(fi.fullname )
> Response.End()
>
> fi = Nothing
>
> "Dorsa" <do******@yahoo .com> wrote in message
> news:23******** *************** ***@posting.goo gle.com...
> > yes, there is an extra character at the end. I couldn't find the
> > reason and I also tried with other Response.Conten tType but seems that > > it dosen't care what for that value. Do you any idea how I can delete > > that character byte at the end after ">" ?
> > Also, Is there another way for getting my XML file into word? Can you > > tell me about why you used binary for output?
> > Thanks
> > Dorsa
> >
> >
> > "vMike" <Mi************ ****@noYandZ.ge ZwaYrrenZ.com> wrote in

message news:<bs******* ***@ngspool-d02.news.aol.co m>...

> > > One other probably obvious thing is have you tried reopenning it

with

> > > Word2003 before it is downloaded to see that Word is creating a

valid
xml

> > > file. I read a few threads about it and it fairly new and there

have been

> > > some problems with Word documents which contain grahics and

other features.

> > >
> > > "Dorsa" <do******@yahoo .com> wrote in message
> > > news:23******** *************** ***@posting.goo gle.com...
> > > > Thanks very much mike But here is another problem. I'm trying

to open

> > > > up that XML file with word2003. the file that I'm trying to

open is a

> > > > word file which I had saved it as an XML file. After I

download the

> > > > file, Word2003 opens up but it can't open the file. when I

edit the

> > > > downloaded file with .net, I see an extra character at the end

of the

> > > > document.
> > > > </w:wordDocument> "it doesn't show here but it's a rectangle"

after

> > > > ">"
> > > > Do you have any suggestion?
> > > > thanks
> > > > Dorsa
> > > >
> > > >
> > > > "vMike" <Mi************ ****@noYandZ.ge ZwaYrrenZ.com> wrote in

message
news:<bs******* ***@ngspool-d02.news.aol.co m>...

> > > > > Try something like this where pathfile is the path and file

name of
your

> > > > > file.
> > > > >
> > > > > Dim fStream As New System.IO.FileS tream(pathfile,

IO.FileMode.Ope n,

> > > > > IO.FileAccess.R ead, IO.FileShare.Re ad)
> > > > > Dim b(ctype(fStream .Length,int32)) As Byte
> > > > > Response.Clear( )
> > > > > Response.ClearC ontent()
> > > > > Response.ClearH eaders()
> > > > > Response.Conten tType = "applicatio n/unknown"
> > > > > Response.AddHea der("Content-Disposition",

"attachment;fil ename="
+

> > > > > filename)
> > > > > fStream.Read(b, 0, ctype(fStream.L ength,int32))
> > > > > Response.Binary Write(b)
> > > > > Response.End()
> > > > > fStream.Close()
> > > > > fStream = Nothing
> > > > > "Dorsa" <do******@yahoo .com> wrote in message
> > > > > news:23******** *************** **@posting.goog le.com...
> > > > > > HI, Could you please tell me the error in here. I am

trying to open an

> > > > > > XML file from a link.
> > > > > >
> > > > > >
> > > > > > Response.Clear( )
> > > > > > Response.Expire s = 0
> > > > > > Response.Buffer Output = False
> > > > > > Response.Conten tType = "text/xml"
> > > > > > Response.AddHea der("Content-Disposition",
> > > > > > "filename=test. XML")
> > > > > >
> > > > > > Dim OStream As FileStream
> > > > > > Dim FileSize As Long
> > > > > > Dim ds As New DataSet()
> > > > > >
> > > > > > OStream = New

FileStream(Serv er.MapPath("tes t.XML"),

> > > > > > FileMode.Open, FileAccess.Read )
> > > > > > ds.ReadXml(OStr eam)
> > > > > >
> > > > > > FileSize = OStream.Length
> > > > > > Dim Buffer(CInt(Fil eSize)) As Byte
> > > > > >
> > > > > > OStream.Read(Bu ffer, 0, CInt(FileSize))
> > > > > > OStream.Close()
> > > > > >
> > > > > > Response.Write( Buffer)
> > > > > > Response.End()