首页 相关文章 比较两个文件

比较两个文件

FunctionCompFile(F1asstring,F2asstring)asboolean
  Dimissameasboolean
  OpenF1ForBinaryAs#1
  OpenF2ForBinaryAs#2
  
  issame=True
  IfLOF(1)LOF(2)Then
  issame=False
  Else
  whole&=LOF(1)10000'numberofwhole10,000bytechunks
  part&=LOF(1)Mod10000'remainingbytesatendoffile
  buffer1$=String$(10000,0)
  buffer2$=String$(10000,0)
  start&=1
  Forx&=1Towhole&'thisfor-nextloopwillget10,000
  Get#1,start&,buffer1$'bytechunksatatime.
  Get#2,start&,buffer2$
  Ifbuffer1$buffer2$Then[ 查看全文 ]

2016-02-19 标签:

比较两个文件的相关文章

手机页面
收藏网站 回到头部