51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1476|回复: 4
打印 上一主题 下一主题

[求助] 缺少语句是什么意思

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2016-8-11 21:43:45 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
Dim EnvironmentPath
EnvironmentPath="D:\Envlib.xml"
call createEnviormentXML(EnvironmentPath)
environment.LoadFromFile EnvironmentPath
URL=Environment.Value("netUrl")
systemutil.Run Url

Function createEnviormentXML(xmlpath)
    Set fso=createObject("Scripting.FileSystemObject")
    Set oXml=fso.CreateTextFile(xmlPath)
    oxml.Write_
    "<Environment>"+vbCrlf+"<Variable>"+vbCrlf+_
        "<Name>netname</Name>"+vbCrlf+_
        "<Value>baidu</Value>"+vbCrlf+_
    "</Variable>"+vbCrlf+_
    "</Variable>"+vbCrlf+_
        "<Name>netname</Name>"+vbCrlf+_
        "<Value>http://www.baidu.com</Value>"+vbCrlf+_
        "</Variable>"+vbCrlf+_
        "<Environment>"
        Set oxml=nothing
        Set fso=nothing
End Function


就是这句代码总是报错
"<Environment>"+vbCrlf+"<Variable>"+vbCrlf+_
提示为:
缺少语句
Line (12): ""<Environment>"+vbCrlf+"<Variable>"+vbCrlf+_".
缺少语句什么意思?请各位大神帮忙分析一下,谢谢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    慵懒
    2015-4-19 21:04
  • 签到天数: 5 天

    连续签到: 1 天

    [LV.2]测试排长

    4#
    发表于 2016-8-14 20:40:42 | 只看该作者
    鱿鱼丝 发表于 2016-8-12 21:47
    确实解决了,但是又产生另一个问题,Envlib.xml已经创建了,但是现在的错误是以下

    File "D:\Envlib.xm ...

    XML的格式错了, "<Variable>"+vbCrlf+_
            "<Name>netname</Name>"+vbCrlf+_
            "<Value>http://www.baidu.com</Value>"+vbCrlf+_
            "</Variable>"+vbCrlf+_
            "</Environment>"
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
     楼主| 发表于 2016-8-12 21:47:00 | 只看该作者
    puchonghui 发表于 2016-8-12 08:10
    oxml.Write后面加个空格

    确实解决了,但是又产生另一个问题,Envlib.xml已经创建了,但是现在的错误是以下

    File "D:\Envlib.xml" could not be parsed.

    Line (4): "Environment.LoadFromFile EnvironmentPath".
    这又是什么意思呢?
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    慵懒
    2020-8-11 08:18
  • 签到天数: 114 天

    连续签到: 1 天

    [LV.6]测试旅长

    2#
    发表于 2016-8-12 08:10:44 | 只看该作者
    oxml.Write后面加个空格

    评分

    参与人数 1测试积点 +10 收起 理由
    lsekfe + 10 积极回复获得测试积点10

    查看全部评分

    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-26 14:10 , Processed in 0.067433 second(s), 24 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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