아래 중국어(한어) 번체자(병음)으로 되어있는 문자열에서
병음만 남기는 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 |