求vbs处理文本的脚本 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

各位老师好

因为手头上有不少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 ]

VB好说，vbs没有里面的Like函数。。。麻烦啊

如果是在记事本里可能处理起来还能方便点...

呵呵首先感谢楼上两位
也感谢所有关注这个帖子的朋友.
因为我自己不怎么懂编程.对一些高深的用法也不知道.

我自己有两种想法.
1是能够直接用word 宏来按照一定的规则来输出一个标准的xml 哪怕我再稍微手工修改一下都成, 目前这个方法还没有进入实质的阶段

2,利用word的宏,能够自动在卷章前加xml的标记
如 </zhang></juan><juan>
然后把这个文档存成txt,再手动调整一下.就基本能满足需要了.目前这个方法还在以纯手工来实现.不知道有没有其他思路.

再次谢谢各位的关注

再次感谢

Originally posted by slore at 2007-3-25 10:47:
VB好说，vbs没有里面的Like函数。。。麻烦啊

谢谢你的回答.刚才我再次查看了word的宏,窗口的标题是micro visual basic
我不知道这里能不能满足这个函数.

兄弟能再详细的解释一下么?

我的意思是说VBS读取WORD（处里WORD）比较麻烦，处理文本文件能好些...

Originally posted by jmz573515 at 2007-3-25 11:13:
我的意思是说VBS读取WORD（处里WORD）比较麻烦，处理文本文件能好些...

谢谢

刚才没明白你的意思

这样也行.

只要能达到目的就够了我就是想把这些数据处理成xml

呵呵不懂xml这东西所以我就只能提供编程之外的可能性了

①用EmEditor作编辑器，用录制宏的方式尽可能的把大量繁重繁多的操作录制，然后你就可以一直F4了，然后改那些无法用录制宏操作的地方。
②有一个排版方面的软件DreamEdit，如果编程无法解决的话也建议尝试下。

想当初几百个.htm的模版文件.......呵呵全靠他们了。
只是个建议，在此不一定有效^_^

result="第一卷(卷名)第一章(章名)" Like "第*卷(*)第*章(*)"
这个返回true！

所以可以判断那行包含卷名和章名，然后利用instr和mid可以截取到他们
result是false的部分那么就是正文了！

[ Last edited by slore on 2007-3-24 at 11:30 PM ]

不知道可不可以，请在测试后使用...


on error resume next
dim n
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)
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")
file.write "<book>" & vbcrlf
file.write kaishi & jiewei & vbcrlf
file.write "</book>"
file.close
ws.run "notepad.exe 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
n="       </zhengwen>" & vbcrlf & "     </zhang>" & vbcrlf & "  </juan>" & vbcrlf & "   <juan>" & sp(0) & " " & sp(1) & vbcrlf & "     <zhang>" & sp(2) & " " & sp(3) & vbcrlf & "       <zhengwen>"
else
n=a
end if
end sub

word内置强大的逻辑替换工具，你可以直接将代码替换进去后另存为txt格式再改名为xml就行了

left(z,1)="第" and right(z,1)="卷"?

正文如果也满足这个条件不难吧？

Originally posted by slore at 2007-3-25 22:57:
left(z,1)="第" and right(z,1)="卷"?

正文如果也满足这个条件不难吧？

是不是说正文如果有了这样的数据会出问题?

Originally posted by jmz573515 at 2007-3-25 22:00:
不知道可不可以，请在测试后使用...
on error resume next dim n set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") ... 非常感谢关注本帖的朋友感谢你的代码我这里测试了一下成功了. 可能还有一些其他的问题,目前正在研究你的代码问题: 卷章嵌套不正确卷一章一章二卷二章一章二

Originally posted by everest79 at 2007-3-25 22:48:
word内置强大的逻辑替换工具，你可以直接将代码替换进去后另存为txt格式再改名为xml就行了

我只会用简单的替换
还望赐教

第1楼　kcdsw	发表于 2007-03-25 08:08
中级用户　发帖 179　积分 404
求vbs处理文本的脚本各位老师好因为手头上有不少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)

第2楼　slore	发表于 2007-03-25 10:47
铂金会员　发帖 2,478　积分 5,212
VB好说，vbs没有里面的Like函数。。。麻烦啊

第3楼　jmz573515	发表于 2007-03-25 10:53
银牌会员　发帖 464　积分 1,212
如果是在记事本里可能处理起来还能方便点...

