ByteFile函数模块

原创 2006年06月26日 03:56:00

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


模块、类、函数关系

我们在进行需求分析时,总是在划分功能模块,子模块、等等,为何要进行划分,如何来实现?就我理解来说,模块的划分是对所做功能的抽象,好的模块划分可以指导函数的设计,因为对于一个模块来说,具有输入和输出,功...
  • zhyp011
  • zhyp011
  • 2011年03月18日 16:05
  • 716

Python模块及函数的使用

一. 1.模块是包含函数和其他语句的脚本文件,以".py"为后缀名,在Python中可以通过导入模块来使用模块中的函数或数据. 创建一个文件fun.py内容如下: [python] def f...
  • a6225301
  • a6225301
  • 2015年03月23日 17:28
  • 1617

Matlab 模块库建立 S函数心得 小记

MATLAB 添加自定义的模块到simulink库浏览器,是正确的方法哦 – MATLAB中文论坛 simulink中模块库的建立和维护 - DFD1R的专栏 - 博客频道 - CSDN.NET ...
  • whyorwhnt
  • whyorwhnt
  • 2016年02月28日 21:26
  • 986

SAP MM模块 常用函数

1. MM_CURRENT_PRICE_DOCUMENT
  • forever_crazy
  • forever_crazy
  • 2014年09月28日 13:57
  • 1238

Python 学习笔记二 函数、模块和对象

Python 学习笔记二 函数、模块和对象定义函数def printme( str ): "打印传入的字符串到标准显示设备上" print str return调用:printme(...
  • xundh
  • xundh
  • 2016年07月22日 09:57
  • 855

js模块化编程一:模块化函数的介绍

js模块化一:模块化函数的介绍
  • fengchao2016
  • fengchao2016
  • 2017年01月15日 17:45
  • 511

Python中导入其它模块中的函数

方案如下: 将另一个py做成一个包,或者直接和调用文件放在同一个目录下; 在调用者文件头引入:from py名字 import *; 这样就可以使用另一个py文件的所有函数了。 p...
  • u014470581
  • u014470581
  • 2016年02月24日 18:33
  • 1612

Erlang:第一个Erlang程序,模块,函数

一、代码 1.1 说明         1. 定义模块。         2. 导出函数。         3. 定义导出的函数。         4. 定义内部函数。 1.2 代码 %1. 定义模...
  • kanguolaikanguolaik
  • kanguolaikanguolaik
  • 2015年08月24日 18:09
  • 767

模块(加载函数和卸载函数)

Linux模块是一些代码的集成,可以在启动系统后动态链接到内核的一部分,一旦载入之后就和内核没有什么区别,可以使内核崩溃。当不需要这些模块时,又可以断开链接将其删除。Linux的模块可以用C语言来编写...
  • LDan508
  • LDan508
  • 2016年01月18日 10:56
  • 1079

Erlang(4):模块和函数

1.创建模块和调用函数: 模块是erlang的基本单元。 模块保存在扩展名为.erl的文件里。必须先编译才能运行,编译后的模块以.beam作为扩展名。 子句没有返回语句,则最后一条表达式的值就是返回值...
  • u012175089
  • u012175089
  • 2017年01月16日 10:14
  • 2250
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ByteFile函数模块
举报原因:
原因补充:

(最多只允许输入30个字)