xunying 发表于 2015-2-3 10:51:06

QTP下标越界：[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:01

Print 打出来的是什么

还有你传入的是什么

xunying 发表于 2015-2-3 15:51:48

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

还有你传入的是什么

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

sterson 发表于 2015-2-5 10:26:48

从代码看，是没有错的，师兄何不写错函数来调用
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:01

dateArray = Date
Print dateArray
'切除"/"符号
dateArray = Split(dataArray,"/")

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

wys702a8 发表于 2015-2-6 15:08:06

楼主的split传人的变量名对吗？仔细看看

yuanbin010 发表于 2015-2-7 13:43:35

楼主代码打错了，仔细看看Split里的数组，是dateArray而不是dataArray
dateArray = Date
Print dateArray
'切除"/"符号
dateArray = Split(dataArray,"/")
页: [1]
查看完整版本: QTP下标越界：[number:0]哪位大侠知道怎么处理？