Серый форум — JS: Перечислить имена системных шрифтов (VBS >> JS)

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-23T19:20:35Z

По ощущениям тут много лишнего.

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-23T19:08:44Z

Нет времени. И это работает.

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-23T18:45:52Z

martyn-k
Зачем же сохранять и выполнять vbs, если можно то же самое на JS выполнить? о_0

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-23T18:35:53Z

Вот, что получилось по итогу:


var fonts_arr = get_font_list (false).replace(/& /g, "\n").split("\n");
var w = new Window("palette {preferredSize: [300, 200]}", "", undefined, {resizeable:true});
w.add("dropdownlist", undefined, fonts_arr);
w.show();

function get_font_list (replace)
{ 
          var data_folder_name = "u_data";
          var fonts_file_name = "font_list.txt";
          var script_name = "get_fonts.vbs";
          if ($.os.indexOf("Windows") != -1)
          {
                 var data_folder = new Folder("~" + "\\" + data_folder_name);
                 if (!data_folder.exists) data_folder.create();
                 
                 var data_folder_fs_name = data_folder.fsName.replace(/\\/g, "\\\\");
                 
                 var system_fonts_folder = Folder(Folder.system.parent.fsName + "\\Fonts");

                 var font_list_file = new File(data_folder_fs_name + "\\" + fonts_file_name);

                 if (font_list_file.exists && (font_list_file.modified.getTime() > system_fonts_folder.modified.getTime()))
                 {
                        return read_txt (font_list_file);
                 }
                 
                 var script_fs_name = data_folder_fs_name + "\\" + script_name;
                                                      
                 var script_file = new File(script_fs_name);
                 if (!script_file.exists)
                 {
                        var vbs_code = 'GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\default:StdRegProv")._\
EnumValues &H80000002, "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts", arrNames\
n = UBound(arrNames)\
Do\
    nn = -1\
    For j = LBound(arrNames) to n - 1\
        If arrNames(j) > arrNames(j + 1) Then : TempValue = arrNames(j + 1) : arrNames(j + 1) = arrNames(j) : arrNames(j) = TempValue : nn = j : End If\
    Next\
    n = nn\
Loop Until nn = -1\
For Each Name In arrNames : strValue = strValue & vbCrLf & Name : Next\
CreateObject("Scripting.FileSystemObject").CreateTextFile("' + data_folder_fs_name + '\\\\' + fonts_file_name + '",1).Write Mid(strValue, 2)';
                        script_file.open("w");
                        script_file.write(vbs_code);
                        script_file.close();
                 }
                 system.callSystem("wscript.exe " + data_folder_fs_name + "\\" + script_name);
                 return read_txt (font_list_file);
          }
          else
          {
                  //system.callSystem(); //тут пока пусто
           }
}

function read_txt (txt_file)
{
    txt_file.open("r");
    var content = txt_file.read();
    txt_file.close();
    return content;
}

Из кода, думаю, все понятно: сохраняется vbs-файл, потом он запускается и сохраняет txt-файл (это все Ваше). Если в системной папке со шрифтами произошли изменения, то нужно этот файл перезаписать, а иначе читать из него.
Со всеми сохранениями у меня это выполняется за 450 мс, из них чтение — 300 мс.

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-21T21:32:35Z

Flasher, СПАСИБО!
Очень благодарен Вам за все Ваши варианты!
Пусть Господь благословит Вас на все доброе!!!

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-21T20:50:45Z

Я же привёл цитату. Там сказано о записи в переменные jsx-кода. А приводите опять вывод в файл.

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-21T20:46:06Z

Думаю, не стоит трать время, зависания происходили после экспериментов с кавычками и с использованием параметра start:

system.callSystem("cmd.exe /c \" start cscript.exe D:\\info\\ae\\scripts\\TEST_TEMP_SCRIPTS\\fonts.vbs > D:\\fonts1.txt\"");

От его использования я отказался.
Мне понравилось это:

reg query HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts>D:\\f.txt

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-21T19:09:52Z

martyn-k
Пожалуйста. Вот с этим бы ещё разобраться:

Возвращать значение напрямую рисковано (записывать его в переменную), Афтер бывало ждал-ждал, и зависал.

Как выглядела запись?

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-21T18:24:38Z

Flasher
На AE CC 2015 тоже записалось.
Вы дали решение. ОГРОМНОЕ СПАСИБО!

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-21T18:04:31Z

martyn-k
Этот пункт на CS4 у меня ничего не выводит. Выбрал скрипт через первый пункт:

system.callSystem("wscript.exe D:\\Fonts.vbs");

Запускался этот:

GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")._
EnumValues &H80000002, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", Arr
For Each Name In Arr : S = S & vbCr & Name : Next
CreateObject("Scripting.FileSystemObject").CreateTextFile("D:\Fonts.txt",1).Write Mid(S, 2)

Всё записалось без висов.

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-21T09:59:56Z

Flasher
Не сработало. "Ошибка: Не удается найти указанный раздел или параметр в реестре".
Прописывать: Меню File->Scripts->Open Script Editor. Запуск: F5.

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-21T00:16:05Z

martyn-k
В первом варианте нужно так: ...\\Windows\" \"NT\\...

Скачал AE. Куда прописывать?

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-20T20:58:03Z

Flasher, спасибо.
Простите, со слешами, это невнимательность, я пробовал разные варианты:
Вариант 1, просто запрос:

var str = system.callSystem("reg query HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts>D:\\f.txt");
alert (str);

Вариант 2, без кавычек:

var str = system.callSystem("cmd.exe /c reg query HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts>D:\\f.txt");
alert (str);

Появляется пустой алерт. И создается пустой текстовый файл.
Вариант 3, дополнительные кавычки, это советовали на форумах по After Effects:

var str = system.callSystem('cmd.exe /c \" \"reg query HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts>D:\\f.txt\"\"');
alert (str);

Вариант 4, без /c:

var str = system.callSystem('cmd.exe reg query HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts>D:\\f.txt');
alert (str);

Вариант 5, взял в кавычки запрос:

var str = system.callSystem("cmd /c reg query \"HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts\">D:\\f.txt");
alert (str);

Промелькает консоль со списком:

Затем пустой алерт. Создается пустой текстовый файл. Если закрывающую кавычку (после Fonts) переношу в самый конец, появляется только пустой алерт, файл не создается.
Кратко: /с ставил в разные места, %20, одинарную кавычку, одинарный слеш - все это или не работает, или в алерте пишет про ошибку или отсутствие прав. Без cmd - пишет, что системе не удается найти указанный файл.

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-19T18:50:06Z

martyn-k
Почему после D: нет \\ ? Кавычка перед start и в конце обязательна?
REG имеет код возврата (0/1 = успешно/нет). В цитате я не увидел, что нужно запускать именно через cmd /c.
Нужно выяснить, какой код ждёт AE. Мы же можем использовать WSH.Quit("<код выхода>").
В каком смысле имена разбросаны? Они же по алфавиту идут.

GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")._
EnumValues &H80000002, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", Arr
For Each Name In Arr : S = S & vbCr & Name : Next  : WSH.Echo Mid(S, 2)

Re: JS: Перечислить имена системных шрифтов (VBS >> JS)

2017-02-19T18:09:28Z

martyn-k
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
Исправьте всюду в двух последних опубликованных постах на форуме.