%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
%>
| 作者: 管理员 来源:网络收集 时间:08月21日 15:01 提交:sztjq 访问: |
深圳市太极人文化传播有限公司陈氏太极拳培训中心积极参与社区文化活动。于今天下午在蛇口花果山社区参与深圳市铭晨社工走进社区献爱心活动,进行爱心表演,受到该社区广居民的热烈欢迎,随着悠荡动听的音乐声响起,身着民族太极服装的年轻表演队伍的演练,时而如潺潺流水,时而铿锵有力,时而如猛虎下山,时而如涛涛江水,渐如佳境,迎来了阵阵掌声。
与深圳社工合影留念
集体表演陈氏太极拳
教练组表演综合陈氏太极拳
队员表演陈氏太极单剑
|
|
|
|
|
|
电话:83100206 QQ群:52099695 手机:13510359683 电邮:weixie@sztjq.com
粤ICP备06086521号 |