函数名称：AllReStr函数功能：取代字符串了某一文字函数代码：Function：'这是一个由字符串里取代全部的某字符串功能 Public Function AllReStr(DT As String, DX As String, DY As String) As String If Len(DT) = 0 Then Exit Function Do
W = InStr(DT, DX)
If W = 0 Then Exit Do
DT = Left(DT, W - 1) & DY & Right(DT, Len(DT) - W - Len(DX) + 1)
LoopAllRe...
