VBS比较两个文本的内容

dim fso,file(1),read(1),list,StringIntercept,readlist,string_handle(1),string_replace,StringIntercept_var,string_compare(1),string_finally,apc_var(1),count
set fso=createobject("scripting.filesystemobject")
file(0)="1.txt" '文件a
file(1)="2.txt" '文件b
find="字节" '查找字符串
count=96 '做个标记
for list=0 to 1 '遍历文件内容
count=count+1
apc_var(list)=chr(count)
 read(list)=fso.opentextfile(file(list)).readall '读取全文
 StringIntercept=split(read(list),vbcrlf) '截取每行
 for each readlist in StringIntercept '遍历每行
  if instr(readlist,find)>0 then '判断是否存在要查找的字符,存在则执行
   string_replace=string_trim(replace(readlist,find,empty),space(1)) '剔除查找到的字符
   StringIntercept_var=split(string_replace,space(1)) '截取两边的数字
   string_handle(0)=string_handle(0)&StringIntercept_var(0)&space(1) '把A与B中的前半部分数字储存到数组A
   string_handle(1)=string_handle(1)&StringIntercept_var(1)&space(1) '把A与B中的后半部分数字储存到数组B
   exit for
  end if
 next 

next
for list=0 to 1 '遍历数组中两个部分的大小
 string_compare(list)=split(string_handle(list),space(1)) '截取空格左右两段落
 if string_compare(list)(0)>string_compare(list)(1) then '判断大小
  string_finally=string_finally&string_compare(list)(0)&" = "& apc_var(list) & vbcrlf '如果A大于B返回A的结果
 else
  string_finally=string_finally&string_compare(list)(1)&" = "& apc_var(list) & vbcrlf '如果A小于B返回B的结果
 end if
next
string_finally=left(string_finally,len(string_finally)-2)
fso.createtextfile("3.txt").write string_finally '写入3.txt文件中
set fso=nothing
 function string_trim(string,Intercept_var) '过滤字符串,剔除多余空格部分
 string=Intercept_var&string
 dim listA
 for listA=1 to len(string)
 if instr(mid(string,listA,1),Intercept_var)=0 then
  if instr(mid(string,listA-1,1),Intercept_var)>0 then
   string_trim=string_trim&Intercept_var
  end if
  string_trim=string_trim&mid(string,listA,1)
 end if
 next
string_trim=right(string_trim,len(string_trim)-1)
end function

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/rx7fvx23x2yj32v72y.html