vb有没有字符替换函数

Question

Private Sub Form_Load()
    Dim M As String
    M = Replace("123(0)", "(", "[", 1)
    MsgBox Replace(M, ")", "]", 1)
End Sub

Answer 1

shuwork(袋鼠) 
的很对。另外，如果是VB5，没有 replace函数，你可以看看这代码：
功能：把s中的所有szChar全部替换为s1。Private Function ReplaceStr(ByVal s As String, ByVal s1 As String, ByVal szChar As String) As String
    Dim i As Integer
    i = InStr(LCase(s), LCase(szChar))
    If i > 0 Then
        ReplaceStr = Left(s, i - 1) + s1 + Right(s, Len(s) - Len(szChar) - i + 1)
    End If
End Function

Answer 2

replace strA,"(","["
replace strA,")","]"

Answer 3

s$ = Replace("123(0)", "(", "[", 1)
s$= Replace(s$, ")", "]", 1)