This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/:~ ~. 1!:1 <'C:/Path/ICD10/icd10withHierarchy.txt' | |
%&'()+,-./0123456789<=>ABCDEFGHIJKLMNOPQRSTUVWXYZ[]abcdefghijklmnopqrstuvwxyz |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#b:: ; Simulate typing of the text on the clipboard | |
KeyWait, LWin ; Ensure that the Windows key has been lifted. | |
KeyWait, RWin | |
ToPaste = %ClipBoard% ; Convert to text | |
Sleep 100 | |
StringReplace, ToPaste, ToPaste, `r`n, `n, All ; Prevent CR+LF from causing two newlines | |
Sleep 100 | |
SendRaw %ToPaste% ; SendRaw simulates typing the characters exactly, including AHK's special !^#+ characters | |
Return |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; Copied from http://www.autohotkey.com/board/topic/10412-paste-plain-text-and-copycut/ | |
#v:: ; Text–only paste from ClipBoard | WIN and V keys are the hotkey | |
KeyWait, LWin ; Wait for the Windows key to be lifted, | |
KeyWait, RWin ; since it would sometimes combine with the pasted text. | |
OldClip = %ClipBoardAll% ; Save formatted text for later | |
ClipBoard = %ClipBoard% ; Convert to text | |
Send ^v ; For best compatibility: SendPlay | simulates pressing CRTL and V keys | |
Sleep 50 ; Don't change clipboard while it is pasted! (Sleep > 0) | |
ClipBoard = %OldClip% ; Restore original ClipBoard | |
VarSetCapacity(OldClip, 0) ; Free memory |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#z:: ; Text–only paste from ClipBoard | |
KeyWait, LWin | |
KeyWait, RWin | |
Clip0 = %ClipBoardAll% ; Save formatted text for later | |
ExcelBound = %Clipboard% | |
Loop, parse, ExcelBound, `r`n | |
{ | |
if A_LoopField = | |
continue | |
nonemptyline := A_LoopField |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
input_text = editor.getSelText() | |
EVENTS = 3 | |
STATES = 2 | |
state_table = [[[0,0] for x in range(EVENTS)] for x in range(STATES)] | |
event_list = [ "\"", "\n\r\t " ] # last event is anything that doesn't match one of the other actions | |
state_table[0] = [[1,0], [0,1], [0,0]] # normal state | |
state_table[1] = [[0,0], [1,0], [1,0]] # double-quote comment |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/python | |
# input_text = editor.getSelText() | |
input_text = '=HLOOKUP(TablePeriods[[#Headers],[YearMonth]],TablePeriods[[#All],[YearMonth]],MATCH([@Date],INDIRECT("TablePeriods[[#All],["&[@Account]&"]]"),-1))' | |
# initialize the state table | |
state_table = {} | |
# event list and corresponding state table | |
event_list = ( "\"", "&", "(", ")", ",", "\n\r\t ", "[", "]", "{", "}" ) # last event is anything that doesn't match one of the other actions |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Explicit | |
Sub FindAllInstances() | |
Dim MyAR() As String | |
Dim i As Long | |
Dim match As String | |
match = "has" | |
i = 0 |
NewerOlder