壓縮Html
br>不知各位用過Slim Girl了沒有，它是專門用來壓縮那些Html超文本文件和腳本文件的軟件。據說 它的壓縮率達到了15%以上，我試了一下，有的文件（大的）壓縮率居然達到了50%。我拿壓縮出來的文件和原文件對比了一下，嘿，好象只是簡單地把空格，回車符和換行符去掉而矣。看來這個軟件也沒什么，我用VB就能做一個。不信？各位請看：
首先運行VB，新建一個標準EXE工程，在窗件上添加一個Text控件，兩個CommandButton控件和一個CommonDialog控件（文件對話框控件），再將Text1控件的MultiLine屬性設為True，ScrollBars屬性設 為3，其它的屬性采用默認的就可以了，然后打開代碼窗口加入下面的代碼：
Option Explicit
Private Sub Form_Load()
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Command2_Click()
End Sub
代碼寫完了，按F5運行試一下，打開一個Htm文件（28K，用Dreamwe r做的），另存為另一個文件，看一 看，哈哈，只有13K。
要下載原代碼,請點擊這里
首先運行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。
要下載原代碼,請點擊這里