VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 压缩 Html
发表评论(0)作者:符东亮, 平台:VB6.0+Win98, 阅读:13585, 日期:2001-01-05
压缩 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,用Dreamweaver做的),另存为另一个文件,看一 看,哈哈,只有13K。