구현된 기능은 제목 + 제목에 중국어 이외의 문자와 중국어 구두점 문자를 제외한 인접한 두 문자의 집합입니다. 전설에 따르면 이것이 기사를 수집하고 키워드를 처리하는 가장 좋은 방법이라고 합니다. 하하, 제가 만들어 보았습니다. .
<스크립트 언어=vbs>
'CreateKeyWords(키워드) 함수
'키워드 생성 시스템
희미한 i,L,TempStr
KeyWords_Temp=reReplace(키워드, [/x00-/xff]|/n| | |,|.|,|!|?|:|||[|]|—|—|(|)|..., )
L=렌(키워드_온도)
i=1에서 L-1까지
TempStr=TempStr & , & Mid(KeyWords_Temp,i,2)
다음
CreateKeyWords=키워드 및 TempStr
기능 종료
함수 reReplace(Str, restrS, restrD)
'정규 표현식으로 작성된 대체
'www.yongfa365.com에서 제작
re = New RegExp로 설정
re.IgnoreCase = 참
re.Global = 참
re.Pattern = restrS
reReplace = re.Replace(Str, restrD)
기능 종료
MsgBox CreateKeyWords(안녕하세요 안녕하세요 제가 누군지 아시나요? , 하하 저는 유용화()yongfa365 아시나요)
</script>