51Testing软件测试论坛

标题: vbscript脚本问题 [打印本页]

作者: cuixiaoyan1020 时间: 2009-7-17 17:51
标题: vbscript脚本问题
现在已经找出三个图片的位置所在值，（例如：这三个图片分别是：readlamp，bluelamp，bluelamp)现在想根据三个图片得出一个字符串(rbb),rbb分别是三个图片的第一个字符，怎么用vscript脚本语言实现呢？哪位高手指点下迷津，非常感谢！

[ 本帖最后由 cuixiaoyan1020 于 2009-7-18 08:38 编辑 ]

作者: ls_721521 时间: 2009-7-17 17:53
啥意思？没明白。。。

作者: vernzhang1980 时间: 2009-7-20 17:00
Dim Pic1_Name, Pic2_Name, Pic3_Name, PicAll_String
Dim Pic_String(3)
Pic1_Name="readlamp"
Pic2_Name="bluelamp"
Pic3_Name="bluelamp"
Pic_String(0)=Left(Pic1_Name,1)
Pic_String(1)=Left(Pic2_Name,1)
Pic_String(2)=Left(Pic3_Name,1)
PicAll_String=Join(Pic_String,"")
msgbox PicAll_String

作者: cuixiaoyan1020 时间: 2009-7-21 10:23
标题: 回复 3# 的帖子
谢谢!如何用函数实现呢?

作者: 风雪夜归人 时间: 2009-7-21 15:41
我来抄下3楼的

Function FunctionName( strPic1Name, strPic2Name, strPic3Name)
Dim Pic1_Name, Pic2_Name, Pic3_Name, PicAll_String
Dim Pic_String(3)
Pic1_Name= strPic1Name
Pic2_Name= strPic2Name
Pic3_Name= strPic3Name
Pic_String(0)=Left(Pic1_Name,1)
Pic_String(1)=Left(Pic2_Name,1)
Pic_String(2)=Left(Pic3_Name,1)
PicAll_String=Join(Pic_String,"")

FunctionName = PicAll_String

End Function

使用的时侯直接

name = Function ("aaaa", "bbbb", "cccc") '这儿所说的aaaa,bbbb,cccc是你要传进去的3个文件名，name就是你获取到的文件名

[ 本帖最后由风雪夜归人于 2009-7-21 15:47 编辑 ]

作者: onlonely 时间: 2009-7-21 21:31
标题: 回复 5# 的帖子
楼上的人真有趣..

作者: cuixiaoyan1020 时间: 2009-7-22 09:30
标题: 回复 5# 的帖子
谢谢

作者: cuixiaoyan1020 时间: 2009-7-22 15:51
标题: 回复 5# 的帖子
此问题已经解决了

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