去除Premiere中文字体显示的Bug

标签：软件技巧大全,http://www.duosi8.com 去除Premiere中文字体显示的Bug,
Adobe Premiere Pro自推出以来受到了业界的广泛好评，但Adobe公司每次开发软件的时候都对中国这么大一个市场考虑不够周全。从早些年的Photoshop5.0留下的中文字体显示Bug到Premiere6.5，到目前的Premiere Pro每次都会出现相同的Bug，即所有的中文字体在字体列表中显示的都是拼音。如图1所示，其中的楷体显示的名称为：KaiTi_GB2312。而且连Adobe After Effect等软件也有相同的问题，真让人郁闷。

　

图1　　虽然网上有用手动去修改的方法，可是如果系统重装了，又要重新做一次，重复劳动，十分麻烦。

　　早些年我就分析过Photoshop补丁的解决方法，如今的Premiere Pro是同家公司做的，又是同样的问题，会不会解决方法也相同呢？经过一番研究，找到了解决方法。下面是用VB6写的程序。

　　1． 打开VB6创建一个新工程，点击工程右上角的Form1窗体将它移除。本程序无需界面，只要两个对话框就行了。

　　2． 点击“工程”菜单下的“添加模块”，加入一个新的模块，给它起个名字为：PrPatch。

　　3． 在模块中输入以下程序：

　　Option Explicit

　　Dim DiskW As String

　　Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

　　Private Sub Main()

　　Dim WinLong As Long, WinLocate As String * 40

　　If MsgBox("本程序用于更正Premiere Pro输入汉字时字体名称显示不正确的问题。运行吗？", vbOKCancel + vbInformation, "补丁:") = vbCancel Then End

　　WinLong = GetWindowsDirectory(WinLocate, 40)

　　DiskW = Left(WinLocate, 2)

　　ProcessFile

　　MsgBox "汉字输入补丁完成！", vbOKOnly + vbInformation, "祝贺你:"

　　End Sub

　　Private Sub ProcessFile()

　　Dim TextOne As String, TextLine(8000) As String, i As Long, NowString As String * 1, j As Integer, BL As Integer

　　DiskW = DiskW & "\Program Files\Common Files\Adobe\TypeSpt\

　　AdobeFnt07.lst"

　　'将一个文件以行为单位放入数组

　　Open DiskW For Input As #1

　　Input #1, TextOne

　　j = 1

　　For i = 1 To Len(TextOne)

　　NowString = Mid$(TextOne, i, 1)

　　If NowString = Chr(10) Then

　　j = j + 1

　　Else

　　TextLine(j) = TextLine(j) + NowString

　　End If

　　Next i

　　Close #1

　　'查找

　　For i = 1 To j - 1

　　If Left(TextLine(i), 11) = "Fami

　　lyName:" Then

　　BL = i

　　Else

　　If Left(TextLine(i), 8) = "WinName:" Then

　　TextLine(BL) = Left(TextLine(BL), 11) & Mid$(TextLine(i), 9)

　　End If

　　End If

　　Next

　　Open DiskW For Output As #1

　　For i = 1 To j - 1

　　Print #1, TextLine(i)

　　Next

　　Close #1

　　End Sub

　　4． 点击“文件”菜单下的“生成PrPatch.exe”，完成。

　　5．然后你就可以运行它了，运行之后再打开Premiere Pro再看看图（如图2），这就是运行之后的情况。本程序可以用于解决Adobe一系列软件的共同Bug。注意程序中加底的一行，这行是本程序的重要部分。

　

图2

，去除Premiere中文字体显示的Bug

• 电脑硬件知识
• 软件知识
• 操作系统
• 电脑故障
• qq大全
• Word教程
• Excel教程
• 电脑技巧
• 网络知识
• 软件技巧
• 网赚
• 网络应用
• 笔记本知识
• 电脑知识
• 电脑维修
• 软件故障

• · 为何QQ总弹出安全登录验证2则
• · 多媒体升级时常见故障的处理
• · 利用硬盘驱动器号制作防扩散FOXPRO程序
• · 高速视频转换借力CUDA
• · 在KMPlayer中手动切换解码器
• · 如何突破IP加MAC绑定
• · 如何让ACDSee成为默认的图片浏览器
• · SnagIt连续抓以多个窗口
• · SnagIt直接截取灰度图片
• · Nero快速制作精美的光盘封面
• · 完美卸载XP快速卸载顽固软件
• · VoptXP测试驱动器性能
• · VirturlDriver让虚拟光驱开机时自动加载
• · 通过递归调用来搜索文件
• · AutoCAD复制粘贴图纸导致死机
• · 监控软件导致QQ无法登录
• · 提高WindowsXP启动速度的方法
• · Office 2007无法正常卸载怎么办
• · 如何用批处理一次建立或删除多个目录
• · 教你Windows百毒不侵的13个妙招
• · ATI显卡在线看电影时花屏应该如何解决