'处理生成文件名称时含有的特殊字符
Private Shared Function ReplaceString(ByVal strValue As String) As String
'特殊字符为:@-%#?|.,;'"&<>
strValue = strValue.Replace("@", "")
strValue = strValue.Replace("-", "")
strValue = strValue.Replace("%", "")
strValue = strValue.Replace("#", "")
strValue = strValue.Replace("?", "")
strValue = strValue.Replace("|", "")
strValue = strValue.Replace(".", "")
strValue = strValue.Replace(",", "")
strValue = strValue.Replace(";", "")
strValue = strValue.Replace("'", "")
strValue = strValue.Replace("""", "") '校验引号需要转义
strValue = strValue.Replace("&", "")
strValue = strValue.Replace("<", "")
strValue = strValue.Replace(">", "")
Return strValue
End Function