Question

如何在Openoffice宏中使用正则表达式搜索和替换文本？

我正在尝试

oDoc = ThisComponent

Public Function findReplace(oDoc As Object, findStr As String, replaceStr As String) As Integer 
   oSearch = oDoc.createSearchDescriptor
   oSearch.searchAll = False
   oSearch.SearchString = findStr
   oSearch.ReplaceString = replaceStr
   oDoc.replaceAll(oSearch)
End Function


findReplace(oDoc, ".
", "    ")

我提出这个问题是因为我需要找到“。\ n”（点划线）并替换为其他字符。在上面的代码中，我获得了语法错误。

我也在尝试

findReplace(oDoc, "."+chr(13), "    ")

但这不起作用

Answer 1

要使用正则表达式，请执行以下操作：

oSearch.SearchRegularExpression = True

搜索换行符是一种特殊情况，因为换行符是匹配的结尾，而不是匹配的一部分。对于分段符，请匹配\.$。对于换行符，请使用\.\n。

查看以下链接：

使用正则表达式搜索和替换Openoffice宏

1 个答案: