Как получить свойства шрифта из имени файла шрифта?

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

Вместо этого вы можете использовать класс рамки 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"); 

Если вы хотите получить доступ к более свойств, вы можете создать шрифт объекты:

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);