아래 중국어(한어) 번체자(병음)으로 되어있는 문자열에서
병음만 남기는 VBA script이다
您(nín)是(shì)老(lǎo)师(shī)吗(ma) ==> nínshìlǎoshīma
Sub xxxx() Dim regEx, Match, Matches Dim sPinyin As String Set regEx = New RegExp sHan = "您(nín)是(shì)老(lǎo)师(shī)吗(ma)" regEx.Pattern = "\((.*?)\)" '-- 괄호속 문자 찾기(non-greedy) regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(sHan) sPinyin = "" For Each m In Matches sPinyin = sPinyin + m.SubMatches(0) Next Debug.Print sPinyin End Sub
'컴퓨터 > 기타' 카테고리의 다른 글
MS 워드(WORD) VBA -- 테이블 만들기, 무작위로(RANDOM) 셀(cell)선택하고 shading/hiding (0) | 2017.01.06 |
---|---|
중국어(한어) Word 문서에 병음 붙이기 (44) | 2016.12.30 |
unix에서 파일안에 있는 null character space로 대치하기 (0) | 2014.01.17 |
한줄데이타 정해진자릿수(offset)로 나누기 (0) | 2013.07.04 |
압축된 자바스크립트 코드 보기좋게(들여쓰기와 line break되어) 만들기 (0) | 2013.07.03 |