VB6代码解释

Question

我需要将一些当前在 VB6 中的遗留代码转换为 C#。我无法理解这段代码。尤其是 InStr 函数，有人可以帮我解决这个问题，并建议我使用 C# 等效函数。

For i = 1 To Len(sString)
sChar = Mid$(sString, i, 1)
iPos = InStr(1, "0123456789", sChar, vbBinaryCompare)
If iPos > 0 Then
sRetStr = sRetStr & sChar
End If
Next i

Answer 1

InStr 查找一个字符串在另一个字符串中的（基于一的）索引。现代 .Net 字符串方法中最接近的等效项是 .IndexOf。但是，我会用这个 C# 语句替换您的代码。

string sRetStr = (sString.Where((c) => char.IsDigit(c)).ToArray()).ToString();

Answer 2

我将该代码缩减为：

sRetStr = Regex.Replace(sSTring, "[^0-9]", "");

VB6代码解释

VB6 code explanation

vb.net

vb6