Ottimo! Grazie Paolo.
Francesca Chiarelli
-------------------------
Paolo Mantovani ha scritto in data 14/06/2012 11.33:
Il 14/06/2012 10:22, Francesca Chiarelli ha scritto:
Esiste una qualche estensione per CALC che mi aggiunge una funzione che
mi rovesci i testi?
Cioè che mi converta per esempio "AMOR" in "ROMA"?
Sto cercando ma non trovo... :-(
Non c'è un extension che io sappia.
Io di solito uso questa funzione StarBasic per illustrare le funzioni
personalizzate nei corsi.
ciao
Paolo M
------8<------------8<------
REM ***** BASIC *****
'dichiarazione delle variabili obbligatoria
Option Explicit
Function ReverseString(StringToReverse As String) As String
'dichiarazione variabili locali
Dim sTemp As String
Dim iLen As Integer
Dim iPos As Integer
'ricava la lunghezza della stringa da invertire
iLen = Len(StringToReverse)
'se la lunghezza è maggiore di 0 allora procediamo
'con il ciclo per invertire la stringa
If iLen > 0 Then
For iPos = 1 To iLen
'ricava un carattere nella posizione iPos
stemp = Mid( StringToReverse, iPos, 1) & sTemp
Next iPos
End If
'esce dalla funzione con il risultato sTemp
ReverseString = sTemp
End Function
---------------------------------------------------------------------
Per cancellarsi: [email protected]
Per informazioni: http://www.openoffice.org/it/
Per avviare una nuova discussione: [email protected]
Archivi: http://mail-archives.apache.org/mod_mbox/incubator-ooo-utenti-it
---------------------------------------------------------------------
Per cancellarsi: [email protected]
Per informazioni: http://www.openoffice.org/it/
Per avviare una nuova discussione: [email protected]
Archivi: http://mail-archives.apache.org/mod_mbox/incubator-ooo-utenti-it
