zoukankan      html  css  js  c++  java
  • [原创]PDFCreator自动保存及文件名带空格、后缀名丢失的解决方法(Windows 7通过)

    今天安装了免费的PDF打印机软件PDFCreator,默认情况下弹出保存窗口,依照以下设定,可以自动保存:

    2010-3-18 11-28-26

    2010-3-18 11-32-21

    但是存在一个问题:如果<Title>存在空格,则保存后的文件名会从第一个空格后断开,.pdf 后缀名也不会被添加。

    PDFCreator一个比较好的地方在于支持动作脚本,即保存前后可以执行指定的VBS文件。

    依照以下步骤,即可解决之前的问题:

    1. 打开记事本,复制以下代码,另存为Rename.vbs至<PDFCreator安装路径>\Scripts\RunProgramAfterSaving目录下;

    ————————————————————————————————————————————————

    Set fso = WScript.CreateObject("Scripting.FileSystemObject")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set Net = WScript.CreateObject("WScript.Network")
    Set dic = WScript.CreateObject("Scripting.Dictionary")

    Dim objArgs
    Set objArgs = WScript.Arguments

    Main()
    Sub Main()
        If objArgs.Count = 0 Then
            MsgBox "This script needs a parameter!", vbExclamation, AppTitle
            WScript.Quit
        End If
        Dim fname0, fname1
        fname0 = objArgs(0)
        fname1 = fname0
        IF GetFileExt(fname0) <> "pdf" Then
            fname1 = fname1 & ".pdf"
            fso.movefile fname0, fname1
        End If
        WshShell.Run chr(34) & fname1 & chr(34),0
    End Sub
    Function GetFileExt(sFileName)
        Dim P
        For P = Len(sFileName) To 1 Step -1
            If InStr(".", Mid(sFileName, P, 1)) Then Exit For
        Next
        GetFileExt = Right(sFileName, Len(sFileName) - P)
    End Function

    ————————————————————————————————————————————————

    2. 勾选“保存后动作”,下拉框中选择Rename.vbs,保存。

    2010-3-18 11-35-39_thumb

    OK了^o^

  • 相关阅读:
    面向对象(metaclass继承高级用法)
    建表和删表(sqlalchemy框架)
    单表操作
    认证,权限
    协程,twisted
    定制起始url(scrapy_redis)
    浅谈深度优先和广度优先(scrapy-redis)
    scrapy-redis(调度器Scheduler源码分析)
    scrapy-redis
    xpath
  • 原文地址:https://www.cnblogs.com/oneisyou/p/1883130.html
Copyright © 2011-2022 走看看