Ch自定義字符串處理類

1、 第第6章章 自自定義字符串處理類定義字符串處理類1第第6 6章章 定義字符串處理類定義字符串處理類6.1 自定義類的創(chuàng)建自定義類的創(chuàng)建6.2 數據與屬性的定義數據與屬性的定義6.3 構造函數與銷毀函數構造函數與銷毀函數6.4 Web 中文文本分詞相關函數中文文本分詞相關函數6.5 密碼窮舉相關函數密碼窮舉相關函數6.6 其它常用函數其它常用函數6.7 類的使用與測試類的使用與測試6.8 本章小結本章小結 第第6章章 自自定義字符串處理類定義字符串處理類26.1 自定義類的創(chuàng)建圖 6.1 StringProcess 類的創(chuàng)建 第第6章章 自自定義字符串處理類定義字符串處理類3圖 6.2 Str

2、ingProcess 代碼編寫環(huán)境 第第6章章 自自定義字符串處理類定義字符串處理類4nPublic Enum SortOfCharSetn DigitalSet = 0 數字集合數字集合n UCaseSet = 1 大寫字母集合大寫字母集合n LCaseSet = 2 小寫字母集合小寫字母集合n AllLetters = 3 所有字母集合所有字母集合n AllChars = 4 所有數字和字母集合所有數字和字母集合n UserCharSet = 5 用戶字符集用戶字符集nEnd Enum6.2 數據與屬性的定義 第第6章章 自自定義字符串處理類定義字符串處理類5nPrivate Const

3、_strDigits As String = 0123456789nPrivate Const _strUCase As String = ABCDEFGHIJKLMNOPQRSTUVWXYZnPrivate Const _strLCase As String = abcdefghijklmnopqrstuvwxyz“nPrivate _strCharSet As StringnPublic ReadOnly Property CharSet() As Stringn Getn Return _strCharSetn End GetnEnd PropertynPrivate _eCompare

4、 As CompareMethod = CompareMethod.Binary 第第6章章 自自定義字符串處理類定義字符串處理類6nPrivate Sub SetCharSet(ByVal nCharSet As SortOfCharSet, _n Optional ByVal strUser As String = )n設置字符集設置字符集6.3 構造函數與銷毀函數 第第6章章 自自定義字符串處理類定義字符串處理類7nPublic Sub New()n SetCharSet(SortOfCharSet.AllChars)nEnd SubnPublic Sub New(ByVal nChar

5、Set As SortOfCharSet, _n Optional ByVal UserCharSet As String = )n SetCharSet(nCharSet, UserCharSet)nEnd SubnPublic Sub Dispose()n Me.Finalize()nEnd Sub 第第6章章 自自定義字符串處理類定義字符串處理類8n在中文在中文Web信息處理中，如信息檢索、信息抽信息處理中，如信息檢索、信息抽取，以及圖書情報關鍵詞的建立，都需要對文取，以及圖書情報關鍵詞的建立，都需要對文本信息進行分詞處理。本信息進行分詞處理。n對于英文文本，單詞用空格分隔，只需要對后對

6、于英文文本，單詞用空格分隔，只需要對后綴進行處理，即可進行統(tǒng)計分析。綴進行處理，即可進行統(tǒng)計分析。n中文句子是以連續(xù)的字符串形式出現的，詞與中文句子是以連續(xù)的字符串形式出現的，詞與詞之間沒有間隔，這就涉及到中文文本的分詞詞之間沒有間隔，這就涉及到中文文本的分詞處理。處理。6.4 Web 中文文本分詞相關函數 第第6章章 自自定義字符串處理類定義字符串處理類9n在中文在中文Web信息處理中，如信息檢索、信息抽信息處理中，如信息檢索、信息抽取，以及圖書情報關鍵詞的建立，都需要對文取，以及圖書情報關鍵詞的建立，都需要對文本信息進行分詞處理。本信息進行分詞處理。n對于英文文本，單詞用空格分隔，只需要對

7、后對于英文文本，單詞用空格分隔，只需要對后綴進行處理，即可進行統(tǒng)計分析。綴進行處理，即可進行統(tǒng)計分析。n中文句子是以連續(xù)的字符串形式出現的，詞與中文句子是以連續(xù)的字符串形式出現的，詞與詞之間沒有間隔，這就涉及到中文文本的分詞詞之間沒有間隔，這就涉及到中文文本的分詞處理。處理。6.4 Web 中文文本分詞相關函數 第第6章章 自自定義字符串處理類定義字符串處理類10nPublic Function NextString(ByVal strSource As String, ByVal strSeg As String) As Stringn 獲取獲取 第一個第一個strSeg 以后的字符串以后的

8、字符串n 以以 abc/de/ff, / 為參數，將返回為參數，將返回 de/ffn Dim I As Integern Dim J As Integern J = strSeg.Lengthn If J = 0 Then Return n I = strSource.IndexOf(strSeg, _eCompare)n If I = -1 Thenn Return n Elsen Return strSource.Substring(I + J)n End IfnEnd Function 第第6章章 自自定義字符串處理類定義字符串處理類11nPublic Function GetLeftS

