⑴ 怎樣在文件夾中一次選中多個文件
1、首先滑鼠單擊打開要選擇文件的文件夾。
⑵ 如何用Java判斷兩個文件內容是否相同
如果你維護這些文件列表,並且後期會不定期進行比較,也就是確定一個文件有多次被比較的機會。可以計算這些文件的MD5並緩存起來,後期直接用MD5進行比較。
如果只是臨時性的隨機選兩個文件進薯碰行比較,可以先比較文件伍雹大小,如果文件大小不同就說明文件內容不相同。如果大小相等的話,可以打開這兩個文件的輸入流,位元組逐一比較,如果中間有不相等的位元組就說明兩個文件不相等,然後直接退出比較,需要注意的是文件流要緩沖(BufferedInputStream)。
之所以不推薦MD5是因為MD5也需要根據文件全部內容計算散列值,可是實際上中途發現有一個位元組不相同就可以判定這兩個文件是不同的,根本沒必要去讀取文件的全部內容。
//in1,
in2為兩個文件的輸入流,數橘談最後注意流的關閉
int
c;
while
((c
=
in1.read())
!=
-1)
{
if
(in2.read()
!=
c)
return
false;
}
return
true;
⑶ excel 計算文件夾下所有文件中數據求和!請大神指點~
需要使用VBA程序來處理,
將如下代碼復制到你的模塊內,修改你的文件夾名稱(WenJianJiaMingCheng)內容,然後執行即可:
Sub programX()
Application.DisplayAlerts = False :
Application.ScreenUpdating = False : ChengXuWenjianMing = ActiveWorkbook.Name
JiLuBiao = ActiveSheet.Name:
Cells.ClearContents
WenJianJiaMingCheng =
"C:\LiangYouFu\ImportantBackup\" '反斜杠不可省略
WenJianMing = Dir(WenJianJiaMingCheng)
Do While WenJianMing <>
""
WenJianMing = Dir
ChuLiShuJu WenJianJiaMingCheng,
WenJianMing, ChengXuWenjianMing, JiLuBiao
Loop
MsgBox "文件遍歷結束,請查看數據!
End Sub
Sub ChuLiShuJu(WenJianJiaMingCheng,
WenJianMing, ChengXuWenjianMing, JiLuBiao)
on error resume next
Workbooks.Open WenJianJiaMingCheng &
WenJianMing
pox =
Application.CountA(Workbooks(ChengXuWenjianMing).Sheets(JiLuBiao).Range("a:a"))
+ 1
Workbooks(ChengXuWenjianMing).Sheets(JiLuBiao).Cells(pox,
1) = WenJianMing
Workbooks(ChengXuWenjianMing).Sheets(JiLuBiao).Cells(pox,
2) = Workbooks(WenJianMing).Sheets("sheet1").Range("a1")
Windows(WenJianMing).Close
savechanges:=False
End Sub