51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

查看: 4154|回复: 9
打印 上一主题 下一主题

[原创] 请问这个Write 函数后接的字符串后面是不是有问题啊?

[复制链接]

该用户从未签到

1#
发表于 2007-2-27 09:49:30 | 显示全部楼层
我感觉LZ是想把写到文本中的内容换行写,而不是想把脚本中的代码换行写是吗??
回复 支持 反对

使用道具 举报

该用户从未签到

2#
发表于 2007-2-27 14:30:08 | 显示全部楼层
那其实是应该这么写的
Dim i  
While Not input.eof  

   i=i+1
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile" &i &".html", ForWriting, True)
   html="HTML"
   
   f.Write    "<HTML>" & Chr(13)&Chr(10) & "<HEAD>" & Chr(13)&Chr(10) &"<TITLE>一个简单的HTML示例</TITLE>"
......
中间的Chr(13)&Chr(10)写入文档的时候就是回车换行,这样写出来的文档就是你期望的样子了~~
sdlkfj2
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-5-11 14:39 , Processed in 0.066364 second(s), 23 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表