这是描述:我正在通过复制/粘贴从 .xls 文件制作一个 .csv 文件。比 .csv 文件加载到数据库中的表中。
问题:当我从文件中复制数据时,一些“特殊”字符也被复制了。然而,这些“特殊”字符在 .xls 文件中不会被注意到,因为它们在那里显示为空白。
问题:我可以使用哪种工具(免费软件)或哪种方法来识别这个“特殊”字符,以便我可以删除它们?我认为它应该是某种工具,可以通过某些数字等价物来识别特定字符。
这是描述:我正在通过复制/粘贴从 .xls 文件制作一个 .csv 文件。比 .csv 文件加载到数据库中的表中。
问题:当我从文件中复制数据时,一些“特殊”字符也被复制了。然而,这些“特殊”字符在 .xls 文件中不会被注意到,因为它们在那里显示为空白。
问题:我可以使用哪种工具(免费软件)或哪种方法来识别这个“特殊”字符,以便我可以删除它们?我认为它应该是某种工具,可以通过某些数字等价物来识别特定字符。
从上一个问题:
Sub ReplaceStringInFile()
Dim sBuf As String
Dim sTemp As String
Dim iFileNum As Integer
Dim sFileName As String
sFileName = "C:\Temp\test.txt" '<-- Edit as needed
iFileNum = FreeFile
Open sFileName For Input As iFileNum
Do Until EOF(iFileNum)
Line Input #iFileNum, sBuf
sTemp = sTemp & sBuf & vbCrLf
Loop
Close iFileNum
sTemp = Replace(sTemp, "THIS", "THAT") '<--- edit as needed
iFileNum = FreeFile
Open sFileName For Output As iFileNum
Print #iFileNum, sTemp
Close iFileNum
End Sub
可能您需要做的是更改此行:
sTemp = Replace(sTemp, "THIS", "THAT")
对于这样的事情:
sTemp = Replace(sTemp, Chr(10), vbNullString)
这将用空值替换所有回车符。显然,您需要以某种方式确定要删除的 CHR() 值是什么。
这是可能有用的 CHR() 值列表。