You are viewing a plain text version of this content. The canonical link for it is here.
Posted to utenti-it@openoffice.apache.org by Francesca Chiarelli <fr...@tiscali.it> on 2012/06/14 10:22:13 UTC
[utenti] funzione "rovescia"
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... :-(
--
Francesca Chiarelli
-------------------------
---------------------------------------------------------------------
Per cancellarsi: ooo-utenti-it-unsubscribe@incubator.apache.org
Per informazioni: http://www.openoffice.org/it/
Per avviare una nuova discussione: ooo-utenti-it@incubator.apache.org
Archivi: http://mail-archives.apache.org/mod_mbox/incubator-ooo-utenti-it
Re: [utenti] funzione "rovescia"
Posted by Francesca Chiarelli <fr...@tiscali.it>.
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: ooo-utenti-it-unsubscribe@incubator.apache.org
> Per informazioni: http://www.openoffice.org/it/
> Per avviare una nuova discussione: ooo-utenti-it@incubator.apache.org
> Archivi: http://mail-archives.apache.org/mod_mbox/incubator-ooo-utenti-it
>
>
>
---------------------------------------------------------------------
Per cancellarsi: ooo-utenti-it-unsubscribe@incubator.apache.org
Per informazioni: http://www.openoffice.org/it/
Per avviare una nuova discussione: ooo-utenti-it@incubator.apache.org
Archivi: http://mail-archives.apache.org/mod_mbox/incubator-ooo-utenti-it
Re: [utenti] funzione "rovescia"
Posted by Paolo Mantovani <p_...@libero.it>.
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: ooo-utenti-it-unsubscribe@incubator.apache.org
Per informazioni: http://www.openoffice.org/it/
Per avviare una nuova discussione: ooo-utenti-it@incubator.apache.org
Archivi: http://mail-archives.apache.org/mod_mbox/incubator-ooo-utenti-it