申请标题:申请会员ID:xiaoshuqixia2019
1、申 请 I D:xiaoshuqixia2019
2、个人邮箱:9807604@qq.com
3、原创技术文章:
我是个新手,不太会编程,来这里是学习的,最近在学习易语言。以下是我以前用按键精灵编写的一个脚本:
将N各文本内容交叉整合成一个文本。有使用时间限制。
Function NowTime()
Dim SvrName(14)
Dim xPost,HttpAdd,NowTime,StartTime
StartTime=Now
SvrName(1) = "time-nw.nist.gov"
SvrName(2) = "time-a.nist.gov"
SvrName(3) = "time-b.nist.gov"
SvrName(4) = "time-a.timefreq.bldrdoc.gov"
SvrName(5) = "time-b.timefreq.bldrdoc.gov"
SvrName(6) = "time-c.timefreq.bldrdoc.gov"
SvrName(7) = "utcnist.colorado.edu"
SvrName(8) = "time.nist.gov"
SvrName(9) = "nist1.datum.com"
SvrName(10) = "nist1.dc.glassey.com"
SvrName(11) = "nist1.ny.glassey.com"
SvrName(12) = "nist1.sj.glassey.com"
SvrName(13) = "nist1.aol-ca.truetime.com"
SvrName(14) = "nist1.aol-va.truetime.com"
Set xPost=createObject("Microsoft.XMLHTTP")
While NowTime=""
i=1
For 14
HttpAdd="Http://"&SvrName(i)&":13":NowTime=""
xPost.Open "ut",HttpAdd,False
xPost.Send
Delay 10
If xPost.readyState=4 Then
NowTime=mid(xPost.responsetext,8,17)
If NowTime<>"" Then
NowTime=CDate(NowTime) + 8 / 24
Goto EndConnect
Else
xPost.abort
NowTime=""
End if
End if
i=i+1
Next
If DateDiff("s",StartTime,Now)>=30 And NowTime="" Then
Nowtime=-1
Goto EndConnect
End if
Wend
Rem EndConnect
xPost.abort
Set xPost=Nothing
End Function
//在下列這句設定腳本到期日↓
If NowTime>CDate("2011-5-9")
MessageBox "已经不能用了!"
EndScript
Else
Goto s1
EndScript
EndIf
Rem s1
a=inputbox("你要合并多少个文本?请在下面输入数量,范围(3-25)超过范围,哥哥我罢工,不干了!")
If a=3 Then
Call 子程序3合并3
elseIf a=1 then
MessageBox "傻帽?1个文本交叉合并个毛阿!靠,玩我啊!操... "
elseIf a=2 then
MessageBox "傻帽?2个文本交叉合并个毛阿!靠,玩我啊!操...日阿 "
elseIf a=4 then
Call 子程序4合并4
elseIf a=5 then
Call 子程序5合并5
elseIf a=6 then
Call 子程序6合并6
elseIf a=7 then
Call 子程序7合并7
elseIf a=8 then
Call 子程序8合并8
elseIf a=9 then
Call 子程序9合并9
elseIf a=10 then
Call 子程序10合并10
elseIf a=11 then
Call 子程序11合并11
elseIf a=12 then
Call 子程序12合并12
elseIf a=13 then
Call 子程序13合并13
elseIf a=14 then
Call 子程序14合并14
elseIf a=15 then
Call 子程序15合并15
elseIf a=16 then
Call 子程序16合并16
elseIf a=17 then
Call 子程序17合并17
elseIf a=18 then
Call 子程序18合并18
elseIf a=19 then
Call 子程序19合并19
elseIf a=20 then
Call 子程序20合并20
elseIf a=21 then
Call 子程序21合并21
elseIf a=22 then
Call 子程序22合并22
elseIf a=23 then
Call 子程序23合并23
elseIf a=24 then
Call 子程序24合并24
elseIf a=25 then
Call 子程序25合并25
elseIf a>25 then
MessageBox "老大,看清楚说明阿,不是说了,超过20个文本老子就罢工吗?你想敲诈我的劳动力阿!靠!"
end if
sub 子程序3合并3
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & vbcrlf & t2(i) & vbcrlf & t3(i) & vbcrlf
Next
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序4合并4
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"
Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序5合并5
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序6合并6
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"
Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序7合并7
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序8合并8
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序9合并9
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序10合并10
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序11合并11
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序12合并12
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序13合并13
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序14合并14
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序15合并15
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
Text15= Plugin.File.ReadFileEx("e:\15.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
t15=Split(text15,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"& t15(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序16合并16
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
Text15= Plugin.File.ReadFileEx("e:\15.txt")
Text16= Plugin.File.ReadFileEx("e:\16.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
t15=Split(text15,"|")
t16=Split(text16,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"& t15(i) & "|"& t16(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序17合并17
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
Text15= Plugin.File.ReadFileEx("e:\15.txt")
Text16= Plugin.File.ReadFileEx("e:\16.txt")
Text17= Plugin.File.ReadFileEx("e:\17.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
t15=Split(text15,"|")
t16=Split(text16,"|")
t17=Split(text17,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"& t15(i) & "|"& t16(i) & "|"& t17(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序18合并18
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
Text15= Plugin.File.ReadFileEx("e:\15.txt")
Text16= Plugin.File.ReadFileEx("e:\16.txt")
Text17= Plugin.File.ReadFileEx("e:\17.txt")
Text18= Plugin.File.ReadFileEx("e:\18.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
t15=Split(text15,"|")
t16=Split(text16,"|")
t17=Split(text17,"|")
t18=Split(text18,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"& t15(i) & "|"& t16(i) & "|"& t17(i) & "|"& t18(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序19合并19
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
Text15= Plugin.File.ReadFileEx("e:\15.txt")
Text16= Plugin.File.ReadFileEx("e:\16.txt")
Text17= Plugin.File.ReadFileEx("e:\17.txt")
Text18= Plugin.File.ReadFileEx("e:\18.txt")
Text19= Plugin.File.ReadFileEx("e:\19.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
t15=Split(text15,"|")
t16=Split(text16,"|")
t17=Split(text17,"|")
t18=Split(text18,"|")
t19=Split(text19,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"& t15(i) & "|"& t16(i) & "|"& t17(i) & "|"& t18(i) & "|"& t19(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序20合并20
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
Text15= Plugin.File.ReadFileEx("e:\15.txt")
Text16= Plugin.File.ReadFileEx("e:\16.txt")
Text17= Plugin.File.ReadFileEx("e:\17.txt")
Text18= Plugin.File.ReadFileEx("e:\18.txt")
Text19= Plugin.File.ReadFileEx("e:\19.txt")
Text20= Plugin.File.ReadFileEx("e:\20.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
t15=Split(text15,"|")
t16=Split(text16,"|")
t17=Split(text17,"|")
t18=Split(text18,"|")
t19=Split(text19,"|")
t20=Split(text20,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"& t15(i) & "|"& t16(i) & "|"& t17(i) & "|"& t18(i) & "|"& t19(i) & "|"& t20(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序21合并21
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
Text15= Plugin.File.ReadFileEx("e:\15.txt")
Text16= Plugin.File.ReadFileEx("e:\16.txt")
Text17= Plugin.File.ReadFileEx("e:\17.txt")
Text18= Plugin.File.ReadFileEx("e:\18.txt")
Text19= Plugin.File.ReadFileEx("e:\19.txt")
Text20= Plugin.File.ReadFileEx("e:\20.txt")
Text21= Plugin.File.ReadFileEx("e:\21.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
t15=Split(text15,"|")
t16=Split(text16,"|")
t17=Split(text17,"|")
t18=Split(text18,"|")
t19=Split(text19,"|")
t20=Split(text20,"|")
t21=Split(text21,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"& t15(i) & "|"& t16(i) & "|"& t17(i) & "|"& t18(i) & "|"& t19(i) & "|"& t20(i) & "|"& t21(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序22合并22
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
Text15= Plugin.File.ReadFileEx("e:\15.txt")
Text16= Plugin.File.ReadFileEx("e:\16.txt")
Text17= Plugin.File.ReadFileEx("e:\17.txt")
Text18= Plugin.File.ReadFileEx("e:\18.txt")
Text19= Plugin.File.ReadFileEx("e:\19.txt")
Text20= Plugin.File.ReadFileEx("e:\20.txt")
Text21= Plugin.File.ReadFileEx("e:\21.txt")
Text22= Plugin.File.ReadFileEx("e:\22.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
t15=Split(text15,"|")
t16=Split(text16,"|")
t17=Split(text17,"|")
t18=Split(text18,"|")
t19=Split(text19,"|")
t20=Split(text20,"|")
t21=Split(text21,"|")
t22=Split(text22,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"& t15(i) & "|"& t16(i) & "|"& t17(i) & "|"& t18(i) & "|"& t19(i) & "|"& t20(i) & "|"& t21(i) & "|"& t22(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序23合并23
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
Text15= Plugin.File.ReadFileEx("e:\15.txt")
Text16= Plugin.File.ReadFileEx("e:\16.txt")
Text17= Plugin.File.ReadFileEx("e:\17.txt")
Text18= Plugin.File.ReadFileEx("e:\18.txt")
Text19= Plugin.File.ReadFileEx("e:\19.txt")
Text20= Plugin.File.ReadFileEx("e:\20.txt")
Text21= Plugin.File.ReadFileEx("e:\21.txt")
Text22= Plugin.File.ReadFileEx("e:\22.txt")
Text23= Plugin.File.ReadFileEx("e:\23.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
t15=Split(text15,"|")
t16=Split(text16,"|")
t17=Split(text17,"|")
t18=Split(text18,"|")
t19=Split(text19,"|")
t20=Split(text20,"|")
t21=Split(text21,"|")
t22=Split(text22,"|")
t23=Split(text23,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"& t15(i) & "|"& t16(i) & "|"& t17(i) & "|"& t18(i) & "|"& t19(i) & "|"& t20(i) & "|"& t21(i) & "|"& t22(i) & "|"& t23(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序24合并24
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
Text15= Plugin.File.ReadFileEx("e:\15.txt")
Text16= Plugin.File.ReadFileEx("e:\16.txt")
Text17= Plugin.File.ReadFileEx("e:\17.txt")
Text18= Plugin.File.ReadFileEx("e:\18.txt")
Text19= Plugin.File.ReadFileEx("e:\19.txt")
Text20= Plugin.File.ReadFileEx("e:\20.txt")
Text21= Plugin.File.ReadFileEx("e:\21.txt")
Text22= Plugin.File.ReadFileEx("e:\22.txt")
Text23= Plugin.File.ReadFileEx("e:\23.txt")
Text24= Plugin.File.ReadFileEx("e:\24.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
t15=Split(text15,"|")
t16=Split(text16,"|")
t17=Split(text17,"|")
t18=Split(text18,"|")
t19=Split(text19,"|")
t20=Split(text20,"|")
t21=Split(text21,"|")
t22=Split(text22,"|")
t23=Split(text23,"|")
t24=Split(text24,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"& t15(i) & "|"& t16(i) & "|"& t17(i) & "|"& t18(i) & "|"& t19(i) & "|"& t20(i) & "|"& t21(i) & "|"& t22(i) & "|"& t23(i) & "|"& t24(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub
sub 子程序25合并25
Text1 = Plugin.File.ReadFileEx("e:\1.txt")
Text2 = Plugin.File.ReadFileEx("e:\2.txt")
Text3 = Plugin.File.ReadFileEx("e:\3.txt")
Text4= Plugin.File.ReadFileEx("e:\4.txt")
Text5= Plugin.File.ReadFileEx("e:\5.txt")
Text6= Plugin.File.ReadFileEx("e:\6.txt")
Text7= Plugin.File.ReadFileEx("e:\7.txt")
Text8= Plugin.File.ReadFileEx("e:\8.txt")
Text9= Plugin.File.ReadFileEx("e:\9.txt")
Text10= Plugin.File.ReadFileEx("e:\10.txt")
Text11= Plugin.File.ReadFileEx("e:\11.txt")
Text12= Plugin.File.ReadFileEx("e:\12.txt")
Text13= Plugin.File.ReadFileEx("e:\13.txt")
Text14= Plugin.File.ReadFileEx("e:\14.txt")
Text15= Plugin.File.ReadFileEx("e:\15.txt")
Text16= Plugin.File.ReadFileEx("e:\16.txt")
Text17= Plugin.File.ReadFileEx("e:\17.txt")
Text18= Plugin.File.ReadFileEx("e:\18.txt")
Text19= Plugin.File.ReadFileEx("e:\19.txt")
Text20= Plugin.File.ReadFileEx("e:\20.txt")
Text21= Plugin.File.ReadFileEx("e:\21.txt")
Text22= Plugin.File.ReadFileEx("e:\22.txt")
Text23= Plugin.File.ReadFileEx("e:\23.txt")
Text24= Plugin.File.ReadFileEx("e:\24.txt")
Text25= Plugin.File.ReadFileEx("e:\25.txt")
t1=Split(text1,"|")
t2=Split(text2,"|")
t3=Split(text3,"|")
t4=Split(text4,"|")
t5=Split(text5,"|")
t6=Split(text6,"|")
t7=Split(text7,"|")
t8=Split(text8,"|")
t9=Split(text9,"|")
t10=Split(text10,"|")
t11=Split(text11,"|")
t12=Split(text12,"|")
t13=Split(text13,"|")
t14=Split(text14,"|")
t15=Split(text15,"|")
t16=Split(text16,"|")
t17=Split(text17,"|")
t18=Split(text18,"|")
t19=Split(text19,"|")
t20=Split(text20,"|")
t21=Split(text21,"|")
t22=Split(text22,"|")
t23=Split(text23,"|")
t24=Split(text24,"|")
t25=Split(text25,"|")
u=UBound(t1)
For i=0 to u-1
t=t & t1(i) & "|" & t2(i) & "|" & t3(i) & "|"& t4(i) & "|"& t5(i) & "|"& t6(i) & "|"& t7(i) & "|"& t8(i) & "|"& t9(i) & "|"& t10(i) & "|"& t11(i) & "|"& t12(i) & "|"& t13(i) & "|"& t14(i) & "|"& t15(i) & "|"& t16(i) & "|"& t17(i) & "|"& t18(i) & "|"& t19(i) & "|"& t20(i) & "|"& t21(i) & "|"& t22(i) & "|"& t23(i) & "|"& t24(i) & "|"& t25(i) & "|"Next
t=Replace (t,"|",vbcrlf)
Call Plugin.File.WriteFileEx("e:\zong.txt", t)
end sub |