qqexp050.html
来自「包含大量VB常用函数 大概一百几十个左右 每个函数都有比较详细的说明 希望大家喜」· HTML 代码 · 共 61 行
HTML
61 行
<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>
●VB6提供了许多的好用字串处理函数,使得千千VB站的自制函数单元已经如同虚设了。
<p>●用法:传回数组 = Split(原始字串, 要找的字串,
拆成几个数组)
<dl>
Private Sub Command1_Click()
<dd>Dim MyStr As String
<dd>MyStr = "1234567123456712345"
<dd>MyStrs = Split(MyStr, "67")
<dl>
For Each Strs In MyStrs
<dd>Print Strs
</dl>
Next
</dl>
End Sub<br>
●输出结果:"12345"、"12345"、"12345"
<p>
<dl>
Private Sub Command1_Click()
<dd>Dim MyStr As String
<dd>MyStr = "1234567123456712345"
<dd>MyStrs = Split(MyStr, "67", 2)
<dl>
For Each Strs In MyStrs
<dd>Print Strs
</dl>
Next
</dl>
End Sub<br>
●输出结果:"12345"、"123456712345"
<p>
<dl>
Private Sub Command1_Click()
<dd>Dim MyStr As String
<dd>MyStr = "1234567890123456789012345678901234567890"
<dd>Print Replace(MyStr, "90", "九零", 11, 2)
</dl>
End Sub<br>
●输出结果:"123456789012345678九零12345678九零1234567890"
<p>
</body>
</html>
</SCRIPT>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?