压缩 Html

2008-04-09 04:40:48来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  不知各位用过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。

  要下载原代码,请点击这里

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:vb更多的语法特性

下一篇:VB程序界面设计经验点滴