qqexp045.html

来自「包含大量VB常用函数 大概一百几十个左右 每个函数都有比较详细的说明 希望大家喜」· HTML 代码 · 共 62 行

HTML
62 行
字号 
<html>

<head>
<title>千千VB站 VB函数清单</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body>

<marquee><blink><b>数组筛选</b></blink></marquee>
<hr>
●Filter是VB6新提供的函数，VB5的使用者无法试验。
<p>●用法：传回数组 = Filter(原始数组, 筛选条件, 
传回符合条件资料或传回不符合条件资料, 筛选方式)<br>
●Filter的功用在于帮你快速筛选数组内的资料，再以数组的方式传回。
<dl>
  Private Sub Command1_Click()
  <dd>Dim MyStr(5) As String
  <dd>MyStr(0) = &quot;Abcdefgh&quot;
  <dd>MyStr(1) = &quot;千千VB站&quot;
  <dd>MyStr(2) = &quot;ａＢCDeF&quot;
  <dd>MyStr(3) = &quot;123&amp;*678Abcd123&quot;
  <dd>MyStr(4) = &quot;Xyz-0001-Z0C&quot;
  <dd>MyRslt = Filter(MyStr, &quot;abc&quot;, True, VBTextCompare)
    <dl>
      For Each Prt In MyRslt
      <dd>Print Prt
    </dl>
    Next
</dl>
End Sub<br>
●结果Prt打出：&quot;Abcdefgh&quot;、&quot;ａＢCDeF&quot;、&quot;123&amp;*678Abcd123&quot;<br>
○也就是说MyRslt(0)=&quot;Abcdefgh&quot;、MyRslt(1)=&quot;ａＢCDeF&quot;、MyRslt(2)=&quot;123&amp;*678Abcd123&quot;
<p>　
<dl>
  Private Sub Command1_Click()
  <dd>Dim MyStr(5) As String
  <dd>MyStr(0) = &quot;Abcdefgh&quot;
  <dd>MyStr(1) = &quot;千千VB站&quot;
  <dd>MyStr(2) = &quot;ａＢCDeF&quot;
  <dd>MyStr(3) = &quot;123&amp;*678Abcd123&quot;
  <dd>MyStr(4) = &quot;Xyz-0001-Z0C&quot;
  <dd>MyRslt = Filter(MyStr, &quot;abc&quot;, False, VBTextCompare)
    <dl>
      For Each Prt In MyRslt
      <dd>Print Prt
    </dl>
    Next
</dl>
End Sub<br>
●结果Prt打出：&quot;千千VB站&quot;、&quot;Xyz-0001-Z0C&quot;<br>
<p>　

</body>

</html>

 
</SCRIPT>

qqexp045.html - 源码说明

本页面展示了「包含大量VB常用函数 大概一百几十个左右 每个函数都有比较详细的说明 希望大家喜欢它啦」中的 qqexp045.html 源码文件，采用 HTML 编程语言编写，共 62 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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