第4楼　kcdsw	发表于 2007-03-25 11:10
中级用户　发帖 179　积分 404
呵呵首先感谢楼上两位也感谢所有关注这个帖子的朋友. 因为我自己不怎么懂编程.对一些高深的用法也不知道. 我自己有两种想法. 1是能够直接用word 宏来按照一定的规则来输出一个标准的xml 哪怕我再稍微手工修改一下都成, 目前这个方法还没有进入实质的阶段 2,利用word的宏,能够自动在卷章前加xml的标记如 </zhang></juan><juan> 然后把这个文档存成txt,再手动调整一下.就基本能满足需要了.目前这个方法还在以纯手工来实现.不知道有没有其他思路. 再次谢谢各位的关注再次感谢

第5楼　kcdsw	发表于 2007-03-25 11:13
中级用户　发帖 179　积分 404
Originally posted by slore at 2007-3-25 10:47: VB好说，vbs没有里面的Like函数。。。麻烦啊谢谢你的回答.刚才我再次查看了word的宏,窗口的标题是micro visual basic 我不知道这里能不能满足这个函数. 兄弟能再详细的解释一下么?

第6楼　jmz573515	发表于 2007-03-25 11:13
银牌会员　发帖 464　积分 1,212
我的意思是说VBS读取WORD（处里WORD）比较麻烦，处理文本文件能好些...

第7楼　kcdsw	发表于 2007-03-25 11:17
中级用户　发帖 179　积分 404
Originally posted by jmz573515 at 2007-3-25 11:13: 我的意思是说VBS读取WORD（处里WORD）比较麻烦，处理文本文件能好些... 谢谢刚才没明白你的意思这样也行. 只要能达到目的就够了我就是想把这些数据处理成xml

第8楼　baomaboy	发表于 2007-03-25 11:35
银牌会员　发帖 554　积分 1,513
呵呵不懂xml这东西所以我就只能提供编程之外的可能性了 ①用EmEditor作编辑器，用录制宏的方式尽可能的把大量繁重繁多的操作录制，然后你就可以一直F4了，然后改那些无法用录制宏操作的地方。 ②有一个排版方面的软件DreamEdit，如果编程无法解决的话也建议尝试下。想当初几百个.htm的模版文件.......呵呵全靠他们了。只是个建议，在此不一定有效^_^

第9楼　slore	发表于 2007-03-25 11:49
铂金会员　发帖 2,478　积分 5,212
result="第一卷(卷名)第一章(章名)" Like "第卷()第章()" 这个返回true！所以可以判断那行包含卷名和章名，然后利用instr和mid可以截取到他们 result是false的部分那么就是正文了！ [ Last edited by slore on 2007-3-24 at 11:30 PM ]

第10楼　jmz573515	发表于 2007-03-25 22:00
银牌会员　发帖 464　积分 1,212
不知道可不可以，请在测试后使用... on error resume next dim n 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) 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") file.write "<book>" & vbcrlf file.write kaishi & jiewei & vbcrlf file.write "</book>" file.close ws.run "notepad.exe 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 n=" </zhengwen>" & vbcrlf & " </zhang>" & vbcrlf & " </juan>" & vbcrlf & " <juan>" & sp(0) & " " & sp(1) & vbcrlf & " <zhang>" & sp(2) & " " & sp(3) & vbcrlf & " <zhengwen>" else n=a end if end sub

第11楼　everest79	发表于 2007-03-25 22:48
金牌会员　发帖 1,127　积分 2,564
word内置强大的逻辑替换工具，你可以直接将代码替换进去后另存为txt格式再改名为xml就行了

第12楼　slore	发表于 2007-03-25 22:57
铂金会员　发帖 2,478　积分 5,212
left(z,1)="第" and right(z,1)="卷"? 正文如果也满足这个条件不难吧？

第13楼　kcdsw	发表于 2007-03-25 23:58
中级用户　发帖 179　积分 404
Originally posted by slore at 2007-3-25 22:57: left(z,1)="第" and right(z,1)="卷"? 正文如果也满足这个条件不难吧？是不是说正文如果有了这样的数据会出问题?

第14楼　kcdsw	发表于 2007-03-26 00:00
中级用户　发帖 179　积分 404
Originally posted by jmz573515 at 2007-3-25 22:00: 不知道可不可以，请在测试后使用... on error resume next dim n set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") ... 非常感谢关注本帖的朋友感谢你的代码我这里测试了一下成功了. 可能还有一些其他的问题,目前正在研究你的代码问题: 卷章嵌套不正确卷一章一章二卷二章一章二

第15楼　kcdsw	发表于 2007-03-26 00:07
中级用户　发帖 179　积分 404
Originally posted by everest79 at 2007-3-25 22:48: word内置强大的逻辑替换工具，你可以直接将代码替换进去后另存为txt格式再改名为xml就行了我只会用简单的替换还望赐教