VisualFreebasic源碼交流主貼(函數,??楣蠶?長期更新

逍遙愛迪生 2月前 504

大家有什么好的函數或源碼共享出來吧,自已寫太累了,有時很簡單的一個功能,你可能就得寫上幾小時幾天。

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

我是逍遙愛迪生,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)
    您需要登錄后才可以回帖 登錄 | 注冊
  • 讀文件長度方法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

  • 讀文件長度方法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:  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)
  • 要讀UTF-8編碼的文件到字節用干什么 函數?再轉成STRING顯示出來咋弄?
  •   勇芳 2月前
    以上2個函數存在這嚴重的BUG,很容易發生崩?;蜃址灰斐?,2個函數都存在這情況,是剛接觸指針,和不了解Z字符寫的函數,大家自己研究研究,到底問題在哪里,可以提高編程水平,和對底層的理解。
返回