?? 193.htm
字號:
<p>壓縮 Html</p>
<p></p>
<p> 不知各位用過Slim Girl了沒有,它是專門用來壓縮那些Html超文本文件和腳本文件的軟件。據說 它的壓縮率達到了15%以上,我試了一下,有的文件(大的)壓縮率居然達到了50%。我拿壓縮出來的文件和原文件對比了一下,嘿,好象只是簡單地把空格,回車符和換行符去掉而矣??磥磉@個軟件也沒什么,我用VB就能做一個。不信?各位請看:</p>
<p></p>
<p> 首先運行VB,新建一個標準EXE工程,在窗件上添加一個Text控件,兩個CommandButton控件和一個CommonDialog控件(文件對話框控件),再將Text1控件的MultiLine屬性設為True,ScrollBars屬性設 為3,其它的屬性采用默認的就可以了,然后打開代碼窗口加入下面的代碼: </p>
<p></p>
<p>Option Explicit </p>
<p></p>
<p>Private Sub Form_Load()</p>
<p></p>
<p></p>
<p>CommonDialog1.CancelError = True</p>
<p></p>
<p>CommonDialog1.Filter = "網頁|*.htm;*.html"</p>
<p></p>
<p>Command1.Caption = "打開"</p>
<p></p>
<p>Command2.Caption = "保存"</p>
<p></p>
<p></p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command1_Click()</p>
<p></p>
<p></p>
<p>On Error Resume Next</p>
<p></p>
<p>Dim TextLine As String</p>
<p></p>
<p>CommonDialog1.ShowOpen</p>
<p></p>
<p>If Err <> 32755 Then</p>
<p></p>
<p></p>
<p>Text1 = ""</p>
<p></p>
<p>'打開文件</p>
<p></p>
<p>Open CommonDialog1.filename For Input As #1</p>
<p></p>
<p>Do While Not EOF(1)</p>
<p></p>
<p></p>
<p>Line Input #1, TextLine</p>
<p></p>
<p>'去掉左邊和右邊的空格,再換行</p>
<p></p>
<p>Text1 = Text1 & Trim(TextLine) & vbCrLf</p>
<p></p>
<p>'若上面這句換成:</p>
<p></p>
<p>' Text1 = Text1 & Trim(TextLine)</p>
<p></p>
<p>'即去掉空格但不換行,這樣,壓縮率更大,但是它的可讀性就差多了</p>
<p></p>
<p></p>
<p>Loop Close #1</p>
<p></p>
<p>End If</p>
<p></p>
<p></p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command2_Click()</p>
<p></p>
<p></p>
<p>On Error Resume Next </p>
<p></p>
<p>CommonDialog1.ShowSave</p>
<p></p>
<p>If Err <> 32755 Then</p>
<p></p>
<p>'保存文件</p>
<p></p>
<p>Open CommonDialog1.filename For Output As #1</p>
<p></p>
<p></p>
<p>Print #1, Text1</p>
<p></p>
<p></p>
<p>Close #1</p>
<p></p>
<p>End If</p>
<p></p>
<p></p>
<p>End Sub</p>
<p></p>
<p> 代碼寫完了,按F5運行試一下,打開一個Htm文件(28K,用Dreamweaver做的),另存為另一個文件,看一 看,哈哈,只有13K。</p>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -