1169.html
来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 22 行
HTML
22 行
<html> <head> <title>Re: 删除太长的字串</title> </head> <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="blue" VLINK="#808080" ALINK="red"> <center> <h1>Re: 删除太长的字串</h1> </center><HR><p>Posted by <a href="mailto:shien@wusnet.net.tw">小贤</a> on October 22, 1997 at 00:13:50:<p>In Reply to: <a href="1166.html"><b>Re: 删除太长的字串</b></a> posted by 小刘 on October 21, 1997 at 22:08:45:<p>我写了如下程式, 不知可有更简单写法!<br>If LenB(StrConv(T, vbFromUnicode)) < T.MaxLength Then Exit Sub<br>For i = L To Len(T)<br>If LenB(StrConv(Left(T, i), vbFromUnicode)) <= T.MaxLegth Then L = i<br>Next i<br>T = Left(T, l)<p>字串如果总共有1000 字 , 那 For .... Next 要执行1000次, 不管<br>我的T.MaxLength 设为多少! 太浪费了..<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1169--></ul><!--end: 1169--><br><HR><p></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?