对于一段文字要截取一部分，截取后的字节长度要符合要求（等于或略小于某数，注意不是字符长度哦）。由于中西文的关系，不能直接用Len函数实现。我用了以下自定义函数，但存在的问题是对回车符等不能判断。
请问大家有没有更好的办法？

Public Function GetLenStr(strBeij As String, lenGuiZJ As Integer) As String
'截取规定字节长度字符，lenGuiZJ规定字节长度，strBeij要截取的文字串
Dim ZFlen As Integer, tmpSTR As String, lenZJS As Integer
'ZFlen表示字符长度，tmpSTR临时存截取后的文字串，lenZJS临时截取串的字节长度
ZFlen = Fix(lenGuiZJ / 2)
tmpSTR = Left(strBeij, ZFlen)
lenZJS = Len(StrConv(tmpSTR, vbFromUnicode)) * 2

Do While lenGuiZJ - lenZJS > 0
tmpSTR = Left(strBeij, ZFlen + (lenGuiZJ - lenZJS) / 2)
lenZJS = Len(StrConv(tmpSTR, vbFromUnicode)) * 2
Loop
GetLenStr = tmpSTR
End Function

[此贴子已经被作者于2007-10-9 16:19:32编辑过]

Asc函数可以取得一个字的ASCII码。英文的大于0，中文的小于0，以此判断。

一个字一个字判断，也挺麻烦啊。

对回车先进行replace看看啊!

Public Function GetLenStr(strBeij As String, lenGuiZJ As Integer) As String
strBeij = Replace(strBeij, vbCrLf, "")
strBeij = Replace(strBeij, vbCr, "")
strBeij = Replace(strBeij, vbLf, "")
GetLenStr = StrConv(LeftB(StrConv(strBeij, vbFromUnicode), lenGuiZJ), vbUnicode)
End Function

你可以试着将所有文本放到一个不分行的文本框中，然后你去分段截取，那样就不会存在回车了，你判断的长度是否是物理长度？

那是程序执行得麻烦，编程不麻烦。

回车符是肯定还要的，不能去掉。
我那个函数在循环前，先判断一下原文字串的字节长度是否本身就小于规定数量，是就不用循环啦。
由于允许略小于规定数量，所以我是预先估计最多会有几个回车符，把它提前考虑在内。

GetLenStr = StrConv(LeftB(StrConv(strBeij, vbFromUnicode), lenGuiZJ), vbUnicode)
其实直接这句就可以了!

果然如此，这应是最好的方法了！
心中有剑，我佩服你啊！

嗯 好代码。