string - 替换字符串 vb6 中除数字以外的所有内容

Question

好吧，我做了我的研究，看到了很多关于这个的帖子，但在 VB6 中找不到解决方案 那么如何在 VB6 中执行此操作？

假设我有一个字符串:

“从前有一个 child 想知道离家比1000 英里更远...”

我只想从字符串中分离出此字符串中的数字“1000”，并想替换整个字符串，但数字应该保持不变。

Answer 1

最简单的方法是遍历字符串并将数字复制到一个新的:

Function GetNumbers(Value As String) As String
Dim Index As Long
Dim Final As String

  For Index = 1 To Len(Value)
    If Mid(Value, Index, 1) Like "[0-9]" Then
      Final = Final & Mid(Value, Index, 1)
    End If
  Next

  GetNumbers = Final
End Function

结果:

?GetNumbers("abc12def345")
12345

当有很多数字时，这对于长字符串来说效率很低。