转自:http://jingyan.baidu.com/article/63acb44adca44461fcc17e85.html 转自:http://jingyan.baidu.com/article/f79b7cb3a577689144023ef0.html Sub xx() ).Row Cells(i, ).Value = getpy(Cells(i, ).Value) Next i End Sub Function pinyin(p As String) As String i = As
从网络上收刮了一些,以备后用 create function fun_getPY(@str nvarchar()) returns nvarchar() as begin declare @word nchar(),@PY nvarchar() set @PY='' begin ) --如果非汉字字符,返回原字符 and + then ( PY from ( select 'A' as PY,N'驁' as word union all select 'B',N'簿' union all sel
十年河东,十年河西,莫欺少年穷 学无止境,精益求精 记录下字符串类库,方便今后查阅 主要包含了字符串解决,去除HTML,SQL注入攻击检测,IP地址处理,Cookies操作,根据身份证获取性别.姓名.年龄等等 代码如下: using System; using System.Collections.Generic; using System.Web; using System.Collections; using System.Text; using System.Text.RegularExp
1.启动Excel 2003(其它版本请仿照操作),打开相应的工作表: 2.执行"工具→宏→Visual Basic编辑器"命令(或者直接按"Alt+F11"组合键),进入Visual Basic编辑状态: 3.执行"插入→模块"命令,插入一个新模块.再双击插入的模块,进入模块代码编辑状态: 4.将代码输入其中: 1 Function pinyin(p As String) As String 2 i = Asc(p) 3 Select Case
--按笔画排序 select * from Student order by Sname COLLATE Chinese_PRC_Stroke_CS_AS_KS_WS --按字母拼音排序 select * from Student order by Sname COLLATE Chinese_PRC_CS_AS_KS_WS
---恢复内容开始--- 1.启动Excel 2003(其它版本请仿照操作),打开相应的工作表: 2 2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键),进入Visual Basic编辑状态: 3 3.执行“插入→模块”命令,插入一个新模块.再双击插入的模块,进入模块代码编辑状态: Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318:
)) ) AS BEGIN DECLARE @py TABLE( ch ), hz1 ) COLLATE Chinese_PRC_CS_AS_KS_WS, hz2 ) COLLATE Chinese_PRC_CS_AS_KS_WS) INSERT @py SELECT 'A','吖','鏊' UNION ALL SELECT 'B','八','簿' UNION ALL SELECT 'C','嚓','错' UNION ALL SELECT 'D','哒','跺' UNION ALL SELECT