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