19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
ExportPublic 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")EndPrivate 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 valueEnd
Lanciando il programma, appare una finestra con il messaggio di errore: "Unable to proceed".
sLocalPath = User.Home &/ ".local/share/gambas3/lib"If Not Exist(sLocalPath) Then Try Mkdir sLocalPath If Error Then Message.Error(sMessage) Return Endif
Osservando in modalità "passo-passo", l'errore si scatena qui:Codice: [Seleziona]If Not Exist(sLocalPath) Then Try Mkdir sLocalPath If Error Then Message.Error(sMessage) Return Endif
If Not Exist(sLocalPath) Then Try Mkdir sLocalPath If Error Then Message.Error(sMessage) Return Endif
Ad ogni modo io non ho la cartella "/gambas3" nel percorso "..../.local/share/"
Ho aggiornato il codice
Citazione da: Gianluigi - 13 Luglio 2020, 17:33:40Ho aggiornato il codiceOra funziona.Potresti creare un apposito paragrafo all'interno di questa pagina ? https://www.gambas-it.org/wiki/index.php?title=Importare_ed_utilizzare_librerie_.gambas
Ovviamente quando si perde tempo in altri progetti, anziché concentrarsi sula Macchina del Tempo !
Ma per bere una birra hai bisogno della macchina del tempo
Potresti creare un apposito paragrafo all'interno di questa pagina ? https://www.gambas-it.org/wiki/index.php?title=Importare_ed_utilizzare_librerie_.gambas