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

Coffey111111 · 发表于 2007-2-15 15:10:21

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

htot05 · 发表于 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

Coffey111111 · 发表于 2007-2-27 12:35:29

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

htot05 · 发表于 2007-2-27 09:49:30

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

Coffey111111 · 发表于 2007-2-24 12:21:51

谢谢xiaonan,rivermen sdlkfj2

rivermen · 发表于 2007-2-16 17:34:59

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

xiaonan · 发表于 2007-2-15 17:27:20

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

19thangel · 发表于 2007-2-15 17:03:14

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

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

miniyal · 发表于 2007-2-15 15:51:48

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

风过无息 · 发表于 2007-2-15 15:32:25

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

  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 编辑 ]

		自动登录	找回密码
密码			(注-册)加入51Testing

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

本帖子中包含更多资源

相关帖子

站长推荐 /1