%Function LeftStr(byVal Str,byVal StrLen)
Dim l,t,c,i
l=Len(str)
t=0
For i=1 To l
c=AscW(Mid(str,i,1))
If c<0 Or c>255 Then t=t+2 Else t=t+1
IF t>=StrLen Then
LeftStr=left(Str,i)&"..."
Exit For
Else
LeftStr=Str
End If
Next
End Function
%>
| 作者: 管理员 来源:网络收集 时间:06月12日 20:29 提交:sztjq 访问: |
1、野马分鬃 2、懒扎衣
3、左切三刀 4、插花拗步
5、金雁别翅 6、孤雁出群
7、左插花朝阳刀 8、右插花朝阳刀
9、 蝴蝶戏水 10、古树盘根
11、翻身左切三刀 12、罗汉降龙
13、左右转向 14、钟馗掌剑
15、左右片马 16、中单鞭
17、左右绞项 18、白蛇吐信
19、全舞花 20、美女认针
21、左插花朝阳刀 22、右插花朝阳刀
23、急三刀 24、对面刀止 |
|
|
|
|
|
电话:83100206 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |