11670.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 24 行

HTML
24 行
字号 
<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>

11670.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 11670.html 源码文件，采用 HTML 编程语言编写，共 24 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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