51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2312|回复: 2
打印 上一主题 下一主题

[求助] 无效的调用MID函数

[复制链接]
  • TA的每日心情
    擦汗
    2014-10-31 10:02
  • 签到天数: 4 天

    连续签到: 2 天

    [LV.2]测试排长

    跳转到指定楼层
    1#
    发表于 2013-10-31 14:21:26 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    请大家帮忙看看执行QTP时系统提示如下错误
    Dim strText
    Dim Cus_Count_String
    Dim Cus_Count_Pos
    Dim Cus_Count_Len
    Dim Cus_Count_Num
    Cus_Count_String="Total Customer Count"

    Dim Total_Tickets_String
    Dim Total_Tickets_Pos
    Dim Total_Tickets_Len
    Dim Total_Tickets_Num
    Total_Tickets_String="Total Tickets Count"

    Dim Total_Sales_String
    Dim Total_Sales_Pos
    Dim Total_Sale_Len
    Dim Total_Sale_Num
    Total_Sales_String="Total Sales"

    window("Flight Reservation").Activate
    window("Flight Reservation").WinMenu("Menu").Select"Analysis;Reports..."
    If window("记事本").Exist Then
            reporter.ReportEvent micPass,"报告","报告生成并被打开"
            strText=window("记事本").WinEditor("Edit").GetROProperty("text")
            Reporter.ReportEvent micPass,"报告文本","报告文本是:"&strText

            Cus_Count_Pos=cint(instr(1,strText,Cus_Count_String))+len(Cus_Count_String)
            Reporter.ReportEvent micPass,"顾客总数数值的位置","顾客总数数值的位置是:"&Cus_Count_Pos
            Total_Tickets_Pos=cint(instr(1,strText,Total_Tickets_String))+len(Total_Tickets_String)
            reporter.ReportEvent micPass,"订票总数数值的位置","订票总数数值的位置是:"&Total_Tickets_Pos
            Total_Sales_Pos=cint(instr(1,strText,Total_Sales_String))+len(Total_Sales_String)
            reporter.ReportEvent micPass,"订票总数数值的位置","订票总数数值的位置是:"&Total_Sales_Pos

       Cus_Count_Len=cint(Total_Tickets_Pos-Cus_Count_Pos)-len(Total_Tickets_String)
       Total_Tickets_Len=cint(Total_Sales_Pos-Total_Tickets_Pos)-len(Total_Sales_String)
       Total_Sale_Len=Len(StrText)-cint(Total_Sales_Pos)

            Cus_Count_Num=Cint(Trim(Mid(strText,Cint(Cus_Count_Pos),Cus_Count_Len)))
       reporter.ReportEvent micPass,"顾客总数数值","顾客总数数值是:"&Cus_Count_Num
       Total_Tickets_Num=Cint(trim(Mid(strText,Cint(Total_Tickets_Pos),Total_Tickets_Len)))
       reporter.ReportEvent micPass,"订票总数数值","订票总数数值是:"&Total_Tickets_Num
       Total_Sales_Num=Trim(Mid(strText,Cint(Total_Sales_Pos),Total_Sales_Len))
       reporter.ReportEvent micPass,"订票总价钱数值","订票总价钱数值是:"&Total_Sales_Num
            window("记事本").Close
    else
       reporter.ReportEvent micFail,"报告","报告未被打开"
    End If
    在第55行
    无效的过程调用或参数: 'Mid'
    Line (55): "Cus_Count_Num=Cint(Trim(Mid(strText,Cint(Cus_Count_Pos),Cus_Count_Len)))".
    第57行
    类型不匹配: 'cint'
    Line (57): "Total_Tickets_Num=Cint(trim(Mid(strText,Cint(Total_Tickets_Pos),Total_Tickets_Len)))".
    请大家帮忙看看这是什么原因导致的呢?
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

  • TA的每日心情
    郁闷
    2016-3-11 10:15
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    2#
    发表于 2013-11-4 14:35:01 | 只看该作者
    路过,占个沙发!!
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    擦汗
    2014-10-31 10:02
  • 签到天数: 4 天

    连续签到: 2 天

    [LV.2]测试排长

    3#
     楼主| 发表于 2014-1-17 16:36:42 | 只看该作者
    请问大家有什么方法解决这个问题吗?
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-7 20:42 , Processed in 0.066175 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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