在vb6(TrimChar)中删除字符串右侧和左侧的某些字符

Question

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

"........ I.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()调用.