Office中国论坛/Access中国论坛

标题: [求助]fan0217老师的字符串截取函数的修改（问题已解决） [打印本页]

作者: asaasa 时间: 2007-7-29 06:32
标题: [求助]fan0217老师的字符串截取函数的修改（问题已解决）
<

>下面是fan0217老师写的字符串截取函数,有些地方需要改动,请高手赐教!!! '=============================================================================== '-函数名称: MySplit '-功能描述: 拆分字符串，获得指定格式 '-输入参数说明: 参数1:strMyStr As String 要拆分的字符串 '-返回参数说明: 拆分：质检20060322-01-15-012-2 将获得：质检2006012 '-使用语法示例: MsgBox MySplit("质检20060322-01-15-012-2") '-参考: '-使用注意: '-兼容性: 97,2000,XP,2003 '-作者: fan0217 <a href="mailto:fan0217@163.com" target="_blank" >fan0217@163.com</A> '-更新日期： 2006-04-10 '=============================================================================== Function MySplit(strMyStr As String) As String Dim strTemp As String 
<

>strTemp = Split(strMyStr, "-", -1)(0) MySplit = Left(strTemp, Len(strTemp) - 4) 
<

>MySplit = MySplit & Split(strMyStr, "-", -1)(3) 

End Function 
问题:我将上面标有红色记号的字改成:分析: <a href="http://876kjfs.sks.163.com/23421.html" target="_blank" >http://876kjfs.sks.163.com/23421.html</A> 和<a href="http://asdf-ss.sks.163.com/65768.html" target="_blank" >http://asdf-ss.sks.163.com/65768.html</A> 将获得：876kjfs.sks.163.com和asdf-ss.sks.163.com 说得通俗点:就是要截取前面的"//"符号和后面的"/"符号中间的网站地址字符串 下面的代码: '=============================================================================== Function MySplit(strMyStr As String) As String Dim strTemp As String 

strTemp = Split(strMyStr, "-", -1)(0) [这句该怎样改动?] MySplit = Left(strTemp, Len(strTemp) - 4) [这句该怎样改动?]

MySplit = MySplit & Split(strMyStr, "-", -1)(3) [这句该怎样改动?]
End Function 
（问题已解决）

[此贴子已经被作者于2007-7-29 4:04:06编辑过]

作者: nxjswt 时间: 2007-7-29 07:30
计算下从左边开始计算的字符的个数啊

作者: asaasa 时间: 2007-7-29 07:36
<

>就是要截取前面的"//"符号和后面的"/"符号中间的网站地址字符串
<

>具体该怎么改?我不会,请指教.

作者: asaasa 时间: 2007-7-29 10:43
自己琢磨了一下修改成功（问题已解决）[em01][em01]

[此贴子已经被作者于2007-7-29 2:43:49编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)