看起来源文本中的换行符不是 Windows 标准的 CRLF(回车、换行)。找出那些神秘人物的字符代码。
使用下面的过程,我可以给它一个文本字符串,它会列出每个字符的代码。这是立即窗口中的一个示例。
AsciiValues "a" & vbcrlf & "b"
position Asc AscW
1 97 97
2 13 13
3 10 10
4 98 98
如果我想检查存储在表格文本字段中的值,我可以DLookup
用来获取该值并将其提供给函数。
AsciiValues DLookup("memo_field", "tblFoo", "id=1")
position Asc AscW
1 108 108
2 105 105
3 110 110
4 101 101
5 32 32
一旦确定了问题字符的代码,您就可以执行一条UPDATE
语句,将问题字符代码替换为合适的替代代码。
UPDATE YourTable
SET YourField = Replace(YourField, Chr(x), Chr(y));
这是程序...
Public Sub AsciiValues(ByVal pInput As String)
Dim i As Long
Dim lngSize As Long
lngSize = Len(pInput)
Debug.Print "position", "Asc", "AscW"
For i = 1 To lngSize
Debug.Print i, Asc(Mid(pInput, i, 1)), AscW(Mid(pInput, i, 1))
Next
End Sub