51Testing软件测试论坛

标题: QTP下标越界：[number:0]哪位大侠知道怎么处理？ [打印本页]

作者: xunying 时间: 2015-2-3 10:51
标题: QTP下标越界：[number:0]哪位大侠知道怎么处理？
报错：“下标越界：[number:0]”，代码如下：
另请问怎么传不了图片到帖子啊？

'Step 2【操作步骤】完成“写一篇日志”的动作【预期结果】标题自动生成格式如：访问密码输入成功其他必填项输入成功
'前置工作+数据准备
'使用QTP的保留函数获得当前日期
dateArray = Date
Print dateArray
'切除"/"符号
dateArray = Split(dataArray,"/")
'将数组中数据分别配给3个零时变量、年月日
tYear = dateArray(0) : tMonth = dateArray(1) : tDay = dateArray(2)
curYear = tYear
'根据当前系统需求，在小于10的月份前补一个0（Date函数返回的月份，天数如果小于10，只显示个位数）
If tMonth < 10 Then
curMonth = "0"&tMonth
else
curMonth = tMonth
End If
If tDay < 10 Then
curDay = "0"&tDay
else
curDay = tDay
End If
'Print函数可以帮助调试代码，也方便跟踪数据
Print curYear

作者: 赵佳乐SMILE 时间: 2015-2-3 12:42
Print 打出来的是什么

还有你传入的是什么

作者: xunying 时间: 2015-2-3 15:51

赵佳乐SMILE 发表于 2015-2-3 12:42
Print 打出来的是什么

还有你传入的是什么

Print dateArray结果是：2015/2/3 我后面把“/”拆剪掉

作者: sterson 时间: 2015-2-5 10:26
从代码看，是没有错的，师兄何不写错函数来调用
function Format_Date()
dateArray = Date
if instr(dateArray,"/") then

dateArray = Split(dataArray,"/")

tYear = dateArray(0)
tMonth = dateArray(1)
tDay = dateArray(2)

If len(tMonth) < 2 Then tMonth= "0" & tMonth

If len(tDay) < 2 Then tDay = "0" & tDay

Format_Date=tYear & "/" & tMonth & "/" tDay
else
Format_Date=dateArray
end if
end function

作者: wys702a8 时间: 2015-2-6 15:07
dateArray = Date
Print dateArray
'切除"/"符号
dateArray = Split(dataArray,"/")

楼主为何不使用Option Explicit?
仔细检查下分割字符串的变量使用对吗？

作者: wys702a8 时间: 2015-2-6 15:08
楼主的split传人的变量名对吗？仔细看看

作者: yuanbin010 时间: 2015-2-7 13:43
楼主代码打错了，仔细看看Split里的数组，是dateArray而不是dataArray
dateArray = Date
Print dateArray
'切除"/"符号
dateArray = Split(dataArray,"/")

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)