大家有什么好的函数或源码共享出来吧，自已写太累了，有时很简单的一个功能，你可能就得写上几小时几天。

一人写好，人人能用，多爽。

我是逍遥爱迪生,QQ 527524938,有需要软件要开发的可以找我。

主要用VB6开发20来年，ASP,PHP,VBA,WORD,ACCESS都可以。

PYTHON,VB.NET也会开发一些。

也可以交流一些好的不错的VB等语言的函数，注明什么编程语言。

字符串转字节，从参数中返回结果

Sub DoStrToByteArr(ByVal S1 As String, bt() As Byte)

  Dim z As ZString Ptr

  ReDim bt(Len(S1) -1) 

  z = @bt(0) 

  *z = S1

  '相当于VB:

  'Dim bt() As Byte

  'bt = StrConv(S1, vbFromUnicode) 

End Sub

字节转字符串

Function ByteArrToStr( bt() As Byte) As String  

Dim sSave As ZString Ptr

sSave = @bt(0) 

Return *sSave

'相当于VB的

'dim S2 As String

'S2 = StrConv(bt, vbUnicode)

End Function