3

在 Ubuntu 12.04 上使用 Libreoffice 3.5.7.2。

我在计算单元格中有以下形式的文本：(IBM) Ibm Corporation。

我正在尝试使用正则表达式来提取（）之间使用基本宏的文本。这是我到目前为止所尝试的。

Sub getMktValue()
  Dim oDoc as Object
  Dim oSheet as Object
  Dim oCell as Object

  oDoc = ThisComponent
  oSheet = oDoc.Sheets.getByName("Income")
  'regex test code'
  oCell = oSheet.getCellByPosition(0, 1)
  stk = oCell.String()  
  myRegex = oCell.createSearchDescriptor
  myRegex.SearchRegularExpression = True
  myRegex.SearchString = "\((.*)\)"  '"[\([A-Z]\)]" "\(([^)]*)\)" "\(([^)]+)\)"'
  found = oCell.FindFirst(myRegex)
  MsgBox found.String
End Sub

myRegex.SearchString 行包含我尝试过的各种版本。结果总是一样的。返回单元格的全部内容，而不仅仅是 () 之间的文本。有没有办法只提取（）之间的文本？

谢谢，吉姆

4

1 回答 1

4

您尝试的方法.FindFirst，在XSearchable（例如电子表格或范围）中找到SearchString.

如果要在字符串值内搜索，则需要不同的服务，com.sun.star.util.TextSearch.

Sub getMktValue()
  Dim oDoc as Object
  Dim oSheet as Object
  Dim oCell as Object

  oDoc = ThisComponent
  oSheet = oDoc.Sheets.getByName("Income")
  'regex test code'
  oCell = oSheet.getCellByPosition(0, 1)
  stk = oCell.getString() 

  oTextSearch = CreateUnoService("com.sun.star.util.TextSearch")
  oOptions = CreateUnoStruct("com.sun.star.util.SearchOptions")
  oOptions.algorithmType = com.sun.star.util.SearchAlgorithms.REGEXP
  oOptions.searchString = "\((.*)\)"
  oTextSearch.setOptions(oOptions)
  oFound = oTextSearch.searchForward(stk, 0, Len(stk))
  sFound = mid(stk, oFound.startOffset(0) + 1, oFound.endOffset(0) - oFound.startOffset(0))
  MsgBox sFound
  sFound = mid(stk, oFound.startOffset(1) + 1, oFound.endOffset(1) - oFound.startOffset(1))
  MsgBox sFound
End Sub

问候

阿克塞尔

于 2014-09-02T16:49:59.467 回答