string - 在vb6(TrimChar)中从字符串的左右删除某些字符

Question

我想删除一些在字符串中错误使用的某些字符。

“......我.wanna.delete.only.the.dots.outside.of.this.text.......”

如您所见，我不能为此使用替换。我必须找到一种方法来只删除字符串左右两侧的字符，而那些点只是我想删除的字符的一个例子。我有一系列不需要的字符。所以在处理字符串之后应该看起来像

“I.wanna.delete.only.the.dots.outside.of.this.text”

但我找不到获得这项工作的方法。

Answer 1

VB6 有一个 Trim() 函数，但它只删除空格。

要从两端删除字符，您需要依次检查每一端删除字符，直到得到其他内容:

Function TrimChar(ByVal Text As String, ByVal Characters As String) As String
  'Trim the right
  Do While Right(Text, 1) Like "[" & Characters & "]"
    Text = Left(Text, Len(Text) - 1)
  Loop

  'Trim the left
  Do While Left(Text, 1) Like "[" & Characters & "]"
    Text = Mid(Text, 2)
  Loop

  'Return the result
  TrimChar = Text
End Function

结果:

?TrimChar("........I.wanna.delete.only.the.dots.outside.of.this.text...............", ".")
I.wanna.delete.only.the.dots.outside.of.this.text

这远未优化，但您可以对其进行扩展以计算出结束位置，然后执行单个 Mid() 调用。