我正在使用VBA读取一些标题,然后将该信息复制到PowerPoint演示文稿中。
我的问题是,标题有特殊字符,但是我也要处理的图像文件却没有。
TITLE构成将JPEG加载到图片容器的路径的一部分。例如“ P k.jpg”,但标题称为“ pk”。
我希望能够忽略TITLE中的特殊字符,而只是让它看到一个空格,以便它拾取正确的JPG文件。
那可能吗?
谢谢!
您如何看待“特殊”字符,只是简单的标点符号?您应该能够使用以下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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句