51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3621|回复: 6
打印 上一主题 下一主题

[原创] QTP--VBS批量处理图片文件

[复制链接]
  • TA的每日心情
    难过
    2015-9-21 13:50
  • 签到天数: 4 天

    连续签到: 1 天

    [LV.2]测试排长

    跳转到指定楼层
    1#
    发表于 2009-12-8 17:59:52 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    用数码相机拍了一些照片,放到手机上发现由于太大手机无法识别。
    以前看过大虾用aspJpeg组件操作过图片,就想到通过同样的方法VBS批量缩小下图片!

    ==============================================================================================
    '图片的高度和宽度修改成原来的1/10
    Function update_picture(filename,newfilename)

            Dim Jpeg

            Set Jpeg=CreateObject("Persits.Jpeg")
            Jpeg.Open filename
            Jpeg.Width =Jpeg.OriginalWidth/10
            Jpeg.Height =Jpeg.OriginalHeight /10

            Jpeg.Save newfilename
            Jpeg.Close
            Set Jpeg=Nothing
           
    End Function
    '

    Dim fs,fo,x
    Dim str1,str2,filename,newfilename

    str1 = "G:\1\"
    str2 = "G:\2\"
    set fs=CreateObject("Scripting.FileSystemObject")
    set fo=fs.GetFolder(str1)

    '遍历文件夹str1中的所有文件
    For each x in fo.files
       filename =str1 & x.Name
       newfilename = str2 & x.Name
       call update_picture(filename,newfilename)
    next
    set fo=nothing
    set fs=nothing
    ==============================================================================================
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

    该用户从未签到

    2#
    发表于 2009-12-9 09:01:57 | 只看该作者
    顶下~
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
    发表于 2009-12-9 09:33:59 | 只看该作者
    关于aspjpeg
    简单安装方式的话,直接将aspjpeg.dll复制到windows/system32目录下面,在“开始”,“运行”处输入“regsvr32 aspjpeg.dll” 注册即可!
    aspjpeg.dll下载地址:http://www.const.net.cn/userfiles/AspJpeg.rar
    重启IIS即可使用,注册使用

    Set jpg = Server.CreateObject("Persits.Jpeg")
    jpg.RegKey = "48958-77556-02411"

    查看是否注册成功使用:
    Set jpg = Server.CreateObject("Persits.Jpeg")
    response.write jpg.expires

    如果注册成功了,会显示过期时间为:9999-9-9。

    COPY FROM: [http://www.const.net.cn/]
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
    发表于 2010-10-9 11:15:45 | 只看该作者
    不错,学习了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
    发表于 2010-10-9 17:06:01 | 只看该作者
    Set Jpeg=CreateObject("Persits.Jpeg")

    折行代码运行不了呢,报不能创建对象
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
    发表于 2010-10-9 21:54:28 | 只看该作者
    Set Jpeg=CreateObject("Persits.Jpeg")
    Set TDConn = CreateObject("TDApiOle80.TDConnection.1")
    这样的对象定义有没有帮助文档可以指引呢?全靠baidu和摸索好球烦哦
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2010-10-10 12:36:47 | 只看该作者
    Set Jpeg=CreateObject("ersits.Jpeg")
    Set TDConn = CreateObject("TDApiOle80.TDConnection.1")
    这样的 ...
    lyscser 发表于 2010-10-9 21:54



       同问,哪里有手册
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-9 04:01 , Processed in 0.075553 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表