【Access小品】如何放屁 -- 再論壓縮與解壓

todaynew

　　很久很久以前寫(xiě)過(guò)一個(gè)《斗天斗地斗引號(hào)---Rar壓縮及解壓文件示例》，在這個(gè)示例中對(duì)Rar的壓縮和解壓做了一些淺顯的論述。今日里，版友“這是我的小號(hào)”同志希望借用這個(gè)示例，進(jìn)一步折騰出帶密碼的壓縮與解壓功能來(lái)。于是乎“這是我的小號(hào)”同志在網(wǎng)上找了一些資料，發(fā)現(xiàn)只需要加一個(gè)ｐ開(kāi)關(guān)就應(yīng)該可以了，于是他將Rar的解壓命令寫(xiě)做“ x -p ”。一測(cè)試，彈出了Rar的密碼對(duì)話框。這當(dāng)然不是版友“這是我的小號(hào)”同志所希望的。

　　為什么會(huì)這樣呢？我們先來(lái)分析一下。版友“這是我的小號(hào)”同志放了一個(gè)ｐ，這個(gè)ｐ表示一個(gè)Rar的開(kāi)關(guān)。但版友“這是我的小號(hào)”同志并沒(méi)有告訴Rar這個(gè)ｐ到底是個(gè)什么調(diào)調(diào)。所以這個(gè)ｐ實(shí)際并沒(méi)放響，只是告訴Rar打算放個(gè)ｐ。好在Rar也很聰明，便彈出一個(gè)對(duì)話框，問(wèn)版友“這是我的小號(hào)”同志這個(gè)ｐ是怎么個(gè)放法。到此，我們便知道了版友“這是我的小號(hào)”同志放的ｐ出現(xiàn)了什么問(wèn)題－－沒(méi)有進(jìn)一步寫(xiě)入密碼。所以正確的寫(xiě)法是：“ x -p123 ”（假設(shè)密碼是123）。

　　Rar命令行（也包括其他命令行）含有開(kāi)關(guān)，開(kāi)關(guān)由“-”符號(hào)加一個(gè)有特定含義的字母構(gòu)成，有些開(kāi)關(guān)是不帶參數(shù)的，但有些就需要帶參數(shù)。密碼的開(kāi)關(guān)是個(gè)ｐ，可以帶參數(shù)也可以不帶參數(shù)。不帶參數(shù)時(shí)，僅表示壓縮或解壓時(shí)需要密碼，于是由Rar彈出對(duì)話框來(lái)進(jìn)一步確認(rèn)密碼；帶參數(shù)時(shí)，Rar就在壓縮或解壓時(shí)，按照密碼參數(shù)進(jìn)行操作，除非輸入密碼是錯(cuò)誤的，否則不會(huì)彈出對(duì)話框再詢問(wèn)什么。

　　放個(gè)ｐ不難，難的是明白如何放ｐ。明白了這一點(diǎn)，ｐ才能放得響徹云霄，驚天動(dòng)地。放ｐ論述完了，但總是還要給“這是我的小號(hào)”同志一個(gè)交代，不能空談?wù)`國(guó)。于是便將原例中的相關(guān)代碼做了一個(gè)修改。


Public Function RarA(ByVal RAR As String, ByVal RARname As String, ByVal filname As String, Optional password As String)
    '功能:壓縮文件
    '參數(shù):RAR --RAR地址
    '     RARname---壓縮文件名（含路徑）
    '     filname---被壓縮的文件名或文件夾名（含路徑）
    '示例:RarA "C:\Program Files\WinRAR\WinRAR.exe",CurrentProject.Path & "\備份\后臺(tái)備份.rar",CurrentProject.Path & "\備份\*.mdb","123"
    Dim cmd As String
    If Nz(password, "") = "" Then
        cmd = " a -r -ep -df "
    Else
        cmd = " a -r -ep -df -p{0} "
        cmd = ReplaceValues(cmd, password)
    End If
   
    Call Shell(RAR & cmd & """" & RARname & """ """ & filname & """", vbNormalFocus)
End Function


Public Function RarX(ByVal RAR As String, ByVal RARname As String, ByVal fldname As String, Optional password As String)
    '功能:解壓文件
    '參數(shù):RAR --RAR地址
    '     RARname---壓縮文件名（含路徑）
    '     fldname---解壓的文件夾名（含路徑）
    '示例:RarX "C:\Program Files\WinRAR\WinRAR.exe",CurrentProject.Path & "\備份\后臺(tái)備份.rar",CurrentProject.Path & "\備份\*.mdb","123"
    Dim cmd As String
    If Nz(password, "") = "" Then
        cmd = " x "
    Else
        cmd = " x -p{0} "
        cmd = ReplaceValues(cmd, password)
    End If
    Call Shell(RAR & cmd & """" & RARname & """ *.* """ & fldname & """", vbNormalFocus)
End Function


Public Function ReplaceValues(ByVal str As String, ParamArray pArr() As Variant) As String
    '功能：模仿.Net中的String.Format方法
    Dim str1  As String
    Dim num As String
    Dim i As Integer
    str1 = str
    For i = 0 To UBound(pArr)
        num = "{" & i & "}"
        str1 = Replace(str1, num, pArr(i))
    Next
    ReplaceValues = str1
End Function

zpy2

好文章，贊一個(gè)

這是我的小號(hào)

按這個(gè)函數(shù)處理的話，解壓后的文件自動(dòng)放在“我的文檔”里：
Sub winrar()
Call RarX("C:\Program Files\WinRAR\WinRAR.exe", CurrentProject.Path & "\訂單VArGAU.zip", CurrentProject.Path & "\備份\*.csv", "VArGAU")
End Sub
換句話說(shuō)，即使存在“備份”文件夾，也不會(huì)放在“備份”文件夾中。還能改么？

這是我的小號(hào)

我知道了。

1. Public Function RarX(ByVal RAR As String, ByVal RARname As String, ByVal fldname As String, Optional password As String)
   
2.     '功能:解壓文件
   
3.     '參數(shù):RAR --RAR地址
   
4.     '     RARname---壓縮文件名（含路徑）
   
5.     '     fldname---解壓的文件夾名（含路徑）
   
6.     '示例:RarX "C:\Program Files\WinRAR\WinRAR.exe",CurrentProject.Path & "\備份\后臺(tái)備份.rar",CurrentProject.Path & "\備份\*.mdb","123"
   
7.     Dim cmd As String
   
8.     If Nz(password, "") = "" Then
   
9.         cmd = " x "
   
10.     Else
    
11. '加個(gè)-o才可以把文件解壓到指定文件夾。否則默認(rèn)解壓到“我的文檔”
    
12.         cmd = " x -o -p{0} "
    
13.         cmd = ReplaceValues(cmd, password)
    
14.     End If
    
15.     Call Shell(RAR & cmd & """" & RARname & """ *.* """ & fldname & """", vbNormalFocus)
    
16. End Function

復(fù)制代碼

todaynew

這是我的小號(hào) 發(fā)表于 2015-5-22 13:51
我知道了。

cpxie

學(xué)習(xí)啦

purplerose

todaynew  代碼寫(xiě)得好，就是描述有點(diǎn){:soso_e112:}，不過(guò)還是謝謝了！

李力軍2

這個(gè)用得到,頂一個(gè)

owen2016

已經(jīng)下載學(xué)習(xí)，謝謝

access新新新手

謝謝