打印

[求助] 请问这个Write 函数后接的字符串后面是不是有问题啊？

Coffey111111

高级站友

Rank: 4

1^# 大中小发表于 2007-2-15 15:10 只看该作者

请问这个Write 函数后接的字符串后面是不是有问题啊？

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>"
   &"<HEAD>"
&"<TITLE>一个简单的HTML示例</TITLE>"
&"</HEAD>"
&" " &"<BODY>"
&"<CENTER>"
   &"<H3>欢迎光临"
   &input("name")
   &"的主页</H3>"
   &"<BR>"
   &"<HR>"
   &"<FONT SIZE=2> "
   &"　　这是我第一次做主页，无论怎么样，我都会努力做好！"
   &"</FONT>"&"</CENTER>"&" </BODY>"
   &"  "&" </HTML>"
  input.MoveNext
wait(5)

Wend
input.close
Set input=nothing
在我运行到红色处向下我就运行不下去了，请问这个Write 函数后接的字符串后面是不是有问题啊？请指教~~sdlkfj5

附件: 您所在的用户组无法下载或查看附件

I have to have my life goal,or I will die! Set life goal for myself,summon up, in pursuit of the goal to find myself!

TOP

风过无息

版主

Rank: 7 Rank: 7 Rank: 7

2^# 大中小发表于 2007-2-15 15:32 只看该作者

字符串的换行连接符的问题。
参照以下的脚本：

  ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.html", ForWriting, True)
html="HTML"

f.Write "<HTML>" &_
"<HEAD>"  &_
"<TITLE>一个简单的HTML示例</TITLE>"  &_
"</HEAD>"  &_
"<BODY>"  &_
"<CENTER>"  &_
"<H3>欢迎光临" &_
   "的主页</H3>"  &_
      "<BR>"  &_
      "<HR>"  &_
   "<FONT SIZE=2> "  &_
         "　　这是我第一次做主页，无论怎么样，我都会努力做好！"  &_
   "</FONT>"&"</CENTER>"&" </BODY>"  &_
   "  "&" </HTML>"
wait(5)
f.Close

[ 本帖最后由风过无息于 2007-2-15 18:00 编辑 ]

TOP

miniyal

高级站友

Rank: 4

3^# 大中小发表于 2007-2-15 15:51 只看该作者

为什么有的是& 而有的是&_ ???

Only social practise can be the criterion of truth.

TOP

19thangel

中级站友

Rank: 3 Rank: 3

4^# 大中小发表于 2007-2-15 17:03 只看该作者

引用:

原帖由 miniyal 于 2007-2-15 15:51 发表
为什么有的是& 而有的是&_ ???

同问.........sdlkfj4

TOP

xiaonan

版主

Rank: 7 Rank: 7 Rank: 7

荣誉勋章为人民服务好版主勋章

5^# 大中小发表于 2007-2-15 17:27 只看该作者

语句后加"_"表示一种换行的连接符.比如某句代码一行显示过长,我们可以把代码换行写,但句末要加上"_"符号.当语句本执行时,编译器看到了这句句末有"_"时,就会知道语句还没结束,只不过换行了,跳到下面继续读.这跟连接符号&没有关系,别搞混了

欢迎光临xiaonan的个人空间

TOP

rivermen

51Testing就业学员

Rank: 6 Rank: 6

6^# 大中小发表于 2007-2-16 17:34 只看该作者

& 负责连接字符串，当然也可以隐性把整数，浮点数等其他数据类型转换为字符串
_ 续行连接

TOP

Coffey111111

高级站友

Rank: 4

7^# 大中小发表于 2007-2-24 12:21 只看该作者

谢谢xiaonan,rivermen sdlkfj2

I have to have my life goal,or I will die! Set life goal for myself,summon up, in pursuit of the goal to find myself!

TOP

htot05

高级站友

Rank: 4

8^# 大中小发表于 2007-2-27 09:49 只看该作者

我感觉LZ是想把写到文本中的内容换行写,而不是想把脚本中的代码换行写是吗??

永远的虚心求教……

TOP

Coffey111111

高级站友

Rank: 4

9^# 大中小发表于 2007-2-27 12:35 只看该作者

恩，是的，是将文本中的内容换行写的sdlkfj5

I have to have my life goal,or I will die! Set life goal for myself,summon up, in pursuit of the goal to find myself!

TOP

htot05

高级站友

Rank: 4

10^# 大中小发表于 2007-2-27 14:30 只看该作者

那其实是应该这么写的
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

永远的虚心求教……

TOP

软件测试每周一问，答帖有奖	系统培训解决工作难题	"SEPG中国2008"火热报名中	2008中国软件测试从业人员调查问卷
白盒测试比黑盒测试更难？	《51测试天地》第11期正式发布	见证一段历程，点亮一盏明灯！	软件测试培训签订合同保证就业