vbscript脚本问题

cuixiaoyan1020 · 发表于 2009-7-17 17:51:06

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

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

ls_721521 · 发表于 2009-7-17 17:53:23

啥意思？没明白。。。

vernzhang1980 · 发表于 2009-7-20 17:00:49

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:28

谢谢!如何用函数实现呢?

风雪夜归人 · 发表于 2009-7-21 15:41:15

我来抄下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:28

楼上的人真有趣..

cuixiaoyan1020 · 发表于 2009-7-22 09:30:26

谢谢

cuixiaoyan1020 · 发表于 2009-7-22 15:51:12

此问题已经解决了

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] vbscript脚本问题

相关帖子

回复 3# 的帖子

回复 5# 的帖子

回复 5# 的帖子

回复 5# 的帖子

站长推荐 /1