网站大量收购独家精品文档,联系QQ:2885784924

自定义字符串处理类.ppt

  1. 1、本文档共21页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
自定义字符串处理类

第6章 定义字符串处理类 6.1 自定义类的创建 6.2 数据与属性的定义 6.3 构造函数与销毁函数 6.4 Web 中文文本分词相关函数 6.5 密码穷举相关函数 6.6 其它常用函数 6.7 类的使用与测试 6.8 本章小结 6.1 自定义类的创建 6.2 数据与属性的定义 Public Enum SortOfCharSet DigitalSet = 0 数字集合 UCaseSet = 1 大写字母集合 LCaseSet = 2 小写字母集合 AllLetters = 3 所有字母集合 AllChars = 4 所有数字和字母集合 UserCharSet = 5 用户字符集 End Enum Private Const _strDigits As String = 0123456789 Private Const _strUCase As String = ABCDEFGHIJKLMNOPQRSTUVWXYZ Private Const _strLCase As String = abcdefghijklmnopqrstuvwxyz“ Private _strCharSet As String Public ReadOnly Property CharSet() As String Get Return _strCharSet End Get End Property Private _eCompare As CompareMethod = CompareMethod.Binary 6.3 构造函数与销毁函数 Private Sub SetCharSet(ByVal nCharSet As SortOfCharSet, _ Optional ByVal strUser As String = ) 设置字符集 Public Sub New() SetCharSet(SortOfCharSet.AllChars) End Sub Public Sub New(ByVal nCharSet As SortOfCharSet, _ Optional ByVal UserCharSet As String = ) SetCharSet(nCharSet, UserCharSet) End Sub Public Sub Dispose() Me.Finalize() End Sub 6.4 Web 中文文本分词相关函数 在中文Web信息处理中,如信息检索、信息抽取,以及图书情报关键词的建立,都需要对文本信息进行分词处理。 对于英文文本,单词用空格分隔,只需要对后缀进行处理,即可进行统计分析。 中文句子是以连续的字符串形式出现的,词与词之间没有间隔,这就涉及到中文文本的分词处理。 6.4 Web 中文文本分词相关函数 在中文Web信息处理中,如信息检索、信息抽取,以及图书情报关键词的建立,都需要对文本信息进行分词处理。 对于英文文本,单词用空格分隔,只需要对后缀进行处理,即可进行统计分析。 中文句子是以连续的字符串形式出现的,词与词之间没有间隔,这就涉及到中文文本的分词处理。 Public Function NextString(ByVal strSource As String, ByVal strSeg As String) As String 获取 第一个strSeg 以后的字符串 以 abc//de//ff, // 为参数,将返回 de//ff Dim I As Integer Dim J As Integer J = strSeg.Length If J = 0 Then Return I = strSource.IndexOf(strSeg, _eCompare) If I = -1 Then Return Else Return strSource.Substring(I + J) End If End Function Public Function GetLeftString(ByVal strSource As String, ByVal strSeg As String) _ As String 获取 strSeg 左边的字符串 以 abc//de//ff, // 为参数,将返回 abc Dim nLoc As I

文档评论(0)

qiwqpu54 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档