Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点,是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。 一、问题描述:现在有一串字符串内容,想自动识别出词语,这个该怎么来实现? 二、解决方法:可以利用word分词的功能来实现,代码如下: Dim sentence As String Dim words As String Dim WordApp As Object If IsNull(Me.Text74) Then MsgBox "请输入内容。", vbExclamation Me.Text74.SetFocus Exit Sub End If sentence = Me.Text74 words = "" Set WordApp = CreateObject("Word.Application") WordApp.Documents.Add WordApp.Selection.TypeText Text:=sentence WordApp.Selection.HomeKey Do WordApp.Selection.MoveRight Unit:=2, Count:=1, Extend:=1 If WordApp.Selection.Text = vbCr Then Exit Do words = words & WordApp.Selection.Text & ";" WordApp.Selection.MoveRight Unit:=1, Count:=1 Loop WordApp.Quit SaveChanges:=0 Set WordApp = Nothing Me.Text76 = words End 三、演 示:演示 Microsoft Access在很多地方得到广泛使用,例如小型企业,大公司的部门。 |
温馨提示:喜欢本站的话,请收藏一下本站!