<p>壓縮 Html</p>
<p></p>
<p>　　不知各位用過(guò)Slim Girl了沒(méi)有，它是專(zhuān)門(mén)用來(lái)壓縮那些Html超文本文件和腳本文件的軟件。據(jù)說(shuō) 它的壓縮率達(dá)到了15%以上，我試了一下，有的文件（大的）壓縮率居然達(dá)到了50%。我拿壓縮出來(lái)的文件和原文件對(duì)比了一下，嘿，好象只是簡(jiǎn)單地把空格，回車(chē)符和換行符去掉而矣。看來(lái)這個(gè)軟件也沒(méi)什么，我用VB就能做一個(gè)。不信？各位請(qǐng)看：</p>
<p></p>
<p>　　首先運(yùn)行VB，新建一個(gè)標(biāo)準(zhǔn)EXE工程，在窗件上添加一個(gè)Text控件，兩個(gè)CommandButton控件和一個(gè)CommonDialog控件（文件對(duì)話(huà)框控件），再將Text1控件的MultiLine屬性設(shè)為T(mén)rue，ScrollBars屬性設(shè) 為3，其它的屬性采用默認(rèn)的就可以了，然后打開(kāi)代碼窗口加入下面的代碼： </p>
<p></p>
<p>Option Explicit </p>
<p></p>
<p>Private Sub Form_Load()</p>
<p></p>
<p></p>
<p>CommonDialog1.CancelError = True</p>
<p></p>
<p>CommonDialog1.Filter = ＂網(wǎng)頁(yè)|*.htm;*.html＂</p>
<p></p>
<p>Command1.Caption = ＂打開(kāi)＂</p>
<p></p>
<p>Command2.Caption = ＂保存＂</p>
<p></p>
<p></p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command1_Click()</p>
<p></p>
<p></p>
<p>On Error Resume Next</p>
<p></p>
<p>Dim TextLine As String</p>
<p></p>
<p>CommonDialog1.ShowOpen</p>
<p></p>
<p>If Err <> 32755 Then</p>
<p></p>
<p></p>
<p>Text1 = ＂＂</p>
<p></p>
<p>＇打開(kāi)文件</p>
<p></p>
<p>Open CommonDialog1.filename For Input As #1</p>
<p></p>
<p>Do While Not EOF(1)</p>
<p></p>
<p></p>
<p>Line Input #1, TextLine</p>
<p></p>
<p>＇去掉左邊和右邊的空格，再換行</p>
<p></p>
<p>Text1 = Text1 & Trim(TextLine) & vbCrLf</p>
<p></p>
<p>＇若上面這句換成：</p>
<p></p>
<p>＇　　Text1 = Text1 & Trim(TextLine)</p>
<p></p>
<p>＇即去掉空格但不換行，這樣，壓縮率更大，但是它的可讀性就差多了</p>
<p></p>
<p></p>
<p>Loop Close #1</p>
<p></p>
<p>End If</p>
<p></p>
<p></p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command2_Click()</p>
<p></p>
<p></p>
<p>On Error Resume Next </p>
<p></p>
<p>CommonDialog1.ShowSave</p>
<p></p>
<p>If Err <> 32755 Then</p>
<p></p>
<p>＇保存文件</p>
<p></p>
<p>Open CommonDialog1.filename For Output As #1</p>
<p></p>
<p></p>
<p>Print #1, Text1</p>
<p></p>
<p></p>
<p>Close #1</p>
<p></p>
<p>End If</p>
<p></p>
<p></p>
<p>End Sub</p>
<p></p>
<p>　　代碼寫(xiě)完了，按F5運(yùn)行試一下，打開(kāi)一個(gè)Htm文件（28K，用Dreamweaver做的），另存為另一個(gè)文件，看一 看，哈哈，只有13K。</p>