导出文件问题!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!
以下是一个将数据库中的数据导出到文本文件的程序! 是以/为分隔符
n=cstr(date)
csql2="select * from mertable where status='a' or status='u'"
set rs3=server.createobject("adodb.recordset")
rs3.open csql2,con,1,1
set fsFilesys=CreateObject("Scripting.FileSystemObject")
set tsCoffee=fsFilesys.OpenTextFile("e:\"&n&".txt",8,True)
do while not rs3.eof
str=rs3("merid")&"/"&rs3("mername")&"/"&rs3("settlemode")&"/"&rs3("zjmode")&"/"&rs3("number")&"/"&rs3("poundage")&"/"&rs3("bankname")&"/"&rs3("account")&"/"&rs3("address")&"/"&rs3("postnumber")&"/"&rs3("kind")&"/"&rs3("subject")&"/"&rs3("fname")&"/"&rs3("fduty")&"/"&rs3("fphone1")&"/"&rs3("fphone2")&"/"&rs3("ffax")&"/"&rs3("lname")&"/"&rs3("lduty")&"/"&rs3("lphone1")&"/"&rs3("lphone2")&"/"&rs3("lfax")&"/"&rs3("sqdate")&"/"&rs3("sqrname")&"/"&rs3("zjdate")&"/"&rs3("zjrname")&"/"&rs3("remark")&"/"&rs3("projectname")&"/"&rs3("sfid")&"/"&rs3("status")&""
tsCoffee.WriteLine(str)
rs3.movenext
loop
tsCoffee.Close
问题是 如果数据库中定义的字段(例如merid)的长度是10 而存在其中的数据长度只为8,那么导出到文件中则8位加两个空格,请问如何去掉空格,原先写成Trim(rs3("merid"))&"/...... 但是去不掉! 求源代码!!!!!!