?? modbinaryfile.bas
字號:
Attribute VB_Name = "modBinaryFile"
'****************************************************************************
' :) 人人為我,我為人人 :)
'枕善居漢化收藏整理
'發布日期:05/08/03
'描 述:我的網絡聊天室 (客戶端)
'網 站:http://www.mndsoft.com/
'e-mail :mnd@mndsoft.com
'OICQ :88382850
'****************************************************************************
Sub SaveBinaryArray(ByVal Filename As String, WriteData() As Byte)
Dim t As Integer
t = FreeFile
Open Filename For Binary Access Write As #t
Put #t, , WriteData()
Close #t
End Sub
Function ReadBinaryArray(ByVal Source As String)
Dim bytBuf() As Byte
Dim intN As Long
Dim t As Integer
t = FreeFile
Open Source For Binary Access Read As #t
Dim n As Long
ReDim bytBuf(1 To LOF(t)) As Byte
Get #t, , bytBuf()
ReadBinaryArray = bytBuf()
Close #t
End Function
Public Function StripPath(t As String) As String
Dim X As Integer
Dim ct As Integer
StripPath = t
X = InStr(t, "\")
Do While X
ct = X
X = InStr(ct + 1, t, "\")
Loop
If ct > 0 Then StripPath = Mid$(t, ct + 1)
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -