Mi riferisco a una discussione privata con Hans Lehmann autore principale di Gambas Book e a questa discussione:
https://lists.gambas-basic.org/pipermail/user/2018-October/065687.html
Allego un progettino che dimostra come assegnare in modo dinamico una libreria ad un progetto Gambas, vale a dire senza doverlo fare dalla finestra progetto.
Questo invece è il codice interno alla libreria nel modulo Mat:
Export
Public Function ReturnAddString(value As String[]) As String
' Ritorna la somma dei numeri 'stringa' come una stringa formattata currency
Dim sCurr As String
Dim iCurr As Long
For i As Integer = 0 To value.Max
sCurr = ReturnStringInteger(value[i])
iCurr += CLong(sCurr)
Next
Return Format((iCurr / 100), "$,0.00")
End
Private Function ReturnStringInteger(value As String) As String
' Ritorna una stringa in forma di numero intero
value = Trim(Replace(value, "€", ""))
value = Replace(value, ".", "")
value = Replace(value, " ", "")
value = Replace(value, ",", "")
Return value
End
:ciao:
Osservando in modalità "passo-passo", l'errore si scatena qui:
sLocalPath = User.Home &/ ".local/share/gambas3/lib"
If Not Exist(sLocalPath) Then Try Mkdir sLocalPath
If Error Then
Message.Error(sMessage)
Return
Endif