'把字符串转换为ini可以接受的字符串：TAB会转义为\t, 回车符会转义为\r ，换行符转义为\n
Public Function V4Ini(v As String) As String
On Error Resume Next
    V4Ini = Replace(Replace(Replace(v, vbTab, "\t"), vbCr, "\r"), vbLf, "\n")
End Function


'把字符串处理为文件或者文件夹名称，去掉文件名称中不允许的字符
Public Function V4FileName(v As String) As String
On Error Resume Next
   V4FileName = Trim(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(v, vbTab, ""), vbCr, ""), vbLf, ""), "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), """", ""), "<", ""), ">", ""), "|", ""))
End Function