注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

可以把文章标题中的英文单词的首字母变成大写的函数  

2011-06-07 13:33:03|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

功能说明:
可以把文章标题中的英文单词的首字母变成大写:)
效果演示:
%
function PCase(strInput)
 'Variable declaration.
 Dim strArr
 Dim tmpWord
 Dim tmpString
 Dim last
 'Create an array To store Each word In the String separately.
 strArr = split(strInput, )
 if ubound(strArr)  0 Then
 For x = lbound(strArr) To ubound(strArr)
 'Set Each word To lower Case initially.
 strArr(x) = LCase(strArr(x))
 'Skip the unimportant words.
 Select Case strArr(x)
 Case a
 Case an
 Case and
 Case but
 Case by
 Case for
 Case in
 Case into
 Case is
 Case of
 Case off
 Case on
 Case onto
 Case or
 Case the
 Case to
 Case a.m.
 strArr(x) = A.M.
 Case p.m.
 strArr(x) = P.M.
 Case b.c.
 strArr(x) = B.C.
 Case a.d.
 strArr(x) = A.D.
 Case Else

 'Capitalize the first letter, but don't forget To take into account that
 'the String may be in Single or Double quotes.
 if len(strArr(x))  1 Then
 if mid(strArr(x),1,1) = ' or mid(strArr(x),1,1) =  Then
 tmpWord = mid(strArr(x),1,1)  Ucase(mid(strArr(x),2,1))  mid(strArr(x),3,len(strArr(x))-2)
 Else
 tmpWord = Ucase(mid(strArr(x),1,1))  mid(strArr(x),2,len(strArr(x))-1)
 End i
 strArr(x) = tmpWord
 End i

 End Select
 'The unimportant words may need To be capitalized if they follow a dash, colon,
 'semi-colon, Single quote or Double quote.
 if x  0 Then
 if instr(strArr(x-1),-) _
 or instr(strArr(x-1),:) _
 or instr(strArr(x-1),;) Then
 tmpWord = Ucase(mid(strArr(x),1,1))  mid(strArr(x),2,len(strArr(x))-1)
 strArr(x) = tmpWord
 End i
 End i

 Next
 Else
 strArr(0) = LCase(strArr(0))
 End i
 'Make sure the first word In the array is upper case, but don't forget To take into account
 'that the String may be in Single or Double quotes.
 if mid(strArr(0),1,1) = ' or mid(strArr(0),1,1) =  Then
 tmpWord = mid(strArr(0),1,1)  Ucase(mid(strArr(0),2,1))  mid(strArr(0),3,len(strArr(0))-2)
 Else
 tmpWord = Ucase(mid(strArr(0),1,1))  mid(strArr(0),2,len(strArr(0))-1)
 End i
 strArr(0) = tmpWord
 'Also, make sure the last word In the array is upper case, but don't forget To take into account
 'that the String may be in Single or Double quotes.
 last = ubound(strArr)
 if mid(strArr(last),1,1) = ' or mid(strArr(last),1,1) =  Then
 tmpWord = mid(strArr(last),1,1)  Ucase(mid(strArr(last),2,1))  mid(strArr(0),3,len(strArr(last))-2)
 Else
 tmpWord = Ucase(mid(strArr(last),1,1))  mid(strArr(last),2,len(strArr(last))-1)
 End i
 strArr(last) = tmpWord
 'Rebuild the whole String from the array parts.
 For x = lbound(strArr) To ubound(strArr)
 tmpString = tmpString  strArr(x)   
 Next

 PCase = tmpString
 End function
%

  评论这张
 
阅读(90)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017