📄 qqexp049.html
字号:
<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提供了许多的好用字符串处理函数。
<p>●用法：传回字符串 = Replace(被取代字符串, 要找的字符串,
取代成的字符串, 开始位置, 取代几组)
<dl>
Private Sub Command1_Click()
<dd>Dim MyStr As String
<dd>MyStr = "1234567890123456789012345678901234567890"
<dd>Print Replace(MyStr, "90", "九零")
</dl>
End Sub<br>
●输出结果："12345678九零12345678九零12345678九零12345678九零"
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -