CODE: [Copy to clipboard]
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
[CODE: [Copy to clipboard]
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