Pull to refresh

Так совпало, что прочитал сегодня на Хабре о том, что люди, по мнению Google, могут обмениваться своими наработками и подходами к медицине (мнение высказал у себя в сообществе ВКонтакте), также статью о том, что сисадмины не любят делиться своими скриптами по типу "набросал за пару минут, использую и ни с кем не делюсь - там всё просто и каждый то же самое без проблем может сделать", а также сегодня же скриптик написал для подготовки к печати данных по давлению и пульсу из Samsung Health и решил поделиться здесь вполне рабочим решением. Сначала вручную фиксируем давление и пульс в Samsung Health при каждом измерении тонометром (данные по пульсу с фитнес браслета у меня фиксируются автоматически, можно потом обрабатывать так же). Когда нужно, экспортирую в html данные за последние 2 недели, месяц, два или три месяца (для пульса делал ещё сортировку для кардиолога {у меня брадикардия была}). Потом отправляю файл на комп (через поделиться, Samsung с Microsoft здесь дружат) и перетаскиваю полученный файл (данные с давлением и пульсом) на предложенный скрипт ("Для печати кардиологу.js"), или в качестве первого неименованного параметра при запуске указываю путь к полученному файлу (перетаскивание файла/файлов на скрипт {CMD/JS/VBS} в Windows просто передаёт полные пути в качестве аргументов в этот скрипт). Замечу ещё, что у меня в качестве кодировки скриптов на Windows 10 установлена utf-8, для других вариантов параметр -2 вызываемого метода fso не проверял.

var fso=new ActiveXObject("Scripting.FileSystemObject");
var a = WSH.Arguments; if(a.length){
    s = fso.OpenTextFile(fn=(a.UnNamed.Item(0)), 1, false, -2).ReadAll();
    s = s.replace(/(table.tableWithBorder.*font-size:)41px/, "$125px")
        .replace(/ style="min-width:\d+px"/gi, "")
        .replace(/ style="height:113px"/i, "")
        .replace(/ style="height:75px"/gi, "")
        .replace(/(id="tableTitleDiv".*Заметки)/i, "$1");
    s = s.replace(RegExp.$1, RegExp.$1.replace(/width:\d+px;/gi, ""));
    fso.OpenTextFile(fn.replace(/[_.](html)$/, " (вариант для печати).$1"), 2, true, -2).Write(s);
}
В результате получается что-то вроде этого
В результате получается что-то вроде этого

Не говорю, что скрипт идеален, но JS (WSH) был для меня довольно долгое время основным рабочим инструментом, поэтому пользуюсь по старой памяти без особого напряга. Скрипт меняет размер шрифта и таблицу, чтобы она помещалась по ширине на книжную страничку A4.

Tags:
Total votes 1: ↑1 and ↓0+2
Comments2

Articles