iotest 发表于 2012-8-21 16:54:32

参数化后,如何在数据末尾加入空格

Browser("xxxxxx系统").Page("xxx页面").Frame("Frame_2").WebEdit("promoter.mobile").Set DataTable("p_Text", dtLocalSheet)
---------------------------------------------------------------------------------------------------
各位大神,参数化数据,在数据表里,数据的最后面好像没法加入空格,但使用常量的话,是可加入空格的。是否有办法通过语句加入空格?求解~~~

iotest 发表于 2012-8-21 17:26:10

或者检查对象末尾有空格,如何忽略空格?

xjwldlover 发表于 2012-8-21 18:18:04

给数据加一个特殊标记,比如 abc_1
其中_1代表数据后面的空格数,在提取数据的时候处理一下数据,让他变成“abc ”,这样应该就可以了吧

转换 Left(str,InStrRev(str,"_")-1) & String(Mid(str,InStrRev(str,"_")+1,Len(str))," ")

shingo0109 发表于 2012-8-22 09:38:09

如果要去掉两边的空格的话, 直接用Trim函数就可以了, 如Trim(" abc "),实际输出为"abc"

iotest 发表于 2012-8-22 09:58:13

回复 3# xjwldlover
感谢回复,在下菜鸟,是否能说的更仔细一些了,不胜感激。
我参数化后,列表名是“p_Text”,但是列表里的数据最后没法加上空格。你说的那句是放在设定句的前面还是后面?要怎么写?

iotest 发表于 2012-8-22 10:01:03

回复 4# shingo0109
感谢回复,在下菜鸟,是否能说的更仔细一些了,不胜感激。被检查的对象末尾有空格,是WEBTABLE的数据,要忽略别检查对象的末尾空格,具体如何写呢?

shingo0109 发表于 2012-8-22 10:07:24

回复 6# iotest


    假设 sCellData = Browser().Page().WebTable().GetCellData(1,1), 如果sCellData = "abc ", 最后有一个空格的, 检查的代码可以这样写:
If Trim(sCellData) = "abc" Then
   Reporter.ReportEvent micPass, "pass", "pass"
End If

xjwldlover 发表于 2012-8-22 10:15:38

比如你的数据如
p_Text(列名)
"abc "
"bds"
"ttt"
原来通过DataTable("p_Text", dtLocalSheet)取出来可能是“abc”,后面空格丢失了。你在存数据的时候可以将数据存成以下形式,_n,n代表空格的数量
p_Text(列名)
"abc_1"
"bds"
"ttt_2"
建立一个function
function getDataTable(ColName,tbName)
   str = DataTable("p_Text", tbName)
'处理空格,将_n转为n个空格
   getDataTable = Left(str,InStrRev(str,"_")-1) & String(Mid(str,InStrRev(str,"_")+1,Len(str))," ")
end function
这样,当你取值时就变成
Browser("系统").Page("页面").Frame("框架").WebEdit("编辑").Set getDataTable("p_Text", dtLocalSheet)

不知道你是否是想实现这样的效果~
页: [1]
查看完整版本: 参数化后,如何在数据末尾加入空格