asp - asp.net - aspcode.it

COMMUNITY - Login
 Username:
 
 Password:
 
Voglio registrarmi!
Password dimenticata?
 Utenti on-line: 0
 Ospiti on-line: 60247
ASPCode.it - Store

  > > Articoli

Una funzione stringa tuttofare

Data di pubblicazione: 12/02/2002        Voto della community: 4,00 (Votanti: 3)

La funzione Stuff

La funzione che sto per illustrarvi rappresenta il porting in VBScript di un’analoga funzione che (anni e anni fa...) esisteva nel bellissimo linguaggio Clipper x DOS.
Ecco una lista di esempi che illustrano - spero chiaramente - le potenzialitą di questa funzione:

<%
'Inserimento:
'Dice al secondo carattere di cancellare zero caratteri e di inserire ASDF

Response.Write Stuff("qwerty", 2, 0, "ASDF") 'Restituisce "qASDFwerty"

'Sostituzione:
'Dice al terzo carattere di cancellare 4 caratteri e di inserire ASDF

Response.Write Stuff("qwerty", 3, 4, "ASDF") 'Restituisce "qwASDF"

'Cancellazione:
'Dice al secondo carattere di cancellare 2 caratteri e di inserire una stringa nulla

Response.Write Stuff("qwerty", 2, 2, "") 'Restituisce "qrty"

'Sostituzione e Inserimento:
'Dice al secondo carattere di cancellare 2 caratteri e di inserire ASDF

Response.Write Stuff("qwerty", 2, 2, "ASDF") 'Restituisce "qASDFrty"

'Sostituzione e Cancellazione:
'Dice al terzo carattere di cancellare 1 carattere e di inserire ASDF

Response.Write Stuff("qwerty", 3, 1, "ASDF") 'Restituisce "qwASDFrty"

'Sostituzione e Cancellazione del rimanente:
'Dice al terzo carattere di cancellare 99 caratteri e di inserire ASDF

Response.Write Stuff("qwerty", 3, 99, "ASDF") 'Restituisce "qwASDF"
%>

Ed ecco il corpo della funzione:

<%
function Stuff(stringa, iStart, iDel, strInsert)
  ' ARGOMENTI:
  '<stringa> č la stringa di caratteri che deve essere cambiata.
  '<iStart> č il primo carattere nella stringa su cui operare.
  '<iDel> č il numero di caratteri da cancellare.
  '<strInsert> č la stringa di caratteri di sostituzione.

  ' Una sola riga di codice!

  Stuff = LEFT(stringa, iStart - 1) & strInsert & MID(stringa, iStart + iDel)
end function
%>




Utenti connessi: 60247