|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。********************************************************************************
Function(私有)
称号:字符串截取函数
感化:按指定首尾字符串截取内容(本函数为从左向右截取)
参数:sContent----被截取的内容
sStart------首字符串
iStartNo----当首字符串不是独一时取第几个
bIncStart---是不是包括首字符串(1/True为包括,0/False为不包括)
iStartCusor-首偏移值(指针单元为字符数目,左偏用负值,右偏用正值,不偏为0)
sOver-------尾字符串
iOverNo-----当尾字符串不是独一时取第几个
bIncOver----是不是包括尾字符串((1/True为包括,0/False为不包括)
iOverCusor--尾偏移值(指针单元为字符数目,左偏用负值,右偏用正值,不偏为0)
********************************************************************************
PublicFunctionSenFe_Cut(sContent,sStart,iStartNo,bIncStart,iStartCusor,sOver,iOverNo,bIncOver,iOverCusor)
IfsContent""Then
DimiStartLen,iOverLen,iStart,iOver,iStartCount,iOverCount,I
iStartLen=Len(sStart)首字符串长度
iOverLen=Len(sOver)尾字符串长度
首字符串第一次呈现的地位
iStart=InStr(sContent,sStart)
尾字符串在首字符串的右侧第一次呈现的地位
iOver=InStr(iStart+iStartLen,sContent,sOver)
IfiStart>0AndiOver>0Then
IfiStartNo<1OrIsNumeric(iStartNo)=FalseTheniStartNo=1
IfiOverNo<1OrIsNumeric(iOverNo)=FalseTheniOverNo=1
获得首字符串呈现的次数
iStartCount=UBound(Split(sContent,sStart))
IfiStartNo>1AndiStartCount>0Then
IfiStartNo>iStartCountTheniStartNo=iStartCount
ForI=1ToiStartNo
iStart=InStr(iStart,sContent,sStart)+iStartLen
Next
iOver=InStr(iStart,sContent,sOver)
iStart=iStart-iStartLen复原默许形态:包括首字符串
EndIf
获得尾字符串呈现的次数
iOverCount=UBound(Split(Mid(sContent,iStart+iStartLen),sOver))
IfiOverNo>1AndiOverCount>0Then
IfiOverNo>iOverCountTheniOverNo=iOverCount
ForI=1ToiOverNo
iOver=InStr(iOver,sContent,sOver)+iOverLen
Next
iOver=iOver-iOverLen复原默许形态:不包括尾字符串
EndIf
IfCBool(bIncStart)=FalseTheniStart=iStart+iStartLen不包括首字符串
IfCBool(bIncOver)TheniOver=iOver+iOverLen包括尾字符串
iStart=iStart+iStartCusor加上首偏移值
iOver=iOver+iOverCusor加上尾偏移值
IfiStart<1TheniStart=1
IfiOver<=iStartTheniOver=iStart+1
按指定的入手下手和停止地位截取内容
SenFe_Cut=Mid(sContent,iStart,iOver-iStart)
Else
SenFe_Cut=sContent
SenFe_Cut="没有找到您想要的内容,大概您设定的首尾字符串不存在!"
EndIf
Else
SenFe_Cut="没有内容!"
EndIf
EndFunction使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。 |
|