<script language="vbs"> 'Function CreateKeyWords(KeyWords) '關鍵字生成系統 Dim i,L,TempStr KeyWords_Temp=reReplace(KeyWords, "[/x00-/xff]|/n| | |，|。|、|！|？|：|"|"|［|］|—|—|（|）|…", "") L=Len(KeyWords_Temp) For i=1 To L-1 TempStr=TempStr & "," & Mid(KeyWords_Temp,i,2) Next CreateKeyWords=KeyWords & TempStr End Function
Function reReplace(Str, restrS, restrD) '正則表達式寫的替換 'Made by www.yongfa365.com Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = restrS reReplace = re.Replace(Str, restrD) End Function
