VisualFreebasic源码交流主贴(函数,模块共享)长期更新

逍遥爱迪生 1月前 390

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

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

我是逍遥爱迪生,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


最新回复 (5)
    您需要登录后才可以回帖 登录 | 注册
  • 逍遥爱迪生 1月前
    0 引用 6

    读文件长度方法5:
    Public Function GetFileSizeFun(FilePath As String) As Long 
    'Const OF_READ = &H0&  
    Dim lpFSHigh As Long
    Dim PointerV As Long, sizeofthefile As Long
    PointerV = _lopen(FilePath, OF_READ)
    sizeofthefile = GetFileSize(PointerV, lpFSHigh)
    Return  sizeofthefile 
    _lclose PointerV
    End Function

  • 逍遥爱迪生 1月前
    0 引用 5
    读文件长度方法4:
    Dim Len4 As Long 
    Dim f As Long 
    f = FreeFile
    Open "ABC.txt" For Binary Access Read As #f
    len4= LOF(f) 
    Close #f
  • 逍遥爱迪生 1月前
    0 引用 4
    获取文件长度的函数1:  Dim Len1 As Long
      Len1 = FileLen(FileName)
    大家有什么别的方法也发上来,有什么好的函数大家一起交流。
    获取文件长度的方法2
    Function GetFileLength(sFileName As String) As ULongInt
    Dim W32FD As WIN32_FIND_Data
          Dim hFile As HANDLE                   
          If Len(sFileName) = 0 Then Exit Function
          hFile = FindFirstFileA(StrPtr(sFileName), @W32FD)
          If hFile<>INVALID_HANDLE_VALUE Then     
              Function=W32FD.nFileSizeHigh*&H0100000000+W32FD.nFileSizeLow
              FindClose hFile
          End If
     End Function 
    方法3:
    len3=GetCompressedFileSize( "ABC.txt",0)
  • 逍遥爱迪生 1月前
    0 引用 3
    要读UTF-8编码的文件到字节用干什么 函数?再转成STRING显示出来咋弄?
  •   勇芳 1月前
    0 引用 2
    以上2个函数存在这严重的BUG,很容易发生崩溃或字符转换异常,2个函数都存在这情况,是刚接触?#21018;耄?#21644;不了解Z字符写的函数,大家自己研究研究,到底问题在哪里,可以提高编程水平,和对底层的理解。
返回
电音歌后官网