两个控制显示格式的函数(自动换行、自动省略)

原创 2003年07月22日 07:58:00

1)函数:rowscode()-----每行显示n个字母,自动换行

Function rowscode(str,n)
If len(str)<=n/2 Then
rowscode=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
TStr=""
t=0
for i=1 to l
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
TStr=TStr&(mid(str,i,1))
If t>n Then
TStr=TStr&"<br>"
t=0
End if
next
rowscode= TStr
End If
End Function

2)函数:lefttrue()-----如果字符串str的长度大于n,则显示左边的n个字符

Function LeftTrue(str,n)
If len(str)<=n/2 Then
LeftTrue=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
TStr=""
t=0
for i=1 to l
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
If t>n Then exit for
TStr=TStr&(mid(str,i,1))
next
LeftTrue = TStr & "…"
End If
End Function

两个控制显示格式的函数:自动换行、自动省略

1)函数:rowscode()-----每行显示n个字母,自动换行 Function rowscode(str,n) If len(str)rowscode=str Else Dim TStr Dim...
  • lonz
  • lonz
  • 2004年08月07日 11:00
  • 888

个控制显示格式的函数:自动换行、自动省略

函数:rowscode()-----每行显示n个字母,自动换行 Function rowscode(str,n) If len(str)rowscode=str Else Dim TStr Dim l...
  • haozi678
  • haozi678
  • 2009年08月29日 11:33
  • 244

QLabel根据拉伸宽度自动加省略点和ToolTip

#pragma once #include class ElidedLabel : public QLabel { Q_OBJECT public: explicit ElidedLabe...
  • tujiaw
  • tujiaw
  • 2015年04月10日 18:24
  • 1945

设置div中文字超出时自动换行和css实现文本超出N行之后显示省略号等

一、对于div强制换行 1.(IE浏览器)white-space:normal; word-break:break-all;这里前者是遵循标准。 #wrap{white-space:normal; w...
  • Lpandeng
  • Lpandeng
  • 2017年06月06日 17:50
  • 4624

Group By 语句结合聚合函数

假设有一个表 info 身份证 姓名 idcard1 name1 idcard2 name2 idcard3 name1 使用如下sql进行查询select 身份证,姓名...
  • Vieri_32
  • Vieri_32
  • 2015年09月07日 15:44
  • 568

scala函数等号省略

例1: 此时没有写返回值,但是有等号,函数会自己推断返回值,此时的返回值是Intdef add(x:Int, y:Int) = { x+y }例2: 此时没有写返回值,也没有等号,无论函数...
  • u010916338
  • u010916338
  • 2017年08月28日 13:26
  • 222

【微信小程序+ES6新特性应用】通过增强对象字面量创建方法,省略function写法

【微信小程序+ES6新特性应用】通过增强对象字面量创建方法,省略function写法...
  • FutrueJet
  • FutrueJet
  • 2016年10月26日 21:24
  • 1002

puts() 函数输出时会自动换行。。。。

puts() 函数输出时会自动换行。。。。
  • wangyulinyy
  • wangyulinyy
  • 2012年02月29日 17:57
  • 1117

【转】Oracle SQL*PLUS命令应用 设置显示列格式的相关命

设置列格式的相关命令 1. 改变列的显示长度  COLUMN column_name FOR[MAT] format  备注:     注意该命令将保持一直生效直至输入...
  • shcqupc
  • shcqupc
  • 2016年03月11日 11:31
  • 199

css中实现字符超出宽度自动换行和英语字符不断行的解决方法

css中实现字符超出宽度自动换行和英语字符不断行的解决方法 为了使英语字符不断开,我在显示内容的style是text-align:justify; text-justify:inter-id...
  • hjf_bluesky
  • hjf_bluesky
  • 2015年10月08日 21:55
  • 1751
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:两个控制显示格式的函数(自动换行、自动省略)
举报原因:
原因补充:

(最多只允许输入30个字)