vba - 从变量中删除 "Enter"时遇到问题

Question

因此，我当前运行的代码将从 ppt 幻灯片中提取字符串，其中一些字符串可能带有空格或输入/换行符。下面的代码是我所拥有的，它可以很好地删除空格，但它不适用于 Enters/换行符。

pptText = Shpe.TextFrame.TextRange
pptText = LCase(Replace(pptText," ",""))
pptText = Replace(pptText,vbNewLine,"")

当有这样的文本输入时:

iq_42，iq_26，
iq_72

在调试器中，变量 pptText 将如下所示:

pptText = iq_42, iq_26,iq_72

但是该变量中保存了一个字符，调试器没有显示该字符，这与我的程序的其余部分相混淆。

我尝试过“修剪和替换”，并且尝试使用 vbNewLine/vbCrLf/vbCr/vbLf 来识别 Enter/换行符，但没有成功。

关于如何删除所有“enter”痕迹有什么想法吗？

Answer 1

你可以试试这个:

编辑

正如 @Kostas K 的明智建议，这是函数版本

Function RemoveEnter(ByVal YourString As String) As String
    RemoveEnter = Replace(Replace(Replace(YourString, vbCrLf, ""), vbCr, ""), vbLf, "")
End Function