📄 16330.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:honey0@tcts1.seed.net.tw">Honey</a> on July 28, 1999 at 21:27:30:<p>
In Reply to: <a href="16322.html">Re: 要如何比对阿!!!</a> posted by 小琳 on July 28, 1999 at 21:04:31:<p>
从来没碰过资料库<br>我想为了效能 资料库应该是用随机档吧<br>应该没错吧<br>若栏位量并没有很大 可以用你的这种方式 ~用自订型态 <br>但这个资料大小量不能大于64k<p>Option Explicit<br>Private Type Score<br>TR(1 To 5) As String * 2'/*共10个位元组*/<br>End Type<br>Dim rec As Score, I As Byte, J As Byte, s As Long<p>Private Sub Command1_Click()<br>Open "c:\WW.TXT" For Random As #1 Len = 10'/*每笔资料10个位元组*/<br>    For I = 1 To 100'/*到100笔资料*/<br>        Get #1, I, rec<br>        For J = 1 To 5'/*共5个栏位*/<br>            If rec.TR(J) = "AA" Then s = s + 1<br>        Next<br>    Next<br>Close #1<p>Me.Caption = s<br>End Sub<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 16330-->
</ul><!--end: 16330-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -