⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 11670.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
🔍 
<html>
  <head>
    <title>Re: 给帅帅阿柳或站长等其它高手</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 给帅帅阿柳或站长等其它高手</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:vbpronet@hotmail.com">帅帅阿柳</a> on April 05, 1999 at 00:50:19:<p>
In Reply to: <a href="11668.html">给帅帅阿柳或站长等其它高手</a> posted by Luben on April 05, 1999 at 00:04:16:<p>
如果您指的是Yuan说的"mdb的compact",那么呼叫DBEngine的Compact就成了!要不然如果您要的是将字串或二进位的资料加以压缩的话,您就必须使用Compress/Uncompress的演算法,例如RLE...下例供您参考,但很明显地您就无法使用bound control来撷取资料内容了!<br>希望对您有些帮助<p>阿柳<p><p>public function compress()<p><br>    On Error Resume Next<p><br>    For TT = 1 To Len(Text1)<br>        sana1 = Mid(Text1, TT, 1)<br>        sana2 = Mid(Text1, TT + 1, 1)<br>        sana3 = Mid(Text1, TT + 2, 1)<br>        X = 1<br>        If Not sana1 = sana2 Then l&ouml;yty = 2<p><br>        If sana1 = sana2 Then<p><br>            If sana1 = sana3 Then<br>                l&ouml;yty = 1<br>            End If<p>        End If<p><p>        If l&ouml;yty = 1 Then<br>            alku:<br>            X = X + 1<br>            merkki = Mid(Text1, TT + X + 1, 1)<br>            If merkki = sana1 Then GoTo alku<br>            sana = Chr(255) & Chr(X - 1) & sana1<br>            TT = TT + X<br>        End If<p>        If l&ouml;yty = 2 Then sana = sana1<br>        Text = Text & sana<br>    Next<p>    Text1 = Text<br>end function<p><p>public function uncompress()<p>    On Error Resume Next<p><br>    For TT = 1 To Len(Text1)<br>        sana1 = Asc(Mid(Text1, TT, 1))<br>        sana2 = Asc(Mid(Text1, TT + 1, 1))<br>        sana3 = Asc(Mid(Text1, TT + 2, 1))<br>        sana4 = Asc(Mid(Text1, TT - 1, 1))<p><br>        If sana1 = 255 Then<p><br>            For TT6 = 1 To sana2<br>                sana = sana & Chr(sana3)<br>            Next<p>            sana1 = ""<br>            sana2 = ""<br>        End If<p><p>        If sana = "" Then<p><br>            If Not sana4 = 255 Then<br>                sana = Chr(sana1)<br>            End If<p>        End If<p>        Text = Text & sana<br>        sana = ""<br>    Next<p>    Text1 = Text<br>end function<p>
<br>
<ul><li><a href="http://www.vbpro.net/">VB PRO NET中文资源网</a></ul>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11670-->
</ul><!--end: 11670-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -