关闭

ByteFile函数模块

1172人阅读 评论(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

猜你在找
【直播】机器学习&数据挖掘7周实训--韦玮
【套餐】系统集成项目管理工程师顺利通关--徐朋
【直播】3小时掌握Docker最佳实战-徐西宁
【套餐】机器学习系列套餐(算法+实战)--唐宇迪
【直播】计算机视觉原理及实战--屈教授
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之矩阵--黄博士
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之凸优化--马博士
【套餐】Javascript 设计模式实战--曾亮
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:32837次
    • 积分:591
    • 等级:
    • 排名:千里之外
    • 原创:20篇
    • 转载:0篇
    • 译文:0篇
    • 评论:44条
    最新评论