v3.2.4

Author: ws-garcia

src/LO Basic/VBAExpressionsLib/TestVBAExpr.xba

@@ -332,7 +332,11 @@ Sub RunAllTests
 			"C = {{-1;13};{6;15}}" _
 		)
 	VarOverload("Variables overloading: indirect assignment")
-	
+	Run( _
+			"Excel BETA.DIST function test", _
+			"ROUND(IBETA((2-1)/(3-1);8;10);4)", _
+			"0.6855" _
+		)
 	SF_Exception.debugprint("Passed tests:",sAcum)	
 	SF_Exception.debugprint("Failed tests:",tTotal - sAcum)	
 	SF_Exception.debugprint("Passed tests Ratio:",Round(100*sAcum/tTotal,2) &"%")
@@ -445,4 +449,10 @@ TestFail:
     SF_Exception.debugprint("Test " & testName & " raised an error: #" & err.Number & " - " & err.Description)
     Resume TestExit			
 End Sub
+sub tesover
+	'msgbox ("a{2}" Like "[A-Zaz]*{*}")
+	SF_Exception.consoleClear()
+	call VarOverload("Variables overloading: indirect assignment")
+	SF_Exception.console()
+end sub
 </script:module>

src/LO Basic/VBAExpressionsLib/VBAexpressions.xba

@@ -341,8 +341,8 @@ Private Sub Class_Initialize()
     InitCBbuffer UserDefFunctions
     '@--------------------------------------------------------------------
     ' Populate linked index constructor
-    LIndexConstruc(0) = d_lCurly
-    LIndexConstruc(2) = d_rCurly
+    LIndexConstruc(0) = d_lSquareB
+    LIndexConstruc(2) = d_rSquareB
     '@--------------------------------------------------------------------
     ' Populate building UDFs
     Dim UDFnames() As Variant
@@ -4019,8 +4019,11 @@ Private Function GetFunctionName(ByRef expression As String) As String
         If GFNbool Then
             GetFunctionName = UserDefFunctions.Storage(i).aName
         Else
-            If expression Like "[A-Zaz]*{*}" Then 'Not defined function bypass
-                tmpPos = strVBA.InStrB(1, expression, d_lCurly)
+        	ExpCopy = Replace(Replace( _
+        						expression,d_lSquareB,d_lCurly,1), _
+        						d_rSquareB,d_rCurly,1) 'Bypass LO Basic LIKE OP limitation 
+            If (ExpCopy Like "[A-Zaz]*{*}") Then 'Not defined function bypass
+                tmpPos = strVBA.InStrB(1, expression, d_lSquareB)
                 GetFunctionName = strVBA.MidB(expression, 1, tmpPos - 1)
             End If
         End If
@@ -4031,9 +4034,9 @@ Private Function GetIndex(ByRef SubstStr As String) As Long
     Dim InitPos As Long
     Dim EndPos As Long
 
-    InitPos = strVBA.InStrB(1, SubstStr, d_lCurly)
+    InitPos = strVBA.InStrB(1, SubstStr, d_lSquareB)
     If InitPos Then
-        EndPos = strVBA.InStrB(1, SubstStr, d_rCurly)
+        EndPos = strVBA.InStrB(1, SubstStr, d_rSquareB)
         If EndPos Then
             GetIndex = strVBA.MidB(SubstStr, InitPos + 2, EndPos - InitPos - 2)
         Else
@@ -4563,7 +4566,7 @@ End Function
 
 ''' <summary>
 '''     Returns an array with all the sub expressions needed to
-'''     evaluate the given expression. A string such as {0}
+'''     evaluate the given expression. A string such as [0]
 '''     indicates that the current token should be evaluated using
 '''     the value or token residing at index 0 using functions
 '''     and arithmetic operators.