从品牌网站建设到网络营销策划,从策略到执行的一站式服务
Function a(s As String) As String
创新互联于2013年开始,是专业互联网技术服务公司,拥有项目成都网站设计、成都网站制作网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元渭南做网站,已为上家服务,为渭南各地企业和个人服务,联系电话:18982081108
Dim i = s.IndexOf("/")
If i 0 Then
Return s.Substring(0, i)
ElseIf i = 0 Then '第一个字符为"/"
If s.LastIndexOf("/") 0 Then '不只一个"/"
Return s.Substring(0, s.Substring(1).IndexOf("/") + 1)
Else
Return Nothing '只有一个"/"
End If
Else '不含"/"或是空串
Return Nothing
End If
End Function
基本上不出错了
1、找一份词库
2、在“文中”进行分词、匹配
.net和java都有比较成熟的分词和词库,vb实现比较费时
Split只能处理一个字符作为分隔符,你这种情况得自己手工处理, 不能使用Split.
可以这样写:
s = data.Trim.Split(CChar("|"))
s(0) = s(0).Replace("file","")
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图