-
[& Chronicle] 원하는 글자 추출하기VB(A)/당근쨈 & Chronicle 2017. 5. 14. 21:06
지식인 질문인데, 어떤 이유인지 '비공개' 처리가 되어있습니다.
Chronicle님의 풀이내용입니다. - http://blog.naver.com/asaph16/221003500708
LEFT, FIND, REPLACE 와 같은 비교적 대중화 된 함수로 풀이를 하였습니다.
매크로의 경우, 텍스트 추출은 정규식이 와따입니다.
패턴을 짜는 게 까다롭긴 하지만 규칙만 찾아내면 정규식만큼 편한 것도 없습니다.
텍스트 추출이 업무에서 많은 비중을 차지한다면 정규식을 공부해보세요.
Function Macro$(tmp$)Dim Reg As ObjectDim MySet As ObjectDim v$(), i%Set Reg = CreateObject("vbscript.regexp")With Reg.Global = True.Pattern = "\(?(&? ?\w{2,})\)?" '성, 연도를 가져오는 패턴If .test(tmp) ThenSet MySet = .Execute(tmp)ReDim v(MySet.Count - 1)For i = 0 To UBound(v)v(i) = MySet.Item(i)Next iMacro = Join(v)ElseMacro = "-"End IfEnd WithEnd Functioncs 'VB(A) > 당근쨈 & Chronicle' 카테고리의 다른 글
[& Chronicle] 경우의 수 구하기 (0) 2019.02.13 [& Chronicle] 연속근무 일수 구하기 (0) 2019.02.13 [& Chronicle] 표 구조 바꾸기 (0) 2017.05.11 [& Chronicle] 일치하는 패턴 개수 (0) 2017.05.08 [& Chronicle] 그룹별 합계 구하기 (0) 2017.05.07 댓글