[AP] 轉換特殊字元

'//轉換特殊字元

Function ReFormat(Source As String)
'將字串中的 \',\" 符號換成空白
Dim target As String
Dim i As Integer, p As Variant, q As Long
i=1
While Not Mid(source,i,1)=""
p=Mid(Source,i,1)
q=Asc(p)
'如果取得換行符號時,將它換成空白並跳過一個字元
'因為它會佔用二個字元
If q=34 Or q=39 Or q=13 Or q=10 Or q=2 Or q=127 Then   ' 前五個數字分別代表下面字元 ""/'/CR/LF STX
target=target+""
'i=i+1
Else
target=target+Mid(Source,i,1)
End If
i=i+1
Wend
Reformat=Ucase(target)

End Function