vb6中删除字符串左右两侧的某些字符（TrimChar）

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

“……我想只删除此文本之外的点…………”

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

“我只想删除此文本之外的点”

但我找不到办法完成这项工作。

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

Result:

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

这远未优化，但您可以对其进行扩展以计算出最终位置，然后执行一个Mid() call.