各位老师好
因为手头上有不少doc文件需要做处理,想处理成xml格式的.
可是word里的xml格式与我想要的不相符.
我在网上找了很久 也不得要领. 特向大家求救!
之所以考虑用vbs , 目的是想最终用word 的宏来实现自动处理.
希望各位路过的兄弟们能帮我出出主意!
原文件结构.(doc)
第一卷(卷名)第一章(章名)
正文
第一卷(卷名)第二章(章名)
正文
.......
第二卷(卷名)第一章(章名)
正文
第二卷(卷名)第二章(章名)
正文
........
目标结构:(xml)
<book>
<juan>卷名
<zhang>章名
<zhengwen>正文
</zhengwen>
</zhang>
</juan>
<juan>卷名
<zhang>章名
<zhengwen>正文
</zhengwen>
</zhang>
</juan>
</book>
在众多朋友的帮助下,终于有了解决方案
目前输出的xml已经是标准xml了
我还想添加上 拖拽功能,和选择框效果
找了N多帖子,不得要领 还请各位兄弟帮忙
[ Last edited by kcdsw on 2007-3-26 at 05:30 AM ]
因为手头上有不少doc文件需要做处理,想处理成xml格式的.
可是word里的xml格式与我想要的不相符.
我在网上找了很久 也不得要领. 特向大家求救!
之所以考虑用vbs , 目的是想最终用word 的宏来实现自动处理.
希望各位路过的兄弟们能帮我出出主意!
原文件结构.(doc)
第一卷(卷名)第一章(章名)
正文
第一卷(卷名)第二章(章名)
正文
.......
第二卷(卷名)第一章(章名)
正文
第二卷(卷名)第二章(章名)
正文
........
目标结构:(xml)
<book>
<juan>卷名
<zhang>章名
<zhengwen>正文
</zhengwen>
</zhang>
</juan>
<juan>卷名
<zhang>章名
<zhengwen>正文
</zhengwen>
</zhang>
</juan>
</book>
在众多朋友的帮助下,终于有了解决方案
目前输出的xml已经是标准xml了
我还想添加上 拖拽功能,和选择框效果
找了N多帖子,不得要领 还请各位兄弟帮忙
on error resume next
dim n,y
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("needhelp.txt",1)
do while file.atendofstream<>true
'去除前导空格
n=ltrim(file.readline)
'调用pd
call pd(n)
s=s & n & vbcrlf
loop
file.close
h=instr(s,"<juan>第")
jiewei=left(s,h-6):kaishi=mid(s,h-2)
set file=fso.createtextfile("out.xml",ture)
head ="<?xml version=""1.0"" encoding=""UTF-8""?>" & vbcrlf & "<book>" & vbcrlf
foot =VbCrLf & "</book>"
file.write head & kaishi & jiewei & foot
file.close
ws.run "explorer out.xml"
sub pd(a)
l=instr(a," ")
z=left(a,l-1)
'用空格分割字符
sp=split(a," ")
if left(z,1)="第" and right(z,1)="卷" Then
if y=z then
n=" </zhengwen>" & VbCrLf & " </zhang>" & " <zhang>"& vbcrlf & sp(0) & " " & sp(1) & " " & sp(2) & " " & sp(3) & VbCrLf & " <zhengwen>"
else
n=" </zhengwen>" & VbCrLf & " </zhang>" & vbcrlf & " </juan>" & VbCrLf & " <juan>" & sp(0) & " " & sp(1) & VbCrLf & " <zhang>" & sp(2) & " " & sp(3) & VbCrLf & " <zhengwen>"
end if
y=z
else
n=a
end If
end sub
[ Last edited by kcdsw on 2007-3-26 at 05:30 AM ]
附件
needhelp.txt (13.6 KiB, 下载次数: 14)