我常用的小模块-自动生成简体中文拼音码

'*******************************************

Public Function GetTextFirstLetter(strText As String) As String
'求出一字串的全部首字母
Dim t As Integer
Dim strTempLetters As String
For t = 1 To Len(Trim(strText))
    strTempLetters = strTempLetters + GetCharFirstLetter(Asc(Mid(strText, t, 1)))
Next
GetTextFirstLetter = strTempLetters
End Function

Private Function GetCharFirstLetter(intChar As Integer) As String
'求出单个汉字的首字母,内部调用
'输入汉字asc码,输出首字母
Select Case intChar
Case Is >= 0:          GetCharFirstLetter = Chr(intChar)
Case Is >= -10246:     GetCharFirstLetter = " "
Case Is >= -11055:     GetCharFirstLetter = "Z"
Case Is >= -11847:     GetCharFirstLetter = "Y"
Case Is >= -12556:     GetCharFirstLetter = "X"
Case Is >= -12838:     GetCharFirstLetter = "W"
Case Is >= -13318:     GetCharFirstLetter = "T"
Case Is >= -14090:     GetCharFirstLetter = "S"
Case Is >= -14149:     GetCharFirstLetter = "R"
Case Is >= -14630:     GetCharFirstLetter = "Q"
Case Is >= -14914:     GetCharFirstLetter = "P"
Case Is >= -14922:     GetCharFirstLetter = "O"
Case Is >= -15165:     GetCharFirstLetter = "N"
Case Is >= -15640:     GetCharFirstLetter = "M"
Case Is >= -16212:     GetCharFirstLetter = "L"
Case Is >= -16474:     GetCharFirstLetter = "K"
Case Is >= -17417:     GetCharFirstLetter = "J"
Case Is >= -17922:     GetCharFirstLetter = "H"
Case Is >= -18239:     GetCharFirstLetter = "G"
Case Is >= -18526:     GetCharFirstLetter = "F"
Case Is >= -18710:     GetCharFirstLetter = "E"
Case Is >= -19218:     GetCharFirstLetter = "D"
Case Is >= -19775:     GetCharFirstLetter = "C"
Case Is >= -20283:     GetCharFirstLetter = "B"
Case Is >= -20319:     GetCharFirstLetter = "A"
Case Else:             GetCharFirstLetter = " "
End Select
End Function
 

根据你输入的汉子 自动生成五笔代码和拼音代码(简码:取每个汉子的拼音的首字母或者每个汉子的五笔的首字母)本人写了两个存储过程 其实几乎差不多 但是往往啊 会因为一点点小问题导致代码失败 不过 下面的两个存储过程都是成功的 我是因为那么一点点小问题测试了一个上午才搞定了的:对应存储过程 output的参数 一定要先set@=‘’一下才能使用 否则即便是output被赋值了 可以print,但是通过程序代码还是获取不到值的 如下:(具体的在附件里哦,附件里有表数据和存储过程和c#程序代码片段):--drop procedure ChineseCode; ----------一 create procedure ChineseCode(@strkey varchar(30),@rekeysPY varchar(30) output, @rekeysWB varchar(30) output) as declare @keylength int declare @nowstep int declare @temppy varchar(20) declare @tempwb varchar(20) declare @tempkey varchar(4) declare @strpy varchar(30) declare @strwb varchar(30) set @keylength=len(@strkey) set @nowstep=1 set @strpy='' set @strwb='' 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 end set @rekeysPY=@strpy set @rekeysWB=@strwb print @rekeysPY+'--'+@rekeysWB end GO --------------------二 --drop procedure ChineseCode; create procedure ChineseCode ( @strkey varchar(30) , @rekeysPY varchar(30) output, @rekeysWB varchar(30) output) as declare @keylength int declare @i int declare @temppy varchar(10) declare @tempwb varchar(10) declare @tempkey varchar(2) set @keylength=len(@strkey) set @i=1 set @temppy='' set @tempwb='' set @rekeysPY='' set @rekeysWB='' begin while (@i<=@keylength) 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 print @rekeysPY+'--'+@rekeysWB end GO ----------------三 c#代码 PubClass.ContSql db = new MilkDisPatchingManage.PubClass.ContSql(); SqlCommand sqlcmd = new SqlCommand(); sqlcmd.CommandType = CommandType.StoredProcedure; sqlcmd.CommandText = "ChineseCode"; sqlcmd.Parameters.Add("@strkey", SqlDbType.VarChar, 30); sqlcmd.Parameters["@strkey"].Value=this.textBox1.Text.Trim();//.Direction=ParameterDirection.Input; sqlcmd.Parameters.Add("@rekeysPY", SqlDbType.VarChar,30); sqlcmd.Parameters["@rekeysPY"].Direction = ParameterDirection.Output; sqlcmd.Parameters.Add("@rekeysWB", SqlDbType.VarChar,30); sqlcmd.Parameters["@rekeysWB"].Direction = ParameterDirection.Output; int i= db.ExtCom(sqlcmd); this.textBox2.Text = sqlcmd.Parameters["@rekeysPY"].Value.ToString(); this.textBox3.Text = sqlcmd.Parameters["@rekeysWB"].Value.ToString(); db.CloseCon();
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值