Problema con Replace in vbScript

[anflam]

Salve ragazzi
data la Stringa di esempio :
La casa di "D'Antonio" è blu

vorrei tramite la funzione replace ottenere come risultato la Stringa:

La casa di \"D\'Antonio\" è blu

Ho provato a fare la seguente funzione ma non va perchè ?

function Controlla_Apice(Stringa)
Controlla_Apice=replace(Stringa,chr(34),"\" & chr(34))
Controlla_Apice=replace(Stringa, "'","\'")
end function


grazie mille

[willybit]

Originariamente inviato da anflam
Salve ragazzi
data la Stringa di esempio :
La casa di "D'Antonio" è blu

vorrei tramite la funzione replace ottenere come risultato la Stringa:

La casa di \"D\'Antonio\" è blu

Ho provato a fare la seguente funzione ma non va perchè ?

function Controlla_Apice(Stringa)
Controlla_Apice=replace(Stringa,chr(34),"\" & chr(34))
Controlla_Apice=replace(Stringa, "'","\'")
end function


grazie mille

come hai fatto tu il primo replace è come se non lo facessi

function Controlla_Apice(Stringa)
  temp=replace(Stringa,chr(34),"\" & chr(34))
  Controlla_Apice=replace(temp, "'","\'")
end function