질문과 답변
소프트웨어 숫자 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 | - | - |
52179 | 윈 도 우| 8.1 노트북 재인증 질문 드려요 [2] | refreshair | 1049 | 10-10 |
52178 | 윈 도 우| 외장하드 드라이브 문자 및 경로 변경 비활성화 문제 [1] | ksire | 3117 | 10-10 |
52177 | 윈 도 우| c드라이브가 아닌 다른 드라이브의 pagefile.sys파일 위치 [3] | zxcnet | 1247 | 10-10 |
52176 | 윈 도 우| 윈도우10 News | 달까마귀 | 1060 | 10-10 |
52175 | 윈 도 우| IP 변경 배치파일 만들려고 하는데요 막히는 부분이 있어서... [2] | 마성의남자 | 1345 | 10-10 |
52174 | 소프트웨어| 아래한글과 MS 워드에서 페이지 전체를 색깔로 채우기 [2] | 나는나다 | 2056 | 10-10 |
52173 | 윈 도 우| wbpe4가 win8.1 up 버전인가요? [2] | brucex | 991 | 10-10 |
52172 | 윈 도 우| 시스템 이미지 복구 [2] | ggggggg | 1115 | 10-10 |
» | 소프트웨어| 숫자 13자리 입력시 자동으로 엔터 입력 [2] | halligalli | 1345 | 10-10 |
52170 | 서버 / IT| 벽 랜선포트 케이블링 문의. [5] | 아힘들다 | 2355 | 10-10 |
52169 | 윈 도 우| 창을 한번에 여러개 뛰우는 방법...문의 [4] | 아힘들다 | 1601 | 10-10 |
52168 | 소프트웨어| OFFICE 2007 SP1 이후의 핫픽스 [5] | bliss | 1401 | 10-10 |
52167 | 소프트웨어| 스타크래프트1 창모드(전체모드) 관련 질문 [2] | 해적왕 | 3923 | 10-10 |
52166 | 하드웨어| KT FTTH 4포트짜리 모뎀 관련 질문입니다 [4] | asklee | 6555 | 10-10 |
52165 | 소프트웨어| 이번에 oCam 업데이트 되면서 [4] | 군진 | 1243 | 10-09 |
52164 | 윈 도 우| 윈7에서 설치시 내문서 폴더 경로를 자동으로 변경하게 하... [2] | 이타카노 | 1157 | 10-09 |
52163 | 윈 도 우| SSD로 RAID 구성시 USB로는 설치가 불가능한가요? [6] | 이프로 | 1197 | 10-09 |
52162 | 윈 도 우| 스크린세이버 관련 에러 메시지 | 마함 | 1237 | 10-09 |
52161 | 하드웨어| 2년 사용할 게임용 PC 조립. [23] | Jejuss | 2232 | 10-09 |
52160 | 윈 도 우| iso파일 재생 오류 | dskang10 | 922 | 10-09 |