如何从字体文件名中获取字体属性？

Question

我正在尝试使用 Linq 遍历 %windir%\Fonts 文件夹中的所有字体，并找到属性标题为“Arial”（或提供的任何字体系列名称）的字体，但我不能似乎可以访问字体属性（例如“标题”、“字体样式”、“设计用于”等）。

以下只是给我基本的文件信息：

     Dim fontDir = Environment.GetEnvironmentVariable("windir") & "\Fonts\"
     Dim fontFiles = From file In My.Computer.FileSystem.GetFiles(fontDir)
     Dim fontInfo = From fontFile In fontFiles Select _
               My.Computer.FileSystem.GetFileInfo(fontFile)

我想在结尾加上...Where fontFile.Title = "Arial" 之类的东西。这里有什么建议吗？

我需要这样做的原因是找到具有一个或多个属性（如 Title）的字体，然后将该字体文件物理复制到另一个目录。

Answer 1

您可以使用 framwework System.Drawing.Text.InstalledFontCollection 类并询问已安装的字体，而不是这样做。获取列表并使用 linq 执行。

或者，按照上面的方式进行操作，您必须将字体加载到System.Drawing.Text.PrivateFontCollection，然后像上面一样应用查询来查找字体。

已编辑添加此内容，以便其他人可以轻松发现它： 为了找到文件关联，我必须通过枚举这些注册表项中的一个或两个来查找字体名称及其对应的字体文件。字体文件夹始终位于“%Windows%\Fonts”

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Fonts

Answer 2

您可能应该使用System.Drawing.Text.InstalledFontCollection 类而不是直接探测文件系统。然后你可以这样做：

var arialFontFamilies = from fontFamily in new InstalledFontCollection().Families
                        where fontFamily.Name.Contains("Arial");

如果您想访问更多属性，可以创建 Font 对象：

var arialFonts = from fontFamily in new InstalledFontCollection().Families
                 where fontFamily.Name.Contains("Arial")
                 select new Font(fontFamily, FontSize.Regular);

如果您仍需要从磁盘上的任何位置访问一组自定义字体，您可以使用 PrivateFontCollection 类：

var fontFiles = from fileInfo in (from file in My.Computer.FileSystem.GetFiles(fontDir) select Computer.FileSystem.GetFileInfo(file));

var privateFonts = new PrivateFontCollection();
foreach (var fontFile in fontFiles)
{
    privateFonts.AddFontFile(fontFile.FullName);
}

var arialFonts = from fontFamily in new privateFonts.Families
                 where fontFamily.Name.Contains("Arial")
                 select new Font(fontFamily, FontSize.Regular);