2.8w+
社区成员
高手帮忙解释下
Function CutStr(Str,LenNum)
if IsNull(str) or IsEmpty(str) or str="" then
str="nothing"
end if
Dim P_num
Dim I,X
If Len(Str)<=LenNum Then
Cutstr=Str
Else
P_num=0
X=0
Do While Not P_num > LenNum-2
X=X+1
If Asc(Mid(Str,X,1))<0 Then /*这段代码是什么作用呢
P_num=Int(P_num) + 2
Else
P_num=Int(P_num) + 1
End If 到这结束
Cutstr=Left(Trim(Str),X)&"……"
Loop
End If
End Function
if IsNull(str) or IsEmpty(str) or str="" then
str="nothing"
end if
Dim P_num
Dim I,X
If Len(Str)<=LenNum Then
Cutstr=Str
Else
P_num=0
X=0
Do While Not P_num > LenNum-2
X=X+1
If Asc(Mid(Str,X,1))<0 Then /*这段代码是什么作用呢
P_num=Int(P_num) + 2
Else
P_num=Int(P_num) + 1
End If 到这结束
Cutstr=Left(Trim(Str),X)&"……"
Loop
End If
End Function
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
mataofq 2008-04-10
这是做什么的，判断有多少个字符？？
汉字两个字节，英语一个？？
asc（）上面说了
mid（string,start,length）
汉字两个字节，英语一个？？
asc（）上面说了
mid（string,start,length）
xjw8350296 2008-04-10
X=0
Do While Not P_num > LenNum-2
X=X+1
If Asc(Mid(Str,X,1)) <0 Then /*这段代码是什么作用呢
P_num=Int(P_num) + 2
Else
P_num=Int(P_num) + 1
End If 到这结束
Cutstr=Left(Trim(Str),X)&"……"
Loop
End If
End Function 这段有点疑惑
Do While Not P_num > LenNum-2
X=X+1
If Asc(Mid(Str,X,1)) <0 Then /*这段代码是什么作用呢
P_num=Int(P_num) + 2
Else
P_num=Int(P_num) + 1
End If 到这结束
Cutstr=Left(Trim(Str),X)&"……"
Loop
End If
End Function 这段有点疑惑
lolita_713 2008-04-10
Asc()函数是将字符串（包括汉字及英文）转换成ASCII码
Anlige 2008-04-10
Asc取得字符的asci码，若小于零则这个字符是汉字~~
数据库不存在 php报错,php报错：Undefined variable和 No database selected 数据库 不存在，哪个高手帮忙解释下... php报错：Undefinedvariable和Nodatabaseselected数据库不存在，哪个高手帮忙解释下0Notice: Undefined variable: connection in C:\wamp\www\inc\conn.php on line 55错误#1046: No database selected数据库 不存在...
请各位高手帮忙解释两个实物电路 以上是一个遥控电动玩具车的遥控器电路板，请各位高手帮忙解释一下它的电路结构，最好能画出电路图，然后解释一下电路板上的元件都是什么元件、叫什么名字、有什么功能。 以上是遥控电动玩具车车上的电路控制...
求求CISCO高手帮我解释下 我2960的交换机 里面有段内容 在下才疏学浅 始终无法看懂 希望哪位大侠帮忙解释下 将感激不尽 ！！1 内容如下： ip subnet-zero ! ! ! crypto pki trustpoint TP-self-signed-2790161920 enrollment self...
读书笔记-《像高手一样发言》 程序员作为一个“最爱学习”的群体，我们运用...最后看到了《像高手一样发言》，这本书从公务员的工作运用场合出发，探讨了会议、竞聘、汇报、餐桌、述职、日常交际等场合的常用话术，并提供了颇具实践性的表达例子。
饭谈：高手是怎么炼成的？ 什么叫高手？什么叫专家？什么叫大师？他们和平常人不一样，哪里不一样？ 技术么？不对，每个人接触测试这行起都一摸一样。智商么？也不是，能做到互联网it测试这行的工程师，智商基本都在110以上（正常人100）...
有趣的问题，高手解释解释呀！！ 前几天真是郁闷上网时，突然停电。后来有电了再开机发现网上邻居里面的本地连接不见了，也没有了IP地址。但是可以ping通自己的主机，说明网卡没坏。可就是没了本地连接，其他一切正常。...有哪位高手能
php 类的静态方法使用疑问, 有高手解答下 今天看到别人的框架有这样的写法 我的问题是 self::$model 是一个字符串, 那么 self::$model::where() 怎么可能调用成功了 , 但结果是 它真的调用成功了 ...有路过的大神, 帮忙解释一下 ...
问几个 User.GetUser()的问题。各位高手来帮忙回答一下 // 希望各位高手能给与解答，谢谢 A: 问题一： Cache[cacheKey] = object等效于Cache.Insert(cacheKey, object)，即等效于： Cache.Insert(cacheKey, object, null, Cache.NoAbsoluteExpiration, Cache....
计算机管理员账户权限不足,用户权限不足，请使用管理员权限。怎么办啊？求高手帮忙！谢了。... 4、接着勾选“管理员”，点击更改为管理员帐户类型即可，如下图所示。扩展资料如果愿意暂时放弃安全性，来提高便利性，那还有一种方法，找到C:\Windows\explorer.exe，右键-属性-安全-高级-所有者，...
用idhttp的put方法上传文件到网站的怪问题，请高手帮忙？只有20分了，全部奉上。... 用idhttp的put方法上传文件到网站的怪问题，请高手帮忙？只有20分了，全部奉上。 VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061221220322205.html 我用idhttp上传文件到网站（当然网站...
谁能解释下原理
四：能不能解释些这个类的各个模块的作用。
就不贴代码了，点连接吧。。。
C#是直接有提供控制打印机的类库的
能设置页边距，打印位置等，可能打印发票也是类拟方式来对准的，打印机是通过...
各位高手们谁能帮我解释一下linux下面的squid代理的作用是什么？ 各位高手们谁能帮我解释一下linux下面的squid代理的作用是什么？ 各位高手们谁能帮我解释一下...105[标签：linux,squid,作用]以前学了linux下的透明代理，可是现在忘了，公司里用到了，各位同仁们帮忙解...
最近遇到一个问题，哪位高手能帮忙解答一下 实际上，它已成为一项负债，不管整个市场投了多少美元在上面，很多IT的专业人士已经拒绝将他们的网络暴露于IIS Web服务器之下。 说法二：使用.net编写的程序代码更安全。 问：这两段话是不是有矛盾？ 谁能详细...
如何快速成为javascript高手？ 感觉本文论述有辩证，且与本人观点较为一致，故特别引来，谨以此文赠给那些想学或者正在学习JS并努力成为时下急需的JS开发高手（或者客户端或者服务器端）的朋友。 原文：...
计算机控制技术课程解释与问题答疑 当你开始努力学习一些高级的机器人知识以后，有可能会非常难以找到中文的参考资料，这个时候如果啃不下英文的资料，进步速度和眼界就会受到很大影响。因此大一的时候要多看看红宝书，看看美剧。 不管是什么专业...
求助XDJM们，帮忙解释一下一段代码 请教各位高手，下面这段代码看不太懂，帮忙解释一下：protected void executeQuery(BaseObject obj, ActionMapping mapping, ActionForm form, HttpServletRequest request, HttpServletResponse arg4) throws ...
如何快速成为Javascript高手的思考 如何快速成为Javascript高手？ 之前我拿这个问题问过我的同事，也问过国内的一些Javascript高手。 最近，我一直在拿这个问题问自己。之所以会有这个问题，我基于两个前提：第一、我自认为自己不笨；第二、我...
高手详解SQL性能优化十条经验 高手详解SQL性能优化十条经验 摘要：这十条经验是作者自己进行总结的结果，配合一些代码进行解释。希望本文能给各位数据库管理员在性能优化方面一些启示。 1.查询的模糊匹配 尽量避免在一个复杂查询里面使用 LIKE ...
