Ch自定义字符串处理类

1、 第第6章章 自自定义字符串处理类定义字符串处理类1第第6 6章章 定义字符串处理类定义字符串处理类6.1 自定义类的创建自定义类的创建6.2 数据与属性的定义数据与属性的定义6.3 构造函数与销毁函数构造函数与销毁函数6.4 Web 中文文本分词相关函数中文文本分词相关函数6.5 密码穷举相关函数密码穷举相关函数6.6 其它常用函数其它常用函数6.7 类的使用与测试类的使用与测试6.8 本章小结本章小结 第第6章章 自自定义字符串处理类定义字符串处理类26.1 自定义类的创建图 6.1 StringProcess 类的创建 第第6章章 自自定义字符串处理类定义字符串处理类3图 6.2 Str

2、ingProcess 代码编写环境 第第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、于英文文本，单词用空格分隔，只需要对后缀进行处理，即可进行统计分析。缀进行处理，即可进行统计分析。n中文句子是以连续的字符串形式出现的，词与中文句子是以连续的字符串形式出现的，词与词之间没有间隔，这就涉及到中文文本的分词词之间没有间隔，这就涉及到中文文本的分词处理。处理。6.4 Web 中文文本分词相关函数 第第6章章 自自定义字符串处理类定义字符串处理类9n在中文在中文Web信息处理中，如信息检索、信息抽信息处理中，如信息检索、信息抽取，以及图书情报关键词的建立，都需要对文取，以及图书情报关键词的建立，都需要对文本信息进行分词处理。本信息进行分词处理。n对于英文文本，单词用空格分隔，只需要对

7、后对于英文文本，单词用空格分隔，只需要对后缀进行处理，即可进行统计分析。缀进行处理，即可进行统计分析。n中文句子是以连续的字符串形式出现的，词与中文句子是以连续的字符串形式出现的，词与词之间没有间隔，这就涉及到中文文本的分词词之间没有间隔，这就涉及到中文文本的分词处理。处理。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 对象中的