国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

比較兩個文件

2019-11-18 17:32:36
字體:
來源:轉載
供稿:網友
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
issame=False
ExitFor
EndIf
start&=start& 10000
Next
buffer1$=String$(part&,0)
buffer2$=String$(part&,0)
Get#1,start&,buffer1$'gettheremainingbytesattheend
Get#2,start&,buffer2$'gettheremainingbytesattheend
Ifbuffer1$<>buffer2$Then
issame=False
EndIf
Close
CompFile=issame
EndFunction->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 寿宁县| 曲沃县| 山阴县| 秦皇岛市| 绍兴县| 元朗区| 家居| 满洲里市| 阿克陶县| 鄂托克旗| 剑阁县| 南木林县| 怀柔区| 阳山县| 五家渠市| 秦皇岛市| 林州市| 密山市| 纳雍县| 鱼台县| 庆阳市| 衡山县| 长海县| 中西区| 临汾市| 镇江市| 阳江市| 石景山区| 宜兰县| 若尔盖县| 紫阳县| 大连市| 乐东| 东至县| 辰溪县| 汉中市| 招远市| 榆树市| 华蓥市| 景宁| 香河县|