这个自定义函数是什么意思?干什么用的?

来源：百度知道 编辑：UC知道 时间：2024/05/26 23:15:56
Public Function Lench(ByVal Str As String) As String
Lench=LenB(StrConv(TmpStr,vbFromUnicode))
End Function

LenB函数是返回字符串的字节总数；
StrConv函数是返回按指定类型转换的Variant(String)；vbFromUnicode表示将字符串由Unicode转成系统的缺省码页；
上面这个自定义函数是返回字符串TmpStr转换成缺省玛页后的字节总数，其值是一个Integer类型;

不过感觉你这个Str好象是多余的，或者你下面写错了，
是Lench=LenB(StrConv(Str,vbFromUnicode)) 这样的吧`

谁写的破烂函数，他的目的我大概猜得到，是把输入的一个字符串转成unicode格式后计算他的字节长度，常用于用二进制方式读写文本文件，因为len计算的是字符个数，会和文件大小不符，所以要用lenb。但是第一，函数头里声明的名称是Str，计算时却是用TmpStr，要么这个函数没全部贴出来，要么毛用都没有。第二，lenb返回一个long，他却声明函数返回一个String，用非常不安全的隐含转换，也只有VB6里才通的过，以后版本的都会报类型不符合错误