请教如何自动使 过长的 连续字母 自动换行,避免撑大布局,例如AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
例如下面这种连续的字母,过长后就会撑大表格
asdfhgjasfjkldfkdshfsjklhwerufgvvuierhsdjkgsdfhgkljmnsdfklgjasdhfgnasdfjkhfjksdahfjkhasdjkghasdfjkasdhfjkhasjlhfjklgasdfgjkdfskalkljgklsdfjgidfklngvbjkdfhgjkfasdjklfsdjklnfhjksdhajkfhasdjkhfjksdhgjkhasdfjdhsajfhjsdhafjkhsdsdafsdfjksdahfjksdhgjhsdajkfnsdjkafhnrusdfjhnjkasdhf
asdfhgjasfjkldfkdshfsjklhwerufgvvuierhsdjkgsdfhgkljmnsdfklgjasdhfgnasdfjkhfjksdahfjkhasdjkghasdfjkasdhfjkhasjlhfjklgasdfgjkdfskalkljgklsdfjgidfklngvbjkdfhgjkfasdjklfsdjklnfhjksdhajkfhasdjkhfjksdhgjkhasdfjdhsajfhjsdhafjkhsdsdafsdfjksdahfjksdhgjhsdajkfnsdjkafhnrusdfjhnjkasdhf
解决方案 »
- 在sqlserver2008中写入中文出现类似“??×??2??μ??èê?”乱码
- flash影响javascript的setTimeout函数怎么办?
- 实在菜鸟,忘记了,怎样在表单中加入js 的处理啊,给个例子
- 火狐下的下拉列表问题
- 在firefox下如何旋转图片??
- 可个根据对应索引获得对象吗?
- 重金悬赏!!!-如何用脚本判断,IE浏览器是否在“检查所存网页的较新版本”选项中,设置了“每次访问时检查”
- 传值没有成功
- 谁有办法用层结构的操作,取代Window.open函数
- 关于window.open(url)下载的问题,求过路大神帮助...
- 如何用jsp把存在oracle中的数据取出来显示在word里
- 各位大哥帮帮忙呀 ?
烦请各位赐教了。
我还是得在HTML的页面中使用,不用XML
只在IE下有用...
<table width="100%">
<tr>
<td>
asdfhgjasfjkldfkdshfsjklhwerufgvvuierhsdjkgsdfhgkljmnsdfklgjasdhfgnasdfjkhfjksdahfjkhasdjkghasdfjkasdhfjkhasjlhfjklgasdfgjkdfskalkljgklsdfjgidfklngvbjkdfhgjkfasdjklfsdjklnfhjksdhajkfhasdjkhfjksdhgjkhasdfjdhsajfhjsdhafjkhsdsdafsdfjksdahfjksdhgjhsdajkfnsdjkafhnrusdfjhnjkasdhf
</td>
</tr>
</table>
</td>
function toBreakWord(intLen){
var obj=document.getElementById("ff");
var strContent=obj.innerHTML;
var strTemp="";
while(strContent.length>intLen){
strTemp+=strContent.substr(0,intLen)+"
";
strContent=strContent.substr(intLen,strContent.length);
}
strTemp+="
"+strContent;
obj.innerHTML=strTemp;
}
if(document.getElementById && !document.all) toBreakWord(40)
</script>其中最后一句括号中的(40)是每行的字母的数目,不过它不能分辨每个词的长度,就是说英文单词会全部被截断,不管是不是连续的长字符
判断 if strarry[i]+..strarry[i+n]>一行长度 then strarry[i]+..strarry[i+n-1]+换行
如此格式化后再输出。
<%
Sub Show_BR(show_str, ByVal line_max)
'换行函数
Dim reg, code, code_max, line_len, cursor
Set reg = new RegExp
reg.Pattern = "[\x00-\xff]"
reg.Global = True
cursor = 1 : line_len = 0 : line_max = line_max * 2 : code_max = Len(show_str)
With Response
While cursor <= code_max
code = Mid(show_str, cursor, 1) : .Write code
If reg.Test(code) Then
line_len = line_len + 1
Else
line_len = line_len + 2
End If
If line_len >= line_max Then
.Write vbCrlf & "<br />" & vbCrlf
line_len = 0
End If
cursor = cursor + 1 : Wend
End With
Set reg = NothingEnd Sub
Show_BR "你好啊。。好多汉字的说..啊..啊.啊aaaaaaaaaaaaaaaaaaaaaaaaa", 6
%>