Differenze tra le versioni di "Funzione simile a String()"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Volendo utilizzare una funzione interna esplicita, da noi scritta, avente risultato identico alla funzione ''String( )'' <SUP>[[[#Note|nota 1]]]</sup> di Gambas, è po...") |
|||
| Riga 1: | Riga 1: | ||
| − | Volendo utilizzare una funzione interna esplicita, da noi scritta, avente risultato identico alla funzione | + | Volendo utilizzare una funzione interna esplicita, da noi scritta, avente risultato identico alla funzione "String()" <SUP>[[[#Note|nota 1]]]</sup> di Gambas, è possibile adottare il seguente codice: |
'''Private''' Function Ripete(volte As Integer, car As String) As String | '''Private''' Function Ripete(volte As Integer, car As String) As String | ||
Dim rit As String | Dim rit As String | ||
| − | + | Repeat | |
| − | + | rit &= car | |
| − | + | Dec volte | |
| − | + | Until volte = 0 | |
| − | + | ||
| − | + | Return rit | |
| − | + | ||
'''End''' | '''End''' | ||
| − | |||
=Note= | =Note= | ||
| − | [1] La Funzione | + | [1] La Funzione "String()", nativa di Gambas" restituisce una stringa contenente tante volte il contenuto di tipo Stringa del suo 2° parametro quante volte specificato nel suo primo parametro di tipo Intero. |
Versione delle 17:50, 11 mag 2023
Volendo utilizzare una funzione interna esplicita, da noi scritta, avente risultato identico alla funzione "String()" [nota 1] di Gambas, è possibile adottare il seguente codice:
Private Function Ripete(volte As Integer, car As String) As String Dim rit As String Repeat rit &= car Dec volte Until volte = 0 Return rit End
Note
[1] La Funzione "String()", nativa di Gambas" restituisce una stringa contenente tante volte il contenuto di tipo Stringa del suo 2° parametro quante volte specificato nel suo primo parametro di tipo Intero.
