VB5不支持Replace函数吗？

Question

怎么我在VB6下运行的好好的程序，到Vb5下就提示函数未定义啊？如果VB5没有提供这个函数，哪位兄弟那里有自己写的相应功能的函数啊？

Answer 1

同意 hdhai9451(※★開拓者...前進☆※)
VB5可能有问题!
重新安装VB5(有必要非要用VB5吗?直接安装VB6?)

Answer 2

我记的vb5是没有这个函数的。如果可能还是用vb6吧，vb5年代都很久远了呵呵

Answer 3

我记得Instr函数在VB5里是有的，
找到位置，再用left、right函数截取，用&连接到新字符串，知道找不到为止

Answer 4

果然：
NOTE: Microsoft Visual Basic 6.0 and later products and Microsoft Office 98 and later products come with a Replace function built-in Public Function VB5Replace（Byval MyString As String _
                            Byval ToFind As String, _
                            Byval ReplaceTo As String) As String
   Dim tmp As String
   Dim n As Integer
   Dim L As Integer   tmp = MyString
   n = InStr(1, tmp, ToFind)
   L = Len(ToFind)
   Do While n
      tmp = Lef(tmp, n - 1) & ReplaceTo & Mid(tmp, n + L)
      n = InStr(n, tmp, ToFind)
   Loop   VB5Replace = tmp
End Function