Left的扩展功能(ASP)
Function LeftEx(str,lennum)
Dim p_num
Dim i
If Len(str)<=lennum Then
LeftEx=str
Else
p_num=0
x=0
Do While Not p_num > lennum-1
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
LeftEx=left(trim(str),x)&"…"
Loop
End If
End Function
Dim p_num
Dim i
If Len(str)<=lennum Then
LeftEx=str
Else
p_num=0
x=0
Do While Not p_num > lennum-1
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
LeftEx=left(trim(str),x)&"…"
Loop
End If
End Function
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
Dokcer部署Kafka集群
zer0black
2024-05-16 14:31:24
「Pygors跨平台GUI」2:安装MinGW-w64、MSYS2还是WSL2
windfic
2024-05-16 14:29:14
「Pygors跨平台GUI」1:Pygors跨平台GUI应用研究
windfic
2024-05-16 14:29:14
【Linux命令学习】lsof查看打开的文件
金大鑫要堅持
2024-05-16 14:27:04
MacOS添加,查看,删除用户
金大鑫要堅持
2024-05-16 14:27:04
Garnet:微软官方基于.NET开源的高性能分布式缓存存储数据库
追逐時光
2024-05-16 14:22:03
nodejs学习07——API
htj10
2024-05-16 14:21:53
🔥 Java Solon v2.7.6 发布
劉之西東
2024-05-16 14:21:13
Puppeteer!
CharyGao
2024-05-16 14:17:02
openstack虚拟机用keep alive添加的VIP,其它机器无法访问
馬昌偉
2024-05-16 14:13:52
apisix~authz-keycloak插件介绍
張佔嶺
2024-05-16 14:12:42
Dynamic-Datasource动态数据源
擾擾
2024-05-16 14:12:02