Function a(s As String) As String
創(chuàng)新互聯(lián)于2013年開始,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命,1280元渭南做網(wǎng)站,已為上家服務(wù),為渭南各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18982081108
Dim i = s.IndexOf("/")
If i 0 Then
Return s.Substring(0, i)
ElseIf i = 0 Then '第一個(gè)字符為"/"
If s.LastIndexOf("/") 0 Then '不只一個(gè)"/"
Return s.Substring(0, s.Substring(1).IndexOf("/") + 1)
Else
Return Nothing '只有一個(gè)"/"
End If
Else '不含"/"或是空串
Return Nothing
End If
End Function
基本上不出錯(cuò)了
1、找一份詞庫
2、在“文中”進(jìn)行分詞、匹配
.net和java都有比較成熟的分詞和詞庫,vb實(shí)現(xiàn)比較費(fèi)時(shí)
Split只能處理一個(gè)字符作為分隔符,你這種情況得自己手工處理, 不能使用Split.
可以這樣寫:
s = data.Trim.Split(CChar("|"))
s(0) = s(0).Replace("file","")
分享文章:vb.net分詞的簡單介紹
路徑分享:http://sd-ha.com/article6/hdhjig.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供虛擬主機(jī)、自適應(yīng)網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、小程序開發(fā)、定制開發(fā)、軟件開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)