返回给定汉字串的首字母串！

kowloons 2002-04-13 01:24:23
我有一个东日通讯软件，不过好像用Delphi开发的，她支持用首字母来查找用户，我很是欢喜，试想用PB来做一个类似的通讯软件，试问这在PB中该如何实现！
...全文
85 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
kowloons 2002-04-26
  • 打赏
  • 举报
 回复
k
ameng007 2002-04-26
  • 打赏
  • 举报
 回复
给你一个吧：
function GetPYIndexChar(hzchar: string): String;
begin
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
$B0A1..$B0C4: result := 'A'; $B0C5..$B2C0: result := 'B';
$B2C1..$B4ED: result := 'C'; $B4EE..$B6E9: result := 'D';
$B6EA..$B7A1: result := 'E'; $B7A2..$B8C0: result := 'F';
$B8C1..$B9FD: result := 'G'; $B9FE..$BBF6: result := 'H';
$BBF7..$BFA5: result := 'J'; $BFA6..$C0AB: result := 'K';
$C0AC..$C2E7: result := 'L'; $C2E8..$C4C2: result := 'M';
$C4C3..$C5B5: result := 'N'; $C5B6..$C5BD: result := 'O';
$C5BE..$C6D9: result := 'P'; $C6DA..$C8BA: result := 'Q';
$C8BB..$C8F5: result := 'R'; $C8F6..$CBF9: result := 'S';
$CBFA..$CDD9: result := 'T'; $CDDA..$CEF3: result := 'W';
$CEF4..$D1B8: result := 'X'; $D1B9..$D4D0: result := 'Y';
$D4D1..$D7F9: result := 'Z'; else result := '';
end;
end;
tiger201 2002-04-13
  • 打赏
  • 举报
 回复
