请教如何自动使 过长的 连续字母 自动换行,避免撑大布局,例如AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
例如下面这种连续的字母,过长后就会撑大表格
asdfhgjasfjkldfkdshfsjklhwerufgvvuierhsdjkgsdfhgkljmnsdfklgjasdhfgnasdfjkhfjksdahfjkhasdjkghasdfjkasdhfjkhasjlhfjklgasdfgjkdfskalkljgklsdfjgidfklngvbjkdfhgjkfasdjklfsdjklnfhjksdhajkfhasdjkhfjksdhgjkhasdfjdhsajfhjsdhafjkhsdsdafsdfjksdahfjksdhgjhsdajkfnsdjkafhnrusdfjhnjkasdhf
asdfhgjasfjkldfkdshfsjklhwerufgvvuierhsdjkgsdfhgkljmnsdfklgjasdhfgnasdfjkhfjksdahfjkhasdjkghasdfjkasdhfjkhasjlhfjklgasdfgjkdfskalkljgklsdfjgidfklngvbjkdfhgjkfasdjklfsdjklnfhjksdhajkfhasdjkhfjksdhgjkhasdfjdhsajfhjsdhafjkhsdsdafsdfjksdahfjksdhgjhsdajkfnsdjkafhnrusdfjhnjkasdhf
烦请各位赐教了。
我还是得在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
%>