实用小程序(7)：简易的HTML文件压缩工具
软件世界
不知各位用过HTMLZip这款软件没有，它是一款HTML网页文件压缩软件，用它可以压缩HTML文件20%到70%， 大大减小了文件尺寸，便于收藏和在网络上传送。其实用VB就能做一个小工具来压缩网页。原理也很简单，就是把HTML源码中的多余的空格去掉，不信的话？各位请看：
首先，启动VB，选择标准EXE创建一个新工程，依次选择“项目/部件”，然后添加Microsoft Commandialog Control(comdlg32.ocx)，控件即出现在“工具箱”中，在窗体上添加一个CommonDialog控件，名称为CommonDialog1。再在窗体上添加一个Text控件(名称为Text1)和两个CommandButton控件(名称分别为CmdOpen和CmdSave)。将Text1控件的MultiLine属性设为True，ScrollBars属性设为3，其他的属性采用默认的就可以了，然后打开代码窗口加入下面的代码：
Option Explicit
Private Sub Form＿Load()
CommonDialog1.CancelError = True
CommonDialog1.Filter = "网页｜*.htm；*.html"
CmdOpen.Caption = "打开"
CmdSave.Caption = "保存"
End Sub
'打开文件
Private Sub CmdOpen＿Click()
On Error Resume Next
Dim TextLine As String
CommonDialog1.ShowOpen
If Err ＜＞ 32755 Then
Text1.Text = ""
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1， TextLine
'去掉左边和右边的空格，再换行
Text1.Text = Text1.Text & Trim(TextLine) & vbCrLf
Loop
Close #1
End If
End Sub
'保存文件
Private Sub CmdSave＿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键运行试一下，打开一个HTML文件(20KB，用FrontPage2000做的)，另存为另一个文件，看一看，只有12KB了，很有用吧！
本程序是在VB6.0企业版和WinXP上调试通过。