如何将表中字段内容导出为特定格式的文本？

Question

我想将表1中字段aa的内容导出到文本，字段aa里的内容格式为"AAAA回车符BBB回车符CCCC回车符"，我想将导出的格式变为如下显示，（注111是固定字串,我用的是Scripting.FileSystemObject逐条写文本的方法。)
111AAA
111BBB
111CCC

Answer 1

split(aa,vbKeyReturn)
如果你确定他们之间是回车分隔

Answer 2

DIM STR()
STR=split(aa,vbKeyReturn)
STR(0)里为 AAA
STR(1)里为 BBB
STR(2)里为 CCC

Answer 3

Dim strArray() As String
rs.Open "select replace(aa,'111','') as aa from 表1", cn
Open "d:\test.txt" For Output As #1
Do While Not rs.EOF
    strArray = Split(rs!aa, vbCrLf)
    Print #1, strArray(0)
    Erase strArray
    rs.MoveNext
Loop
Close #1

Answer 4

可能要改一下，（没有验证）
Dim strArray() As String
dim i as integer
rs.Open "select replace(aa,'111','') as aa from 表1", cn
Open "d:\test.txt" For Output As #1
Do While Not rs.EOF
    strArray = Split(rs!aa, vbCrLf)
    for i=0 to ubound(strarray)
       Print #1, strArray(i)
    next i
    Erase strArray
    rs.MoveNext
Loop
Close #1

Answer 5

问题基本解决，谢谢！不过我发觉直接写文本的话程序不认vbCrLf或者chr(13)，所以不会自动换行，导出的文本每个字段间有一个分隔符，所以我是先将数据导出为html文本，然后再另存为txt，请问有什么好办法吗？谢谢。