vba - 删除特殊字符VBA Excel

Question

我正在使用 VBA 读取一些标题，然后将该信息复制到 PowerPoint 演示文稿中。

问题是标题有特殊字符，但我正在处理的图像文件没有。

标题构成将 JPEG 加载到图片容器的路径的一部分，例如 P k.jpg，但标题称为 p.k。

我希望能够忽略标题中的特殊字符，只让它看到一个空格，这样它就会选择正确的 JPG 文件。

我该怎么做？

Answer 1

您认为什么是“特殊”字符，只是简单的标点符号？您应该能够使用 Replace 函数:Replace("p.k",".","")。

Sub Test()
Dim myString as String
Dim newString as String

myString = "p.k"

newString = replace(myString, ".", " ")

MsgBox newString

End Sub

如果您有多个字符，则可以在自定义函数或简单的一系列Replace 函数链式等中执行此操作。

  Sub Test()
Dim myString as String
Dim newString as String

myString = "!p.k"

newString = Replace(Replace(myString, ".", " "), "!", " ")

'## OR, if it is easier for you to interpret, you can do two sequential statements:
'newString = replace(myString, ".", " ")
'newString = replace(newString, "!", " ")

MsgBox newString

End Sub

如果您有很多潜在的特殊字符(例如非英语重音的 ascii？)，您可以对数组执行自定义函数或迭代。

Const SpecialCharacters As String = "!,@,#,$,%,^,&,*,(,),{,[,],},?"  'modify as needed
Sub test()
Dim myString as String
Dim newString as String
Dim char as Variant
myString = "!p#*@)k{kdfhouef3829J"
newString = myString
For each char in Split(SpecialCharacters, ",")
    newString = Replace(newString, char, " ")
Next
End Sub