看起来源文本中的换行符不是 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