文字取代

Dim find(1) As String '尋找被取代的文字

find(0) = "@juoku.com.tw"

find(1) = "_"

Dim reple(1) As String '取代的文字

reple(0) = "/Tainan/tw"

reple(1) = " "

auth = Replace(來源, find, reple)

範例

Function repleName(usern As String) As String

Dim find(2) As String '尋找被取代的文字

find(0) = "CN="

find(1) = "O="

find(2) = "C="

Dim reple(2) As String '取代的文字

reple(0) = ""

reple(1) = ""

reple(2) = ""

repleName = Replace(usern, find, reple)

End Function