用VB壓縮Html

 　　不知各位用過Slim Girl了沒有，它是專門用來壓縮那些Html超文本文件和腳本文件的軟件。據說 它的壓縮率達到了15%以上，我試了一下，有的文件(大的)壓縮率居然達到了50%。我拿壓縮出來的文件和原文件對比了一下，嘿，好象只是簡單地把空格，回車符和換行符去掉而矣。看來這個軟件也沒什麼，我用VB就能做一個。不信?各位請看：

　　首先運行VB，新建一個標准EXE工程，在窗件上添加一個Text控件，兩個CommandButton控件和一個CommonDialog控件(文件對話框控件)，再將Text1控件的MultiLine屬性設為True，ScrollBars屬性設 為3，其它的屬性采用默認的就可以了，然後打開代碼窗口加入下面的代碼：

　　Option Explicit

　　Private Sub Form_Load()

　　CommonDialog1.CancelError = True

　　CommonDialog1.Filter = "網頁|*.htm;*.html"

　　Command1.Caption = "打開"

　　Command2.Caption = "保存"

　　End Sub

　　Private Sub Command1_Click()

　　On Error Resume Next

　　Dim TextLine As String

　　CommonDialog1.ShowOpen

　　If Err <> 32755 Then

　　Text1 = ""

　　'打開文件

　　Open CommonDialog1.filename For Input As #1

　　Do While Not EOF(1)

　　Line Input #1, TextLine

　　'去掉左邊和右邊的空格，再換行

　　Text1 = Text1 & Trim(TextLine) & vbCrLf

　　'若上面這句換成：

　　'　　Text1 = Text1 & Trim(TextLine)

　　'即去掉空格但不換行，這樣，壓縮率更大，但是它的可讀性就差多了

　　Loop Close #1

　　End If

　　End Sub

　　Private Sub Command2_Click()

　　On Error Resume Next

　　CommonDialog1.ShowSave

　　If Err <> 32755 Then

　　'保存文件

　　Open CommonDialog1.filename For Output As #1

　　Print #1, Text1

　　Close #1

　　End If

　　End Sub

　　代碼寫完了，按F5運行試一下，打開一個Htm文件(28K，用Dreamwe r做的)，另存為另一個文件，看一 看，哈哈，只有13K。