有得下，只是网上流行的那个取首字母程序，比较乱！！！
它是按区位码做的，二级汉字很多都不准。
获取字符串中的汉字拼音首字母
获取字符串中的汉字拼音首字母（根据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 + GetOneIndex( IndexTxt.Substring(i,1) );    return _Temp;
VBScript 语言参考中文手册CHM
VBScript 语言参考 特性信息 字母顺序关健字列表 常数 错误 事件 函数 方法 对象 运算符 属性 语句 欢迎使用 VBScript 语言参考 通过对信息进行分组，可以使您方便地研究 Visual Basic 脚本的各个主题。 可以在“字母顺序关键字列表”中找到 VBScript 语言的所有主题。如果只需要查看某个主题（例如对象），则有对该主题进行详细说明的章节可供查阅。 如何操作呢？单击左边任意一个标题，即可显示该标题所包含的项目列表。从该列表中选择要查看的主题。打开所选主题之后，就能够很容易地链接到其他相关章节。 请尽情浏览 JScript 语言参考的各个部分，您会发现 VBScript 语言有多么丰富。 特性 说明 版本信息 按主机应用排序的 VBScript 版本列表和按版本排序的特性列表. VBScript 特性 VBScript 最新特性列表 未包含在 VBScript 中的 VBA 特性 VBScript 最新特性列表：未包含在 VBScript 中的应用程序编辑。 未包含在 VBA 中的 VBScript 特性 未包含在 Visual Basic 中的 VBScript 特性列表：应用程序编辑。 Microsoft Scripting 运行时特性 VBScript 中最新的 Scripting 运行时特性列表。 语言元素 说明 Abs 函数 返回数的绝对值。 加法运算符 (+) 两数相加。 And 运算符 执行两个表达式的逻辑连接。 Array 函数 返回含一数组的 变体 。 Asc 函数 返回字符串首字母的 ANSI 字符代码。 赋值运算符 (=) 给变量或属性赋值。 Atn 函数 返回数的反正切值。 Call 语句 将控制移交 Sub 或 Function 过程。 CBool 函数 返回已被转换为 Boolean 子类型的变体的表达式。 CByte 函数 返回已被转换为字节子类型的变体的表达式。 CCur 函数 返回已被转换为货币子类型的变体的表达式。 CDate 函数 返回已被转换为日期子类型的变体的表达式。 CDbl 函数 返回已被转换为双精度子类型的变体的表达式。 Chr 函数 返回指定 ANSI 字符码的字符。 CInt 函数 返回已被转换为整数子类型的变体的表达式。 Class 对象 提供对已创建的类的事件的访问。 Class 语句 声明类名 Clear 方法 清除 Err 对象的所有属性设置。 CLng 函数 返回已被转换为 Long 子类型的变体的表达式。 颜色常数 颜色常数列表。 比较常数 用于比较运算的常数列表。 连接运算符 (&) 强制两个表达式的字符串连接。 Const 语句 声明用于字母值的常数。 Cos 函数 返回角度的余弦值。 CreateObject 函数 创建并返回对“自动”对象的引用。 CSng 函数 返回已被转换为单精度子类型的变体的表达式。 CStr 函数 返回已被转换为字符串子类型的变体的表达式。 日期和时间常数 在日期和时间运算中用来定义星期几和其他常数的常数列表。 日期格式常数 用于日期和时间格式的常数列表。 Date 函数 返回当前系统日期。 DateAdd 函数 返回加上了指定的时间间隔的日期。 DateDiff 函数 返回两个日期之间的间隔。 DatePart 函数 返回给定日期 的指定部分。 DateSerial 函数 返回指定年月日的 日期子类型的变体 。 DateValue 函数 返回日期子类型的变体 。 Day 函数 返回日期，取值范围为 1 至 31。 Description 属性 返回或者设置说明某个错误的字符串。 Dictionary 对象 存储数据键、项目对的对象。 Dim 语句 声明变量并分配存储空间。 除法运算符 (/) 两数相除并以浮点数格式返回商。 Do...Loop 语句 当条件为 True 或者当条件变为 True 时，重复一语句块。 Empty 表示尚未初始化的变量值。 Eqv 运算符 使两个表达式相等。 Erase 语句 重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象 含有关于运行时错误的信息。 Eval 函数 计算并返回表达式的值。 Execute 方法 根据指定的字符串，执行正则表达式的搜索。 Execute 语句 执行单个或更多的指定语句。 ExecuteGlobal 语句 执行一个或多个在全局脚本名字空间中所指定的语句。 Exit 语句 退出 Do...Loop、For...Next
带打kaggle比赛 第3期
众所周知，Kaggle是全球顶级的比赛赛事，通过参加kaggle比赛，可以收获工业界数据比赛经验，而且优秀的成绩可以给简历加分，且TOP排名可获得大厂内推机会。如何你有Python基础但没有完整参加过- -场数据竞赛,想入「门学习Kaggle竞赛，或者感受一场完整的Kaggle竞赛的流程，那么案例式Kaggle班是你最好的选择:做一场世界.级的数据科学竞赛!以下是要带你从头到尾打的比赛的相关信息:●比赛名字: Corporacion Favorita Grocery Sales Forecasting●比赛任务:给定商品信息、商店信息和历史销量信息结合多个数据源构建商品销量特征提取，并构建销量预测模型完成指定商品的销量预测。
VBSCRIPT中文手册
VBSCRIPT中文手册,这里的信息可以帮你很方便地浏览 Visual Basic 脚本的许多不同部分。 你可以找到在按字母排序的关键字列表中列出的 VBScript 语言的所有部分。如果你只想调阅某一部分，例如“对象”，那么语言的每一部分都有它自己更严密的章节。 如何查找呢？单击左边的某个标题，即显示该部分中包含的项目列表。从这张列表中选择要查看的主题。当这个主题打开后，再链接到其他相关的部分就简单多了。 好了，让我们试一试，体会体会！学习几个语句，研究几种方法，或者熟悉几个函数。你就能学会如何巧妙地运用 VBScript 语言，充分发挥 VBScript 语言的强大功能。 特性 说明 VBScript 特性 VBScript 最新特性列表 未包含在 VBScript 中的 VBA 特性 VBScript 最新特性列表：未包含在 VBScript 中的应用程序编辑。 未包含在 VBA 中的 VBScript 特性 未包含在 Visual Basic 中的 VBScript 特性列表：应用程序编辑。 Microsoft Scripting 运行时特性 VBScript 中最新的 Scripting 运行时特性列表。 语言元素 说明 Abs 函数 返回数的绝对值。 加法运算符 (+) 两数相加。 And 运算符 执行两个表达式的逻辑连接。 Array 函数 返回含一数组的 变体 。 Asc 函数 返回字符串首字母的 ANSI 字符代码。 赋值运算符 (=) 给变量或属性赋值。 Atn 函数 返回数的反正切值。 调用语句 将控制移交 Sub 或 Function 过程。 CBool 函数 返回已被转换为 Boolean 子类型的变体的表达式。 CByte 函数 返回已被转换为字节子类型的变体的表达式。 CCur 函数 返回已被转换为货币子类型的变体的表达式。 CDate 函数 返回已被转换为日期子类型的变体的表达式。 CDbl 函数 返回已被转换为双精度子类型的变体的表达式。 Chr 函数 返回指定 ANSI 字符码的字符。 CInt 函数 返回已被转换为整数子类型的变体的表达式。 Class 对象 提供对已创建的类的事件的访问。 Class 语句 声明类名 Clear 方法 清除 Err 对象的所有属性设置。 CLng 函数 返回已被转换为 Long 子类型的变体的表达式。 颜色常数 颜色常数列表。 比较常数 用于比较运算的常数列表。 连接运算符 (&) 强制两个表达式的字符串连接。 Const 语句 声明用于字母值的常数。 Cos 函数 返回角度的余弦值。 CreateObject 函数 创建并返回对“自动”对象的引用。 CSng 函数 返回已被转换为单精度子类型的变体的表达式。 CStr 函数 返回已被转换为字符串子类型的变体的表达式。 日期和时间常数 在日期和时间运算中用来定义星期几和其他常数的常数列表。 日期格式常数 用于日期和时间格式的常数列表。 Date 函数 返回当前系统日期。 DateAdd 函数 返回加上了指定的时间间隔的日期。 DateDiff 函数 返回两个日期之间的间隔。 DatePart 函数 返回给定日期 的指定部分。 DateSerial 函数 返回指定年月日的 日期子类型的变体 。 DateValue 函数 返回日期子类型的变体 。 Day 函数 返回日期，取值范围为 1 至 31。 Description 属性 返回或者设置说明某个错误的字符串。 Dictionary 对象 存储数据键、项目对的对象。 Dim 语句 声明变量并分配存储空间。 除法运算符 (/) 两数相除并以浮点数格式返回商。 Do...Loop 语句 当条件为 True 或者当条件变为 True 时，重复一语句块。 Empty 表示尚未初始化的变量值。 Eqv 运算符 使两个表达式相等。 Erase 语句 重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象 含有关于运行时错误的信息。 Eval 函数 计算并返回表达式的值。 Execute 方法 根据指定的字符串，执行正则表达式的搜索。 Execute 语句 执行单个或更多的指定语句。 Exit 语句 退出 Do...Loop、For...Next、 Function 或 Sub 代码块。 Exp 函数 返回 e （自然对数的底）的多少次方。 自乘运算符 (^) 指数函数，幂为自变量。 False 关键字，其值为零。 FileSystemObject 对象 提供对计算机文件系统的访问。 Filter 函数 根据指定的筛
收集整理的SQL Server自定义函数
收集整理的SQL Server自定义函数，原文地址：http://blog.csdn.net/maco_wang 1.去除字符串中的html标记及标记中的内容 2 2. 去除字符串中连续的分割符 4 3.求第一个字符串中第二个串的个数 6 4.综合模糊查询 6 5.将十进制转成十六进制 8 6.求两个字符串中相同的汉字及字母的个数 10 7.生成n位随机字符串 11 8.取出字符串中的汉字、字母或是数字 14 9.根据字符分割字符串的三种写法 16 10.将数字转换千分位分隔形式 18 11.取汉字首字母的两个函数 20 12.根据身份证得到生日函数 23 13.根据身份证计算性别函数 24 14.将身份证的15位号码升级为18位 25 15.通过身份证获得户籍 27 16.多个数据项的字符串取指定位置字符 28 17.中缀算术转后缀算术表达式并计算的函数 29 18.人民币小写金额转大写 32 19.向左填充指定字符串 36 20.将整型数字转换为大写汉字 39 21.检查给定串是否存在于由区间及点集的结合内 39 22.根据日期返回星座 41 23.计算两个日期之间的工作日 43 24.根据年月生成日历函数 44 25.从第一个汉字开始分割字符串 47 26.过滤掉字符串中重复的字符 47 27.根据日期得到星期的函数 48 28.根据年度判断是否是闰年 49 29.完善SQL农历转换函数 50 30.自定义函数实现位操作 58 31.求某段时间内星期几的天数 61 32.根据进舍位或四舍五入来求值 63 33.字符串转成16进制函数 64 34.去掉字段中多个带区号电话号码前面的区号 65 35.SQL2000/2005字符串拆分为列表通用函数 67 36.求字符串中汉字的个数 69 37.根据年月得到当月的天数 71 38.全角半角转换函数 71
PowerBuilder

1,079

社区成员

66,439

社区内容

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章