首页 相关文章 获取汉字拼音的第一个字母

获取汉字拼音的第一个字母

  script language="vbs" src="spellcode.vbs"/script

  
  '获取客户简称的拼音缩写
   function getpy()
   dim str
   dim i
   str=document.all.txtContactName.value
   dim ret
   for i=1 to len(str)
   ret=ret&getpychar(mid(str,i,1))
   next
   document.all.txtSpellCode.value=ret
   end function
   getpychar=char
   end if
  end function
  spellCode...[ 查看全文 ]

2016-02-19 标签:

获取汉字拼音的第一个字母的相关文章

手机页面
收藏网站 回到头部