如何在access 中增加换行符？

[whbn]

如题，我的access数据表中的记录包括2个字段，一个是ID：1，2，3，。。。等，另一个是memo，里面是大段的文字叙述，里面我用##代表换行符。
我想请教的是：如何批量将所有记录中的##换成换行符？

备注：这个问题的发生是在从外部文件导入access之后出现的。由于文件记录的内容是多行文本，导入access的时候系统把每一行都当成了一条记录，没法子，我只好把记录之间用特殊字符（￥）隔开，然后把换行符用另外一个特殊字符（##）代替，这样就形成了单行文本，才得以正确导入，可这时候，上面的问题就出现了......

请高手指教，是不是我的方法太傻了，有什么解决办法？

[proer9988]

简单，用VBA（或者VB）即可搞定
类似
s = Replace(s, "##", vbCrLf)

[whbn]

[Quote=引用 1 楼 ok999ok 的回复:]
简单，用VBA（或者VB）即可搞定
类似
s = Replace(s, "##", vbCrLf)
[/Quote]

多谢指教，我对access vba很陌生，具体到一段代码应该怎么写啊？
形如：

sub a()
dim b as integer
.....

[proer9988]

很简单，打开ACCESS数据库，选择新建模块，粘贴一下代码,然后点击菜单里的“运行子过程/窗体”即可。
Sub ReplaceStrToCrLf()

Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Dim strTemp As String
Set rs = db.OpenRecordset("表1")
Do While Not rs.EOF
strTemp = Replace(rs("字段名1"), "##", vbCrLf)
rs.Edit
rs("字段名1") = strTemp
rs.Update
rs.MoveNext

Loop

rs.Close
Set rs = Nothing
Debug.Print " ok!"
End Sub

[whbn]

[Quote=引用 3 楼 ok999ok 的回复:]
很简单，打开ACCESS数据库，选择新建模块，粘贴一下代码,然后点击菜单里的“运行子过程/窗体”即可。
Sub ReplaceStrToCrLf()

Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Dim strTemp As String
Set rs = db.OpenRecordset("……
[/Quote]
太好了，全部置换了好了，非常感谢ok999ok， 方便的话回复一下新问题，如何去掉每条记录最开始的空行啊。能用repalce函数解决吗？

[proer9988]

给你个思路：
换行符号是： chr(10)
回车符号是: chr(13)
vbCrLf是回车换行

你试验一下，看能否单独把它替换为空字符 ""

也可以在程序里，判断一下（用Instr函数），句首的##先不替换为换行符号；替换好后再单独处理它。