OpenOffice.info

Code: Alles auswählen

Option Explicit

Sub x()
   Dim re As Object, mc As Object, i As Integer, j As Integer
   
   Set re = CreateObject("vbscript.regexp")
   re.Pattern = "(\d)\d(\d)"
   re.Global = True
   Set mc = re.Execute("123 + 456 <> 789")
   For i = 0 To mc.Count - 1
      For j = 0 To mc(i).Submatches.Count - 1
         Debug.Print i, j, mc(i).Submatches(j)
      Next
   Next
   Set mc = Nothing
   Set re = Nothing
End Sub

Code: Alles auswählen

   oOLEService = createUnoService("com.sun.star.bridge.oleautomation.Factory")
   re = oOLEService.createInstance("vbscript.regexp")

Code: Alles auswählen

Option Explicit

Sub x()
   Dim oRegExp As Object, oMatchCollection As Object, oMatch As Object, i As Integer, j As Integer
   dim arAny(0) As Any
   
   oRegExp = CreateObject("vbscript.regexp")
   oRegExp.Pattern = "(\d)\d(\d)"
   oRegExp.Global = True
   oMatchCollection = oRegExp.Execute("123 + 456 <> 789")
   For i = 0 To oMatchCollection.Count - 1
   	  arAny(0) = i
   	  oMatch = oMatchCollection.Invoke("Item", arAny, Array(), Array())
   	  for j = 0 to oMatch.SubMatches.Count - 1
   	  	 arAny(0) = j
   	     print oMatch.SubMatches.Invoke("Item", arAny, Array(), Array())	
   	  next
   Next
End Sub

Code: Alles auswählen

Option Explicit

Sub x2()
   Dim oExcel as object, oWorkbook As Object, oSheet As Object, i as integer
   dim arAny(0) As Any
   
   oExcel = CreateObject("Excel.Application")
   oExcel.WorkBooks.Open "e:\test\test.xls"
   ' oWorkbook = oExcel.ActiveWorkbook ginge natürlich auch ;-)
   arAny(0) = "test.xls"
   oWorkbook = oExcel.WorkBooks.Invoke("Item", arAny, Array(), Array())
   for i = 1 to oWorkbook.Sheets.Count
      arAny(0) = i
      oSheet = 	oWorkbook.Sheets.Invoke("Item", arAny, Array(), Array())
      print oSheet.Name
   next
End Sub

Code: Alles auswählen

   oRegExp = CreateObject("vbscript.regexp")

Code: Alles auswählen

   Dim oOleService As Object : oOLEService = createUnoService("com.sun.star.bridge.oleautomation.Factory")
   oRegExp =  oOLEService.createInstance("vbscript.regexp")

Code: Alles auswählen

        oMatch = oMatchCollection.Invoke("Item", arAny, Array(), Array())

Code: Alles auswählen

BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten 
Type: com.sun.star.script.CannotConvertException
Message: [automation bridge]UnoConversionUtilities<T>::anyToVariant 
Cannot convert the value of type :"string"  to the expected Automation type of VARTYPE: 3.

Code: Alles auswählen

import re