玄菟郡

KiteGirl的老窝

ByteFile函数模块

Attribute VB_Name = "modByteFile"
Public Function TextLineSplitByLength(ByVal pString As String, ByVal pLength As Long) As String
Dim tOutStrings() As String

Dim tStringSize As Long

tStringSize = Len(pString)

Dim tStrings_Lenght As Long
Dim tStrings_Patch As Long

tStrings_Lenght = tStringSize / pLength
tStrings_Patch = tStringSize Mod pLength

tStrings_Lenght = (tStrings_Lenght - 1) + (CBool(tStrings_Patch) And 1)

ReDim tOutStrings(tStrings_Lenght)

Dim tStrings_Index As Long
Dim tString_Locate As Long

For tStrings_Index = 0 To tStrings_Lenght
tString_Locate = tStrings_Index * pLength + 1
tOutStrings(tStrings_Index) = Mid(pString, tString_Locate, pLength)
Next

TextLineSplitByLength = Join(tOutStrings(), vbCrLf)
End Function

Public Sub TextPutToFile(ByVal pFileName As String, ByVal pText As String)

Dim tBytes() As Byte

tBytes() = StrConv(pText, vbFromUnicode)
BytesPutToFile pFileName, tBytes()

End Sub

Public Function TextGetByFile(ByVal pFileName As String) As String
Dim tOutText As String

Dim tBytes() As Byte

tBytes() = BytesGetByFile(pFileName)
tOutText = StrConv(tBytes(), vbUnicode)

TextGetByFile = tOutText
End Function

Public Sub BytesPutToFile(ByVal pFileName As String, ByRef pBytes() As Byte)
Dim tFileNumber As Integer

tFileNumber = FreeFile

Open pFileName For Output As #tFileNumber
Close #tFileNumber

tFileNumber = FreeFile

Open pFileName For Binary As #tFileNumber

Put #tFileNumber, 1, pBytes()

Close #tFileNumber

End Sub

Public Function BytesGetByFile(ByVal pFileName As String) As Byte()
Dim tOutBytes() As Byte
Dim tFileNumber As Integer

tFileNumber = FreeFile

Open pFileName For Binary As #tFileNumber

Dim tOutBytes_Length As Long
Dim tFileSize As Long

tFileSize = LOF(tFileNumber)
tOutBytes_Length = tFileSize - 1

ReDim tOutBytes(tOutBytes_Length)

Get #tFileNumber, 1, tOutBytes()

Close #tFileNumber

BytesGetByFile = tOutBytes()
End Function


阅读更多
个人分类: 玄菟郡VB6.0研究所
上一篇Base64编码/解码模块
下一篇“跳蚤算法”函数模块(不重复随机数高效算法)
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