- introdotte StringToDoubleAdv e StringToLenAdv per evitare valutazione espressioni quando non necessaria ed evitare problemi in multithread

Utility/StringConversion.vb

@@ -17,6 +17,14 @@ Public Module StringConversion
       Return EgtLuaEvalNumExpr(sVal, dVal)
    End Function
 
+   Public Function StringToDoubleAdv(ByVal sVal As String, ByRef dVal As Double, Optional bEval As Boolean = False) As Boolean
+      If bEval Then
+         Return EgtLuaEvalNumExpr(sVal, dVal)
+      Else
+         Return Double.TryParse(sVal, NumberStyles.Float, CultureInfo.InvariantCulture.NumberFormat, dVal)
+      End If
+   End Function
+
    Public Function StringToInt(sVal As String, ByRef nVal As Integer) As Boolean
       Dim dVal As Double = 0
       If Not StringToDouble(sVal, dVal) Then Return False
@@ -37,4 +45,22 @@ Public Module StringConversion
       End If
    End Function
 
+   Public Function StringToLenAdv(ByVal sVal As String, ByRef dVal As Double, Optional bEval As Boolean = False) As Boolean
+      If bEval Then
+         If EgtLuaEvalNumExpr(sVal, dVal) Then
+            dVal = EgtFromUiUnits(dVal)
+            Return True
+         Else
+            Return False
+         End If
+      Else
+         If Double.TryParse(sVal, NumberStyles.Float, CultureInfo.InvariantCulture.NumberFormat, dVal) Then
+            dVal = EgtFromUiUnits(dVal)
+            Return True
+         Else
+            Return False
+         End If
+      End If
+   End Function
+
 End Module