VB6.0 为批量字体改名

标签：

　　　从网上下载了一个字符包，解压以后查看，发现文件名是这种形式：0120_XXXXXX_GBK.ttf，看上去很不雅观。我想改成　XXXXXX简体.ttf　这种形式，但字体有300多个，手动修改太浪费时间，所以编写了一个批量修改程序，一键搞定。主要用到的函数和语句：Mid语句、Name语句、InStr函数、InStrRev函数、Replace函数

　　　下面是我测试时用的程序。虽然每次只能改一个，但只要把程序稍微修改一下，就可以变成按照你的设定批量修改程序名的改名程序。

‘*************************************************************************
‘**模 块 名：为程序改名
‘**说    明：蓝凤凰设计商城 浴火凤凰-郭卫 | 蓝凤凰－魔灵 | 郭卫－icecept
‘**创 建 人：浴火凤凰-郭卫
‘**日    期：2015年10月19日  12:36:46
‘**修 改 人：浴火凤凰-郭卫
‘**日    期：
‘**描    述：QQ：493405998 | 微信\旺旺：icecept
‘**版    本：V1.0.0 | http://blog.sina.com.cn/icecept
‘*************************************************************************
Option Explicit

Sub Main()    

　　Dim ss As String, zz As String    

　　Dim before   As Integer    

      Dim behide   As Integer

      ss = Command    

      before = InStr(ss, "_")    

      MsgBox before    

      If before <> 0 Then        

           zz = Mid$(ss, before + 1)        

           MsgBox zz    

      End If    

      behide = InStrRev(zz, "_")    

      MsgBox behide    

      If behide <> 0 Then        

          Mid$(zz, behide, 4) = "简体" & Space$(2)        

          zz = Replace$(zz, Space$(1), "")        

          MsgBox zz    

     End If    

     Name ss As zz

End Sub

VB6.0 为批量字体改名

标签：

原文地址：http://www.cnblogs.com/icecept/p/icecept_Rename.html