Question

这里是描述：我通过复制/粘贴从.xls文件制作.csv文件。比.csv文件加载到数据库的表中。

问题：当我从文件中复制数据时，也会复制一些“特殊”字符。但是，在.xls文件中没有注意到这些“特殊”字符，因为它们显示为空白。

问题：我可以使用哪种工具（免费软件）或哪种方法来识别这个“特殊”字符，以便删除它们？我认为它应该是一些工具，通过它的一些数字等价来识别特定字符。

Answer 1

来自上一个问题：

Text file in VBA: Open/Find Replace/SaveAs/Close File

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)

将使用null替换所有回车符。实际上，您需要以某种方式确定要删除的CHR（）值。

以下是可能有用的CHR（）值列表。

http://www.techonthenet.com/ascii/chart.php

字符为数字和特殊字符

1 个答案: