关闭

ByteFile函数模块

标签: stringfunctionintegerbytepatchoutput
1196人阅读 评论(8) 收藏 举报
分类:

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


0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:34310次
    • 积分:605
    • 等级:
    • 排名:千里之外
    • 原创:20篇
    • 转载:0篇
    • 译文:0篇
    • 评论:44条
    最新评论