Replace

La funzione Replace consente di sostituire uno o più caratteri, che ricorrono in una stringa, con altri, e ne restituisce il risultato.

La sintassi é:

stringa_modificata = Replace(Stringa As String, carattere/i_da_sostituire As String, caratteri_di_rimpiazzo As String [, comparazione] ) As String

Il parametro Comparazione può essere uno dei seguenti valori:

• gb.Binary per una comparazione binaria (predefinita);
• gb.Text o gb.Case per una comparazione non sensibile alle maiuscole/minuscole.

Esempio:

Public Sub Button1_Click()

 Dim s1 As String
 Dim s2 As String

  s1 = "La funzione Replace consente di sostituire uno o più caratteri"

' Sostituiamo tutti gli spazi presenti all'interno della stringa con nessun carattere:
  s2 = Replace(s1, " ", "")

  Print s2

End

In console avremo il seguente risultato:

LafunzioneReplaceconsentedisostituireunoopiùcaratteri