0

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

问题:当我从文件中复制数据时,一些“特殊”字符也被复制了。然而,这些“特殊”字符在 .xls 文件中不会被注意到,因为它们在那里显示为空白。

问题:我可以使用哪种工具(免费软件)或哪种方法来识别这个“特殊”字符,以便我可以删除它们?我认为它应该是某种工具,可以通过某些数字等价物来识别特定字符。

4

1 回答 1

1

从上一个问题:

VBA 中的文本文件:打开/查找替换/另存为/关闭文件

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() 值列表。

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

于 2013-03-21T15:19:41.247 回答