只显示固定的长度--我也没有什么好办法,只有这样将就了 Public Function StringTruncate(ByVal s As String, ByVal j As Integer) As String Dim sr As String = "" Dim i As Integer = 0 Dim k As Integer = j Do If s.Substring(i * j).Length < j Then j = s.Substring(i * j).Length If sr.Trim() <> "" Then sr = sr + "<br>" + s.Substring(i * j, j) Else sr = sr + s.Substring(i * j, j) End If i = i + 1 'If j = 0 Then Exit Do Loop While (k = j) Return sr End Function
Dim sr As String = ""
Dim i As Integer = 0
Dim k As Integer = j
Do
If s.Substring(i * j).Length < j Then j = s.Substring(i * j).Length
If sr.Trim() <> "" Then
sr = sr + "<br>" + s.Substring(i * j, j)
Else
sr = sr + s.Substring(i * j, j)
End If
i = i + 1
'If j = 0 Then Exit Do
Loop While (k = j)
Return sr
End Function