请问如何将Word文档以流的形式写入XML文档，谢谢

Question

客户端从服务器端下载到好几个Word文档，不方便管理，想把它们写入XML文档的某一节点，请问有办法吗，谢谢！！

Answer 1

我知道在ASP中把文件存入XML里，以二进制的形式，然后也可以读出来，原理一样的吧。
文件一:将图形文件存入xml文件中..
文件名: imagetoxml.asp<%option explicit
dim xml
dim objstream
dim objxmldoc 
''定义变量完结
'创建对像
set objxmldoc = server.createobject("msxml2.domdocument.4.0")    '设定生成xml文档的根为 base64data
    objxmldoc.loadxml "<?xml version='1.0'?><base64data />"'用 stream 来读取数据
set objstream = server.createobject("adodb.stream")
objstream.type = 1
objstream.open
objstream.loadfromfile server.mappath("2.jpg")'2.jpg要和这个文件放在同一目录下.    objxmldoc.documentelement.datatype = "bin.base64"
    objxmldoc.documentelement.nodetypedvalue = objstream.read
'数据流读取结束.得到了值 objxmldoc 
'创建xml文件   
  set xml = server.createobject("msxml2.domdocument.4.0")
  xml.load objxmldoc 
  xml.save (server.mappath("2.xml"))'同样文件名也可以自定义
  response.write("成功")
%>
================================文件二:把xml文件以图像的方式来显示
文件名:xmltoimage.asp
<%
option explicit
dim objxmldoc 
'定义变量完结
set objxmldoc = server.createobject("msxml2.domdocument.4.0")
objxmldoc.async = false
objxmldoc.validateonparse = true
'创建对象if objxmldoc.load (server.mappath("2.xml")) then
'如果成功加载2.xml(这个名可以自己改保证在server.mappath的相对路径下)
dim signode
set signode = objxmldoc.selectsinglenode("//base64data")
'读取图片对象 
if signode is nothing then
  '如果图片没有找到
else
  response.contenttype = "image/jpg"
response.binarywrite signode.nodetypedvalue
'response.binarywrite 以二进制方式写出
end if
else
'发生了错误.代码自己写.
end if%>

Answer 2

Convert a CSV file to XML、供参考...http://www.swissdelphicenter.ch/en/showcode.php?id=1965