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

大写|函数

功能说明:

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

效果演示:

<%

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 if
strArr(x) = tmpWord
End if

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 if
End if

Next
Else
strArr(0) = LCase(strArr(0))
End if

'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 if
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 if
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
%>

时间: 2024-12-05 03:30:52

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

php ucwords() 函数将字符串中每个单词的首字符转换为大写(实现代码)_php实例

php ucwords() 函数将字符串中每个单词的首字符转换为大写, 本文章向码农介绍php ucwords() 函数的基本使用方法和实例,感兴趣的码农可以参考一下. 定义和用法 ucwords() 函数把字符串中每个单词的首字符转换为大写. 注释:该函数是二进制安全的. 相关函数: lcfirst() - 把字符串中的首字符转换为小写 strtolower() - 把字符串转换为小写 strtoupper() - 把字符串转换为大写 ucfirst() - 把字符串中的首字符转换为大写 语法

获取字符串中的汉字拼音首字母_C#教程

获取字符串中的汉字拼音首字母(根据http://blog.csdn.net/iwebsms/archive/2004/09/28/119851.aspx修改) 可能代码比较臃肿,希望有朋友再帮忙改正   //返回给定字符串的首字母   private String IndexCode(String IndexTxt)   {    String _Temp=null;    for(int i=0;i<IndexTxt.Length;i++)     _Temp = _Temp + GetOne

浅谈文章标题字数过短的弊端

中介交易 http://www.aliyun.com/zixun/aggregation/6858.html">SEO诊断 淘宝客 云主机 技术大厅 从用户体验的角度上讲,言简意赅,能够概括出文章的中心思想的标题就是好标题,至于字数,不是侧重的方面.但站在站长的角度去看,为了增加收录.获得访问量,标题字数过短绝对会让你错失很多机会,那么如何综合用户体验度和SEO之间的矛盾,字数应该限定在多少为宜呢?根据个人经验,文章标题字数在10-20之间都是合理的选择. 标题过长,很累赘,超过20个字会

dedecms文章标题是在哪个数据库表?要批量替换关键词

一位小MM刚接触dedecms没多久还不熟悉后台的操作,她说改dedecms文章中的品牌名改到手酸,问ytkah是否有批量替换关键词的方法,教了她dedecms后台批量替换文章中的关键词方法,她高兴坏了,感觉非常神奇!过没几分钟,她又发愁了,说标题还是没变,不知道如何批量替换dedecms文章标题中的关键词. 其实方法是一样的,只是数据表不同而已.那么,dedecms文章标题是在哪个数据库表呢?织梦文章标题在数据库dede_archives表中,如果你有设置数据库表前缀的话,dede换成自己设置

你的文章标题及格了吗?

中介交易 http://www.aliyun.com/zixun/aggregation/6858.html">SEO诊断 淘宝客 云主机 技术大厅 我们都知道今年自媒体很火,很多人都用QQ空间或是其他平台做为自媒体平台去发布信息,打造自己的自媒体之路.而微信订阅号相信大家也都并不陌生,就在前两天一个朋友有跟我聊到关于订阅号文章阅读的情况,发现现在很多人都是同时订阅了很多微信公众号,但公众号内容的阅读量都并不高,大多时候很多订阅号的内容都无法被用户看到.而我发现这个最大的问题就是文章标题问

对标题中特殊字符格式化,以便能换行显示

显示 最近做一个论坛,发现标题中如果有连续的字母或其他特殊字符,比如¥.$...,.~.!...?.*.-,这样将导致不能自动换行,解决的办法是使用如下方法,当标题中连续的字母或特殊字符达到一定的长度时,可以使用指定的tag来强制换行.               public static string FormatStr(string str, int len, string tag)               {                      char[] arrChar =

将字符串中由空格隔开的每个单词首字母大写

 这篇文章主要介绍了如何将字符串中的每个单词的首字母变为大写,需要的朋友可以参考下 字符串中,每个单词由空格隔开,空格的个数不限  代码如下: function capitalize(sting) {  var words = string.split(" ");  for(var i = 0; i < words.length; i++) {  words[i] = words[i].charAt(0).toUpperCase() + words[i].slice(1);  }

winforms-C#Winfrom中如何在combox中输入首字母下拉表中出现对应汉字

问题描述 C#Winfrom中如何在combox中输入首字母下拉表中出现对应汉字 如题,我在数据库中建立了表,首字母和相应的汉字都有,如何在程序中让combox输入首字母显示出汉字呢,就像12306订票系统一样,在站台名中输入首字母出现汉字. 解决方案 因为你已经有你的数据库表,所以可以参考一下根据拼音首字母进行过滤的combobox关于扩展可以支持拼音首字母查询的ComboBox自定义控件,可以参考支持拼音首字母查询的ComboBox 解决方案二: 参考:http://download.csd

php中分页显示文章标题

分页|显示 php中文章标题很多的情况下怎样才能分页显示呢? 下面根据本人的体会把主要代码公开,希望对初学网友有所帮助. $page_size=10;(每页显示数量) $sql='select count(*) as rnt from mydbf'; $sql .= ' order by mytime desc '; $qh=mysql_query($sql); $data=mysql_fetch_array($qh); $nr=$data["cnt"]; $pages=intval(