wyfinger

// ==UserScript==
// @name         die fuckers
// @namespace    http://tampermonkey.net/
// @version      0.1
// @description  disable some fucking events
// @author       wyfinger
// @match        *://*/*
// @run-at       document-end
// @grant        none
// ==/UserScript==

wyfinger

Нередко в ветвлениях требуется проверять три условия сразу.

wyfinger

many many many
...
2020-01-08 Masters of Doom, David Kushner

wyfinger

Public Sub ExtractCommentsToNewDoc()

    '=========================
    'Macro created 2007 by Lene Fredborg, DocTools - www.thedoctools.com
    'Revised October 2013 by Lene Fredborg: Date column added to extract
    'THIS MACRO IS COPYRIGHT. YOU ARE WELCOME TO USE THE MACRO BUT YOU MUST KEEP THE LINE ABOVE.
    'YOU ARE NOT ALLOWED TO PUBLISH THE MACRO AS YOUR OWN, IN WHOLE OR IN PART.
    '=========================
    'The macro creates a new document
    'and extracts all comments from the active document

wyfinger

Sub EditComment()
  If ActiveDocument.Comments.Count = 0 Then Exit Sub
  For i = 1 To ActiveDocument.Comments.Count
    If (Selection.Start >= ActiveDocument.Comments(i).Scope.Start) And _
       (Selection.Start <= ActiveDocument.Comments(i).Scope.End) Then
        ActiveDocument.Comments(i).Author = InputBox(ActiveDocument.Comments(i).Author _
     & vbCrLf & vbCrLf & ActiveDocument.Comments(i).Range.Text, "Author", ActiveDocument.Comments(i).Author)
   End If
  Next
End Sub

wyfinger

// ==UserScript==
// @name         ED Helper
// @version      0.1
// @description  ED Help to Examine
// @author       Igor Matveev miv@prim.so-ups.ru
// @match        ***ED TEST SITE***
// @include      ***ED TEST SITE***
// @grant        none
// run-at        document-end
// ==/UserScript==

wyfinger

So, if you need to convert BGR (as $00BBGGRR) color to RGB (as $00RRGGBB) you can extract individual bytes of color and combine it. But let's do it without additional variables, as brain training.

Var 1: assembler

BSWAP - that's almost what we need. This command swap $AABBCCDD to $DDCCBBAA, later we can shift bytes right.

mov eax,AABBCC

bswap eax ; EAX = CCBBAA00

wyfinger

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} HyperlinkCheckForm 
   Caption         =   "Hyperlink"
   ClientHeight    =   1260
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   17070
   OleObjectBlob   =   "HyperlinkCheckForm.frx":0000
   StartUpPosition =   2  'CenterScreen
End

wyfinger

day=308; # day of year
longitude=131.9551; # lonDegree + lonMinutes/60 + lonSeconds/3600
latitude=43.1096; # latDegree + latMinutes/60 + latSeconds/3600
zenith=90.8; # angle of sunrise or sunset, with correction by the interference of light in the atmosphere 

# sunrise calculation
lngHour = longitude / 15;
trise = day + ((6-lngHour)/24);
Mrise = (0.9856*trise)-3.289;
Lrise = Mrise+(1.916*sin(pi*Mrise/180))+(0.020*sin(2*pi*Mrise/180))+282.634;

wyfinger

@ECHO OFF

SET filelist=pdflist.txt
SET textfile=c:\PDF\text.txt
SET outfile=pdfcheck.txt

rem delete results log
del /Q %outfile%

rem  check files to text layer in loop