Simulare la funzione Replace di VB6 con Visual Basic 5

• Howto

La funzione Replace di Visual Basic 6.0 consente di sostituire qualunque occorrenza contenuta in una stringa di caratteri con un’altra stringa. La funzione è presente anche in VBScript ed è quindi utilizzabile in qualsiasi pagina ASP.

Chi usa Visual Basic 5 come può “simulare” la funzione Replace, introdotta con VB6, senza perdersi nei meandri delle istruzioni instr, mid, len e così via?

Ecco una funzione che chi possiede VB5 può usare con soddisfazione:

Public Function Replace(ByVal Expression As String, ByVal FindString As String, ByVal ReplaceString As String, _
Optional ByVal Start As Long = 1, Optional ByVal ReplaceCount As Long = -1, _
Optional ByVal Compare As VbCompareMethod = vbBinaryCompare) As String
'===================
' REPLACE FUNCTION
' Expression String to be searched.
' FindString String being sought.
' ReplaceString Replacement substring.
' Start Optional. Position within expression where substring
' search is to begin. If omitted, 1 is assumed.
' ReplaceCount Optional. Number of substring substitutions to perform.
' If omitted, the default value is –1, which means make
' all possible substitutions.
' Compare Optional. Numeric value indicating the kind of comparison
' to use when evaluating substrings. See Settings section
' for values.
'===================
Dim FindLen As Long ' length of search string
Dim pos As Long ' position where search string located
Dim nCount As Long ' # of replacements

End Function

Invocando la funzione Replace nel modo seguente:

stringa = Replace(stringa, stringa_da_cercare, stringa_da_usare_per_la_sostituzione)

farete in modo che ogni occorrenza della stringa stringa_da_cercare contenuta in stringa venga sosituita da stringa_da_usare_per_la_sostituzione.