VBA - Sostituisci
La funzione Sostituisci sostituisce una parte specificata di una stringa con una stringa specifica, un numero di volte specificato.
Sintassi
Replace(string,find,replacewith[,start[,count[,compare]]])
Descrizione dei parametri
String- Un parametro obbligatorio. La stringa di input che deve essere cercata per la sostituzione.
Find- Un parametro obbligatorio. La parte della stringa che verrà sostituita.
Replacewith- Un parametro obbligatorio. La stringa di sostituzione, che verrebbe sostituita con il parametro find.
Start- Un parametro opzionale. Specifica la posizione iniziale da cui la stringa deve essere cercata e sostituita. Il valore predefinito è 1.
Count- Un parametro opzionale. Specifica il numero di volte in cui deve essere eseguita la sostituzione.
Compare- Un parametro opzionale. Specifica il metodo di confronto da utilizzare. Il valore predefinito è 0.
0 = vbBinaryCompare - Esegue un confronto binario
1 = vbTextCompare - Esegue un confronto testuale
Esempio
Private Sub Constant_demo_Click()
Dim var as Variant
var = "This is VBScript Programming"
'VBScript to be replaced by MS VBScript
msgbox("Line 1: " & Replace(var,"VBScript","MS VBScript"))
'VB to be replaced by vb
msgbox("Line 2: " & Replace(var,"VB","vb"))
''is' replaced by ##
msgbox("Line 3: " & Replace(var,"is","##"))
''is' replaced by ## ignores the characters before the first occurence
msgbox("Line 4: " & Replace(var,"is","##",5))
''s' is replaced by ## for the next 2 occurences.
msgbox("Line 5: " & Replace(var,"s","##",1,2))
''r' is replaced by ## for all occurences textual comparison.
msgbox("Line 6: " & Replace(var,"r","##",1,-1,1))
''t' is replaced by ## for all occurences Binary comparison
msgbox("Line 7: " & Replace(var,"t","##",1,-1,0))
End Sub
Quando si esegue la funzione di cui sopra, produce il seguente output.
Line 1: This is MS VBScript Programming
Line 2: This is vbScript Programming
Line 3: Th## ## VBScript Programming
Line 4: ## VBScript Programming
Line 5: Thi## i## VBScript Programming
Line 6: This is VBSc##ipt P##og##amming
Line 7: This is VBScrip## Programming