压缩视频有什么用,压缩有什么用

孙春娇

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