질문과 답변
소프트웨어 숫자 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 | - | - |
| 52188 | 기 타| 포토샵 2014cc 질문이염 | MSI | 1251 | 10-10 |
| 52187 | 하드웨어| Sandisk x110 SSD 256GB 에 윈도우 7 x64 설치 [3] | 청우 | 1429 | 10-10 |
| 52186 | 윈 도 우| 윈도우 7 x64 Sandisk x110 SSD 에 설치 [12] | 청우 | 3248 | 10-10 |
| 52185 | 소프트웨어| winntsetup 프로그램 or xp 설치 질문 [4] | 연향 | 1486 | 10-10 |
| 52184 | 윈 도 우| boot폴더를 날리고 싶은데요. [8] | brucex | 2487 | 10-10 |
| 52183 | 소프트웨어| 익스플로러11 마우스 프리징현상 [5] | 놀란자라 | 2014 | 10-10 |
| 52182 | 윈 도 우| wimboot 로 설치해봣는데요 ..?? [7] | 푸른푸른 | 1081 | 10-10 |
| 52181 | 윈 도 우| 외장하드에 설치한 wimboot은 인증은 윈도키로 하나요? [6] | brucex | 1042 | 10-10 |
| 52180 | 윈 도 우| 익스플로러 cpu 멀티코어 사용? [3] | 픽미업 | 1125 | 10-10 |
| 52179 | 하드웨어| 너무 똑같아서 혹시 뭐가 차이인지 아시는지요 [3] | joe | 1154 | 10-10 |
| 52178 | 윈 도 우| 8.1 노트북 재인증 질문 드려요 [2] | refreshair | 1052 | 10-10 |
| 52177 | 윈 도 우| 외장하드 드라이브 문자 및 경로 변경 비활성화 문제 [1] | ksire | 3145 | 10-10 |
| 52176 | 윈 도 우| c드라이브가 아닌 다른 드라이브의 pagefile.sys파일 위치 [3] | zxcnet | 1250 | 10-10 |
| 52175 | 윈 도 우| 윈도우10 News | 달까마귀 | 1061 | 10-10 |
| 52174 | 윈 도 우| IP 변경 배치파일 만들려고 하는데요 막히는 부분이 있어서... [2] | 마성의남자 | 1346 | 10-10 |
| 52173 | 소프트웨어| 아래한글과 MS 워드에서 페이지 전체를 색깔로 채우기 [2] | 나는나다 | 2062 | 10-10 |
| 52172 | 윈 도 우| wbpe4가 win8.1 up 버전인가요? [2] | brucex | 992 | 10-10 |
| 52171 | 윈 도 우| 시스템 이미지 복구 [2] | ggggggg | 1118 | 10-10 |
| » | 소프트웨어| 숫자 13자리 입력시 자동으로 엔터 입력 [2] | halligalli | 1349 | 10-10 |
| 52169 | 서버 / IT| 벽 랜선포트 케이블링 문의. [5] | 아힘들다 | 2360 | 10-10 |