9、tring(ByVal strSource As String, ByVal strSeg As String) _n As Stringn 獲取獲取 strSeg 左邊的字符串左邊的字符串n 以以 abc/de/ff, / 為參數，將返回為參數，將返回 abcn Dim nLoc As Integern nLoc = strSource.IndexOf(strSeg, _eCompare)n If nLoc = -1 Thenn Return strSourcen Elsen Return strSource.Substring(0, nLoc)n End IfnEnd Function 第

10、第6章章 自自定義字符串處理類定義字符串處理類12nPublic Function GetNumTail(ByVal strSource As String, ByVal strSeg As String, _n ByVal nLocation As Integer) As Stringn 獲取被獲取被 strSeg 分隔的第分隔的第 n 個字符串尾巴，個字符串尾巴，0 將直接返將直接返回整個字符串回整個字符串n 以以 abc/de/ff,/,1 為參數，將返回為參數，將返回 de/ffn Dim I As Integer = 0n Dim strTmp As String = strSour

11、cen If nLocation = 0 Then Return strSourcen Do While I nLocation AndAlso strTmp n strTmp = NextString(strTmp, strSeg)n I = I + 1n Loopn Return strTmpnEnd Function 第第6章章 自自定義字符串處理類定義字符串處理類13nPublic Function GetNumString(ByVal strSource As String, _n ByVal strSeg As String, _n ByVal nLocation As Integ

12、er) As Stringn 獲取獲取 第第 nLocation 個個 strSeg 前面的一段字符串，前面的一段字符串，Start from 0.n 以以 abc/de/ff, /, 1 為參數，將返回為參數，將返回 den Dim strVal(0) As Stringn Dim strResult() As Stringn strVal(0) = strSegn strResult = strSource.Split(strVal, StringSplitOptions.RemoveEmptyEntries)n If nLocation = strResult.Length Thenn

13、Return n Elsen Return strResult(nLocation)n End IfnEnd Function 第第6章章 自自定義字符串處理類定義字符串處理類14nPublic Function GetLastString(ByVal strSource As String, ByVal strSeg As String) _n As Stringn 獲取獲取 strSeg 分隔的最后一段子字符串分隔的最后一段子字符串n 以以 abc/de/ff, / 為參數，將返回為參數，將返回 ffn Dim nLen As Integern Dim nLoc As Integern n

14、Len = strSeg.Lengthn nLoc = strSource.LastIndexOf(strSeg)n If nLoc = -1 Thenn Return n Elsen Return strSource.Substring(nLoc + nLen)n End IfnEnd Function 第第6章章 自自定義字符串處理類定義字符串處理類15nPublic Function GetLastString(ByVal strSource As String, ByVal strSeg As String) _n As Stringn 獲取獲取 strSeg 分隔的最后一段子字符串分

15、隔的最后一段子字符串n 以以 abc/de/ff, / 為參數，將返回為參數，將返回 ffn Dim nLen As Integern Dim nLoc As Integern nLen = strSeg.Lengthn nLoc = strSource.LastIndexOf(strSeg)n If nLoc = -1 Thenn Return n Elsen Return strSource.Substring(nLoc + nLen)n End IfnEnd Function 第第6章章 自自定義字符串處理類定義字符串處理類16nPublic Function GenNextDate(B

16、yVal strPW As String) As Stringn 輸入輸入691231, 輸出輸出700101n Dim strTmp As Stringn Dim dt As Daten If strPW.Length 6 OrElse CheckLegalChars(strPW, _strDigits) = False Then Return n strTmp = strPW.Insert(4, -)n strTmp = strTmp.Insert(2, -)n Tryn dt = DateTime.Parse(strTmp)n dt = dt.AddDays(1)n Return dt.

17、ToString(yyMMdd)n Catch ex As Exceptionn Return n End TrynEnd Function6.5 密碼窮舉相關函數 第第6章章 自自定義字符串處理類定義字符串處理類17nPublic Function GenPreviousDate(ByVal strPW As String) As Stringn 輸入輸入700101, 輸出輸出691231n Dim strTmp As Stringn Dim dt As DateTimen If strPW.Length 6 OrElse CheckLegalChars(strPW, _strDigits

18、) = False _n Then Return n strTmp = strPW.Insert(4, -)n strTmp = strTmp.Insert(2, -)n Tryn dt = DateTime.Parse(strTmp)n dt = dt.AddDays(-1)n Return dt.ToString(yyMMdd)n Catch ex As Exceptionn Return n End TrynEnd Function 第第6章章 自自定義字符串處理類定義字符串處理類18nPublic Function ReplaceSubString(ByVal strSource As

19、 String, _n ByVal strOld As String, _n ByVal strNew As String) As Stringn 輸入：輸入：ab*cd*e,*,22 輸出：輸出：ab22cd*e,只替換第一個只替換第一個n If strSource.Contains(strOld) = False OrElse strOld = OrElse strNew = _n Then Return strSourcen Dim nLocation As Integer = strSource.IndexOf(strOld, _eCompare)n Dim nOldLen As In

20、teger = strOld.Lengthn If nLocation = -1 OrElse nOldLen = 0 Thenn Return strSourcen Elsen Return strSource.Substring(0, nLocation) & strNew _n & strSource.Substring(nLocation + nOldLen)n End IfnEnd Function6.6 其它常用函數 第第6章章 自自定義字符串處理類定義字符串處理類19nPublic oString As StringProcess.StringProcess = New StringProcess.StringProcess6.7 類的使用與測試圖 6.3 StringProcess 對象中的