질문과 답변
소프트웨어 숫자 13자리 입력시 자동으로 엔터 입력
2014.10.10 10:44
제가 등기 우편물을 기록하고 있는데
이게 엑셀에서 작업할때 등기번호를 찍으면 자동으로 다음줄로 넘어가지가 않아서 엔터를 추가로 눌러줘야 하는데요
상당히 번거로워서 그런데
오토핫키나 오토잇으로 숫자 13자리 입력시 자동으로 엔터키를 추가로 입력해주는 스크립트좀 부탁드려도 될까요?
댓글 [2]
-
비려막존 2014.10.10 11:32
hotstrings("(\d{13})" , "%$1%{enter}")/*Function: hotstringsDynamically adds regular expression hotstrings.Parameters:c - regular expression hotstringa - (optional) text to replace hotstring with or a label to goto,leave blank to remove hotstring definition from triggering an actionExamples:> hotstrings("(B|b)tw\s", "%$1%y the way") ; type 'btw' followed by space, tab or return> hotstrings("i)omg", "oh my god{!}") ; type 'OMG' in any case, upper, lower or mixed> hotstrings("\bcolou?r", "rgb(128, 255, 0);") ; '\b' prevents matching with anything before the word, e.g. 'multicololoured'License:- Version 2.59 <https://www.autohotkey.net/~polyethene/#hotstrings>- Dedicated to the public domain (CC0 1.0) <https://creativecommons.org/publicdomain/zero/1.0/>*/hotstrings(k, a = ""){static z, m = "*~$", s, t, w = 2000, sd, d = "Left,Right,Up,Down,Home,End,RButton,LButton"global $If z = ; init{RegRead, sd, HKCU, Control Panel\International, sDecimalLoop, 94{c := Chr(A_Index + 32)If A_Index not between 33 and 58Hotkey, %m%%c%, __hs}e = 0,1,2,3,4,5,6,7,8,9,Dot,Div,Mult,Add,Sub,EnterLoop, Parse, e, `,Hotkey, %m%Numpad%A_LoopField%, __hse = BS,Space,Enter,Return,Tab,%d%Loop, Parse, e, `,Hotkey, %m%%A_LoopField%, __hsz = 1}If (a == "" and k == "") ; poll{StringTrimLeft, q, A_ThisHotkey, StrLen(m)If q = BS{If (SubStr(s, 0) != "}")StringTrimRight, s, s, 1}Else If q in %d%s =Else{If q = Spaceq := " "Else If q = Tabq := "`t"Else If q in Enter,Return,NumpadEnterq := "`n"Else If (RegExMatch(q, "Numpad(.+)", n)){q := n1 == "Div" ? "/" : n1 == "Mult" ? "*" : n1 == "Add" ? "+" : n1 == "Sub" ? "-" : n1 == "Dot" ? sd : ""If n1 is digitq = %n1%}Else If (StrLen(q) != 1)q = {%q%}Else If (GetKeyState("Shift") ^ GetKeyState("CapsLock", "T"))StringUpper, q, qs .= q}Loop, Parse, t, `n ; check{StringSplit, x, A_LoopField, `rIf (RegExMatch(s, x1 . "$", $)) ; match{StringLen, l, $StringTrimRight, s, s, lSendInput, {BS %l%}If (IsLabel(x2))Gosub, %x2%Else{Transform, x0, Deref, %x2%SendInput, %x0%}}}If (StrLen(s) > w)StringTrimLeft, s, s, w // 2}Else ; assert{StringReplace, k, k, `n, \n, All ; normalizeStringReplace, k, k, `r, \r, AllLoop, Parse, t, `n{l = %A_LoopField%If (SubStr(l, 1, InStr(l, "`r") - 1) == k)StringReplace, t, t, `n%l%}If a !=t = %t%`n%k%`r%a%}Return__hs: ; eventhotstrings("", "")Return} -
halligalli 2014.10.10 13:20
도와주셔서 감사합니다~
번호 | 제목 | 글쓴이 | 조회 | 등록일 |
---|---|---|---|---|
[공지] | 질문과 답변 게시판 이용간 유의사항 | gooddew | - | - |
52358 | 하드웨어| 강화유리를 컴퓨터 케이스에 붙일라고 하는데 본드 추천좀 ... [5] | 리버낵스 | 1798 | 10-19 |
52357 | 윈 도 우| 윈도우 10 엔터와 서버들 | Callisto | 1222 | 10-19 |
52356 | 윈 도 우| Windows10 UEFI WTG 드라이버 설치 [1] | 가자™ | 1697 | 10-19 |
52355 | 기 타| 윈도우 부팅이 되면 꼭 이런 메세지가 뜹니다 [3] | 현우 | 1939 | 10-19 |
52354 | 윈 도 우| 저기크롬브라이저 [1] | 크롱 | 1231 | 10-18 |
52353 | 윈 도 우| vhd부팅 bcd가 2가지로 나오네요? [3] | brucex | 1061 | 10-18 |
52352 | 하드웨어| 노트북 바이오스업데이트 하다가 날아갔는 [2] | 어사또 | 1508 | 10-18 |
52351 | 기 타| 네이버 스포츠 댓글목록 다 지웠는데 이런 [2] | ㄷㄱ | 1121 | 10-18 |
52350 | 소프트웨어| VMware 가 실행이 안됩니다. [11] | 늘상푸른 | 1695 | 10-18 |
52349 | 윈 도 우| 주기적으로 하드디스크를 깨우는? 소리 나요 [1] | titcat | 1405 | 10-18 |
52348 | 하드웨어| 150만원 대 견적 조언 부탁드려요~ [3] | 초록날개 | 1416 | 10-18 |
52347 | 기 타| 그런데 동물은 세상이 흑백으로 보인다는대 [4] | ㄷㄱ | 1461 | 10-18 |
52346 | 모 바 일| 갤럭시노트 10.1 2014 에디션 lgu+ 32g - 가격 좋은 건지 ... [4] | 나나트리 | 4616 | 10-18 |
52345 | 윈 도 우| ntfs boot record가 없다네요? [3] | brucex | 998 | 10-18 |
52344 | 기 타| Tstory ID [2] | 가자™ | 1063 | 10-18 |
52343 | 기 타| Winows8 에 Internet Explorer 11 [3] | 알미뜽 | 1482 | 10-18 |
52342 | 하드웨어| SSD를 처음 사용해볼까합니다. [20] | 클레멘타인 | 1777 | 10-18 |
52341 | 기 타| 레지스트리로 입력하는 방법을 알고자 합니다. [5] | 巨山 | 1386 | 10-18 |
52340 | 윈 도 우| HP컴퓨터 리커버리모드 질문드립니다. [1] | 나그네_K | 1947 | 10-18 |
52339 | 기 타| WanDrv6.2.2014.1010 요고시 문제네. [2] | @LostED | 1585 | 10-18 |