这到底有没有高手啊，我问的问题都一天了啊

faloo1

各位请帮帮忙，上千条记录，每条中的备注字段（就是那个可以输入很多字的那个字段，具体到我这个就是公司简介），里面有很多回车换行，我想用查找并替换功能把回车全部del了，可是试了好多次都不成功，问了好多人也都不行，有人给我出主义说粘到word中操作，这个太麻烦，几千条记录啊，以后还会大量的碰到，不可能用word粘的。


今天搜到了这个论坛，看到好多高手都在这，于是发此贴请教，请高手指教！

GORYUNGBBS

在查询里将回车符换为"!" 号:

Replace([备注字段],Chr(13),"!")

dognsanfu

谢谢你的帮忙，我就是楼主，可是密码提示不正确，登陆不了了，没办法只好重新注册一个号。



那么请问，replace在哪输入？我只能点编辑-查找啊，在查找的框中不知道如何输入回车符号！

ly64745242

在查找替换中将回车粘贴上，在替换什么也不写，试试。

情比金坚

Function f(s As String)
Dim Str As String
Dim x As String
Dim y As Integer
    For i = 1 To Len(s)
        x = Mid(s, i, 1)
        y = Asc(x)
        If y = 13 Or y = 10 Then
            Str = Str
        Else
            Str = Str & x
        End If
        f = Str
    Next
End Function

另外请看这里：

http://www.office-cn.net/forum.php?mod=viewthread&tid=27751

[此贴子已经被作者于2006-1-7 23:19:29编辑过]

ui

使用查询,用楼上的函数替换就行,如不行,所你的MDB传上来看