Temptation

寻道之路 , 与您同行 !
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  321 随笔 :: 0 文章 :: 172 评论 :: 3 Trackbacks
[转] csv文件的读写
Dim   fso   As   New   FileSystemObject   
Dim   fil   As   File   
Dim   ts   As   TextStream   
Set   fso   =   CreateObject("Scripting.filesystemobject")   
Dim   yy,   y1,   y2,   y3   
y1   =   fil_path   
'这里取得ASP里面传递的文件名   
yy   =".\text.csv"     
fso.CreateTextFile   (yy)   
Set   fil   =   fso.GetFile(yy)   
Set   ts   =   fil.OpenAsTextStream(ForWriting)   
'数组参数传递   
ts.Write   (yy)   
ts.WriteBlankLines   (1)   
ts.Write   (yy)   
ts.WriteBlankLines   (1)   
ts.Write   (bol_end)   
ts.WriteBlankLines   (1)   
ts.Write   (sum_a2)   
ts.WriteBlankLines   (1) 
posted on 2007-09-09 22:59 temptation 阅读(1226) 评论(0)  编辑 收藏 所属分类: VB 数据库开发

标题  
姓名  
主页
Email (只有博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
 
最新IT新闻:
· 微软高价聘请喜剧天王拍广告
· 2008年8月22日IT博客精选
· 微软封杀盗版网站
· 财富：十大最炫酷的手机应用软件
· 商业周刊:暴雪Activision合并 巨无霸诞生
博客园新闻频道  博客园首页  社区