[libreoffice-users] Need help with regex in a calc macro

I have some cells that contain data like: (IBM) Ibm corporation.

I need to extract the stock symbol ie IBM.  I thought I could use regex 
to get (IBM) and then strip the parens. So far I have been uable to do 
so.  Usually I can search and find examples of code I can study and 
modify to suit my needs, but regex examples for calc seem to be few and 
far between.

I wonder if someone could point me to some good calc regex examples or 
take a look at the test code below that I have been experimenting with 
and tell me what I am doing wrong.

Sub getMktValue()
  'Main sub
  Dim oDoc as Object
  Dim oSheet as Object
  Dim oCalcCtrl as Object
  Dim oCell as Object
  Dim oCursor as Object
  Dim oRange as Object
  Dim myRegex as Object
  Dim found as Object
  Dim cellLoc as Object

  oDoc = ThisComponent
  'oSheet = ThisComponent.Sheets.getByName("Income")
  oSheet = oDoc.Sheets.getByName("Income")
  oRange = oSheet.getCellRangeByName("Stocks")
  numRows = oRange.Rows.getCount()

  'regex test code
  cellLoc = oSheet.getCellByPosition(0, 1)
  stk = cellLoc.String()
  myRegex =cellLoc.createSearchDescriptor()
  myRegex.SearchString = "\([A-Z]\)"
  myRegex.SearchRegularExpression = True
  found = cellLoc.findFirst(myRegex)


  'MsgBox found

End Sub

This code as is runs with out error, but if I uncomment MsgBox found I 
get a "object variable not set" error.

Thanks,  Jim


--
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted