类_数据流

小风明SS

欢迎改正

  

窗口程序集名	保 留	保 留	备 注
类_数据流, , 公开, stream
变量名	类 型	数组	备 注
Rdata	字节集
Rpos	整数型
Wdata	字节集

子程序名	返回值类型	公开	备 注
_初始化

子程序名	返回值类型	公开	备 注
_销毁

子程序名	返回值类型	公开	备 注
Normal	逻辑型		是否超出数据边界

返回 (Rpos ＞ 0 且 Rpos ≤ 取字节集长度 (Rdata))

子程序名	返回值类型	公开	备 注
移动到			移动当前读取的位置
参数名	类 型	参考	可空	数组	备 注
位置	整数型

Rpos ＝ 位置

子程序名	返回值类型	公开	备 注
取位置	整数型		返回当前读取位置

返回 (Rpos)

子程序名	返回值类型	公开	备 注
取剩余数据	字节集		返回未读数据

返回 (取字节集右边 (Rdata, 取字节集长度 (Rdata) － Rpos ＋ 1))

子程序名	返回值类型	公开	备 注
取剩余长度	整数型		返回未读数据长度

返回 (取字节集长度 (Rdata) － Rpos ＋ 1)

子程序名	返回值类型	公开	备 注
确认长度	逻辑型		指定长度是否超出边界
参数名	类 型	参考	可空	数组	备 注
长度	整数型

如果真 (Normal () ＝ 假)
返回 (假)
返回 (取剩余长度 () ≥ 长度)

子程序名	返回值类型	公开	备 注
跳过			跳过指定字节数
参数名	类 型	参考	可空	数组	备 注
字节数	整数型

如果真 (Normal ())
Rpos ＝ Rpos ＋ 字节数

子程序名	返回值类型	公开	备 注
跳到标志			跳到指定字节集(Flag)处)
参数名	类 型	参考	可空	数组	备 注
标志	字节集

如果真 (Normal ())
Rpos ＝ 寻找字节集 (Rdata, 标志, Rpos)

子程序名	返回值类型	公开	备 注
__输入__

子程序名	返回值类型	公开	备 注
预读字节	字节型		读取当前字节

变量名	类 型	静态	数组	备 注
位置	整数型

位置 ＝ pos
返回 (取字节集数据 (data, #字节型, 位置))

子程序名	返回值类型	公开	备 注
读入数据	字节集		导入数据并初始化
参数名	类 型	参考	可空	数组	备 注
data	字节集

如果真 (是否为空 (data) ＝ 假)
Rdata ＝ data
Rpos ＝ 1
返回 (Rdata)

子程序名	返回值类型	公开	备 注
从文件读入数据	字节集		导入数据并初始化
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
hFile
dataPTR
dwRead
dwSize

hFile ＝ CreateFileA (文件路径, 1073741824, 1, 0, 4, 128, 0)
dwSize ＝ GetFileSize (hFile, 2147483647)
ReadFile (hFile, dataPTR, dwSize, dwRead, 0)
返回 (读入数据 (指针到字节集 (dataPTR, dwSize)))

子程序名	返回值类型	公开	备 注
读取整数	整数型		ReadInt 读取一段整数(4字节)

变量名	类 型	静态	数组	备 注
位置	整数型

位置 ＝ Rpos
Rpos ＝ Rpos ＋ 4
返回 (取字节集数据 (Rdata, #整数型, 位置))

子程序名	返回值类型	公开	备 注
读取短整数	短整数型		ReadShort 读取一段短整数(2字节)

变量名	类 型	静态	数组	备 注
位置	整数型

位置 ＝ Rpos
Rpos ＝ Rpos ＋ 2
返回 (取字节集数据 (data, #短整数型, 位置))

子程序名	返回值类型	公开	备 注
读取字节	字节型		ReadBin 读取一段字节

变量名	类 型	静态	数组	备 注
位置	整数型

位置 ＝ Rpos
Rpos ＝ Rpos ＋ 1
返回 (取字节集数据 (data, #字节型, 位置))

子程序名	返回值类型	公开	备 注
读取日期时间	日期时间型		读取一段日期时间(8字节)

变量名	类 型	静态	数组	备 注
位置	整数型

位置 ＝ Rpos
Rpos ＝ Rpos ＋ 8
返回 (取字节集数据 (data, #日期时间型, 位置))

子程序名	返回值类型	公开	备 注
读取双精度	双精度小数型		ReadDouble 读取一段双精度小数(8字节)

变量名	类 型	静态	数组	备 注
位置	整数型

位置 ＝ Rpos
Rpos ＝ Rpos ＋ 8
返回 (取字节集数据 (data, #双精度小数型, 位置))

子程序名	返回值类型	公开	备 注
读取定长文本	文本型		读取一段文本
参数名	类 型	参考	可空	数组	备 注
长度	整数型

变量名	类 型	静态	数组	备 注
结果	文本型

结果 ＝ 到文本 (取字节集中间 (Rdata, Rpos, 长度))
Rpos ＝ Rpos ＋ 长度
返回 (结果)

子程序名	返回值类型	公开	备 注
读取文本	文本型		读取一段文本

变量名	类 型	静态	数组	备 注
i	整数型
n	整数型

如果真 (Normal () ＝ 假)
返回 (“”)
i ＝ 寻找字节集 (Rdata, { 0 }, Rpos)
i ＝ 选择 (i ＞ 0, i, 取字节集长度 (Rdata))
n ＝ Rpos
Rpos ＝ i ＋ 1
返回 (到文本 (取字节集中间 (Rdata, n, i － n)))

子程序名	返回值类型	公开	备 注
读取定长字节集	字节集		读取一段字节集
参数名	类 型	参考	可空	数组	备 注
长度	整数型

变量名	类 型	静态	数组	备 注
结果	字节集

结果 ＝ 取字节集中间 (Rdata, Rpos, 长度)
Rpos ＝ Rpos ＋ 长度
返回 (结果)

子程序名	返回值类型	公开	备 注
读取字节集	字节集		ReadBinary 读取一段字节集

变量名	类 型	静态	数组	备 注
结果	字节集
长度	整数型

长度 ＝ 读取整数 ()
结果 ＝ 取字节集中间 (data, pos, 长度)
pos ＝ pos ＋ 长度
返回 (结果)

子程序名	返回值类型	公开	备 注
__输出__

子程序名	返回值类型	公开	备 注
写出到内存	整数型		返回内存指针,太大会内存溢出

变量名	类 型	静态	数组	备 注
PTR	整数型

PTR ＝ HeapAlloc (GetProcessHeap (), 9, 取字节集长度 (Wdata))
写到内存 (Wdata, PTR, 取字节集长度 (Wdata))
返回 (PTR)

子程序名	返回值类型	公开	备 注
写出到内存文件	整数型		返回文件号

变量名	类 型	静态	数组	备 注
id	整数型

id ＝ 打开内存文件 ()
写出数据 (id, 取字节集长度 (Wdata) ＋ Wdata)
返回 (id)

子程序名	返回值类型	公开	备 注
写出到文件	字节集		返回内容,失败返回空
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
类型	整数型				0:替换,1:置末

变量名	类 型	静态	数组	备 注
hFile
dwWrite

判断 (类型 ＝ 0)
hFile ＝ CreateFileA (文件路径, 1073741824, 1, 0, 4, 128, 0)
如果真 (hFile ＝ -1)
返回 ({  })
如果真 (WriteFile (hFile, Wdata, 取字节集长度 (Wdata), dwWrite, 0) ＝ 0)
返回 ({  })
CloseHandle (hFile)
返回 (Wdata)
判断 (类型 ＝ 1)
hFile ＝ CreateFileA (文件路径, 1073741824, 1, 0, 4, 128, 0)
如果真 (hFile ＝ -1)
返回 ({  })
如果真 (SetFilePointer (hFile, 0, 0, 2) ＝ -1)
返回 ({  })
如果真 (WriteFile (hFile, Wdata, 取字节集长度 (Wdata), dwWrite, 0) ＝ 0)
返回 ({  })
CloseHandle (hFile)
返回 ({  })

子程序名	返回值类型	公开	备 注
写出空			Null 写出为0的指定长度字节
参数名	类 型	参考	可空	数组	备 注
长度	整数型

Wdata ＝ Wdata ＋ 取空白字节集 (长度)

子程序名	返回值类型	公开	备 注
写出整数	字节集		WriteInt 写出一个整数
参数名	类 型	参考	可空	数组	备 注
整数	整数型

Wdata ＝ Wdata ＋ 到字节集 (整数)
返回 (Wdata)

子程序名	返回值类型	公开	备 注
写出短整数	字节集		WriteShort 写出一个短整数
参数名	类 型	参考	可空	数组	备 注
短整数	短整数型

Wdata ＝ Wdata ＋ 到字节集 (短整数)
返回 (Wdata)

子程序名	返回值类型	公开	备 注
写出字节	字节集		WriteBin 写出一个字节
参数名	类 型	参考	可空	数组	备 注
字节	字节型

Wdata ＝ Wdata ＋ 字节
返回 (Wdata)

子程序名	返回值类型	公开	备 注
写出日期时间	字节集		写出一个日期时间
参数名	类 型	参考	可空	数组	备 注
日期时间	日期时间型

Wdata ＝ Wdata ＋ 到字节集 (日期时间)
返回 (Wdata)

子程序名	返回值类型	公开	备 注
写出双精度	字节集		WriteDouble 写出一个双精度小数
参数名	类 型	参考	可空	数组	备 注
双精度	双精度小数型

Wdata ＝ Wdata ＋ 到字节集 (双精度)
返回 (Wdata)

子程序名	返回值类型	公开	备 注
写出文本	字节集		写出一个文本
参数名	类 型	参考	可空	数组	备 注
文本	文本型

Wdata ＝ Wdata ＋ 编码_Ansi到Utf8 (文本)
返回 (Wdata)

子程序名	返回值类型	公开	备 注
写出字节集	字节集		WriteBinary 写出一个字节集
参数名	类 型	参考	可空	数组	备 注
字节集	字节集

Wdata ＝ Wdata ＋ 取字节集长度 (字节集) ＋ 字节集
返回 (Wdata)

.版本 2<br /> <br /> .程序集 类_数据流, , 公开, stream<br /> .程序集变量 Rdata, 字节集<br /> .程序集变量 Rpos, 整数型<br /> .程序集变量 Wdata, 字节集<br /> <br /> .子程序 _初始化<br /> <br /> <br /> <br /> .子程序 _销毁<br /> <br /> <br /> <br /> .子程序 Normal, 逻辑型, 公开, 是否超出数据边界<br /> <br /> 返回 (Rpos ＞ 0 且 Rpos ≤ 取字节集长度 (Rdata))<br /> <br /> .子程序 移动到, , 公开, 移动当前读取的位置<br /> .参数 位置, 整数型<br /> <br /> Rpos ＝ 位置<br /> <br /> .子程序 取位置, 整数型, 公开, 返回当前读取位置<br /> <br /> 返回 (Rpos)<br /> <br /> .子程序 取剩余数据, 字节集, 公开, 返回未读数据<br /> <br /> 返回 (取字节集右边 (Rdata, 取字节集长度 (Rdata) － Rpos ＋ 1))<br /> <br /> .子程序 取剩余长度, 整数型, 公开, 返回未读数据长度<br /> <br /> 返回 (取字节集长度 (Rdata) － Rpos ＋ 1)<br /> <br /> .子程序 确认长度, 逻辑型, 公开, 指定长度是否超出边界<br /> .参数 长度, 整数型<br /> <br /> .如果真 (Normal () ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> 返回 (取剩余长度 () ≥ 长度)<br /> <br /> .子程序 跳过, , 公开, 跳过指定字节数<br /> .参数 字节数, 整数型<br /> <br /> .如果真 (Normal ())<br />     Rpos ＝ Rpos ＋ 字节数<br /> .如果真结束<br /> <br /> <br /> .子程序 跳到标志, , 公开, 跳到指定字节集(Flag)处)<br /> .参数 标志, 字节集<br /> <br /> .如果真 (Normal ())<br />     Rpos ＝ 寻找字节集 (Rdata, 标志, Rpos)<br /> .如果真结束<br /> <br /> <br /> .子程序 __输入__<br /> <br /> <br /> <br /> .子程序 预读字节, 字节型, 公开, 读取当前字节<br /> .局部变量 位置, 整数型<br /> <br /> 位置 ＝ pos<br /> 返回 (取字节集数据 (data, #字节型, 位置))<br /> <br /> .子程序 读入数据, 字节集, 公开, 导入数据并初始化<br /> .参数 data, 字节集, 可空<br /> <br /> .如果真 (是否为空 (data) ＝ 假)<br />     Rdata ＝ data<br />     Rpos ＝ 1<br /> .如果真结束<br /> 返回 (Rdata)<br /> <br /> .子程序 从文件读入数据, 字节集, 公开, 导入数据并初始化<br /> .参数 文件路径, 文本型<br /> .局部变量 hFile<br /> .局部变量 dataPTR<br /> .局部变量 dwRead<br /> .局部变量 dwSize<br /> <br /> hFile ＝ CreateFileA (文件路径, 1073741824, 1, 0, 4, 128, 0)<br /> dwSize ＝ GetFileSize (hFile, 2147483647)<br /> ReadFile (hFile, dataPTR, dwSize, dwRead, 0)<br /> 返回 (读入数据 (指针到字节集 (dataPTR, dwSize)))<br /> <br /> .子程序 读取整数, 整数型, 公开, ReadInt 读取一段整数(4字节)<br /> .局部变量 位置, 整数型<br /> <br /> 位置 ＝ Rpos<br /> Rpos ＝ Rpos ＋ 4<br /> 返回 (取字节集数据 (Rdata, #整数型, 位置))<br /> <br /> .子程序 读取短整数, 短整数型, 公开, ReadShort 读取一段短整数(2字节)<br /> .局部变量 位置, 整数型<br /> <br /> 位置 ＝ Rpos<br /> Rpos ＝ Rpos ＋ 2<br /> 返回 (取字节集数据 (data, #短整数型, 位置))<br /> <br /> .子程序 读取字节, 字节型, 公开, ReadBin 读取一段字节<br /> .局部变量 位置, 整数型<br /> <br /> 位置 ＝ Rpos<br /> Rpos ＝ Rpos ＋ 1<br /> 返回 (取字节集数据 (data, #字节型, 位置))<br /> <br /> .子程序 读取日期时间, 日期时间型, 公开, 读取一段日期时间(8字节)<br /> .局部变量 位置, 整数型<br /> <br /> 位置 ＝ Rpos<br /> Rpos ＝ Rpos ＋ 8<br /> 返回 (取字节集数据 (data, #日期时间型, 位置))<br /> <br /> .子程序 读取双精度, 双精度小数型, 公开, ReadDouble 读取一段双精度小数(8字节)<br /> .局部变量 位置, 整数型<br /> <br /> 位置 ＝ Rpos<br /> Rpos ＝ Rpos ＋ 8<br /> 返回 (取字节集数据 (data, #双精度小数型, 位置))<br /> <br /> .子程序 读取定长文本, 文本型, 公开, 读取一段文本<br /> .参数 长度, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> 结果 ＝ 到文本 (取字节集中间 (Rdata, Rpos, 长度))<br /> Rpos ＝ Rpos ＋ 长度<br /> 返回 (结果)<br /> <br /> .子程序 读取文本, 文本型, 公开, 读取一段文本<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .如果真 (Normal () ＝ 假)<br />     返回 (“”)<br /> .如果真结束<br /> i ＝ 寻找字节集 (Rdata, { 0 }, Rpos)<br /> i ＝ 选择 (i ＞ 0, i, 取字节集长度 (Rdata))<br /> n ＝ Rpos<br /> Rpos ＝ i ＋ 1<br /> 返回 (到文本 (取字节集中间 (Rdata, n, i － n)))<br /> <br /> .子程序 读取定长字节集, 字节集, 公开, 读取一段字节集<br /> .参数 长度, 整数型<br /> .局部变量 结果, 字节集<br /> <br /> 结果 ＝ 取字节集中间 (Rdata, Rpos, 长度)<br /> Rpos ＝ Rpos ＋ 长度<br /> 返回 (结果)<br /> <br /> .子程序 读取字节集, 字节集, 公开, ReadBinary 读取一段字节集<br /> .局部变量 结果, 字节集<br /> .局部变量 长度, 整数型<br /> <br /> 长度 ＝ 读取整数 ()<br /> 结果 ＝ 取字节集中间 (data, pos, 长度)<br /> pos ＝ pos ＋ 长度<br /> 返回 (结果)<br /> <br /> .子程序 __输出__<br /> <br /> <br /> <br /> .子程序 写出到内存, 整数型, 公开, 返回内存指针,太大会内存溢出<br /> .局部变量 PTR, 整数型<br /> <br /> PTR ＝ HeapAlloc (GetProcessHeap (), 9, 取字节集长度 (Wdata))<br /> 写到内存 (Wdata, PTR, 取字节集长度 (Wdata))<br /> 返回 (PTR)<br /> <br /> .子程序 写出到内存文件, 整数型, 公开, 返回文件号<br /> .局部变量 id, 整数型<br /> <br /> id ＝ 打开内存文件 ()<br /> 写出数据 (id, 取字节集长度 (Wdata) ＋ Wdata)<br /> 返回 (id)<br /> <br /> .子程序 写出到文件, 字节集, 公开, 返回内容,失败返回空<br /> .参数 文件路径, 文本型<br /> .参数 类型, 整数型, 可空, 0:替换,1:置末<br /> .局部变量 hFile<br /> .局部变量 dwWrite<br /> <br /> .判断开始 (类型 ＝ 0)<br />     hFile ＝ CreateFileA (文件路径, 1073741824, 1, 0, 4, 128, 0)<br />     .如果真 (hFile ＝ -1)<br />         返回 ({  })<br />     .如果真结束<br />     .如果真 (WriteFile (hFile, Wdata, 取字节集长度 (Wdata), dwWrite, 0) ＝ 0)<br />         返回 ({  })<br />     .如果真结束<br />     CloseHandle (hFile)<br />     返回 (Wdata)<br /> .判断 (类型 ＝ 1)<br />     hFile ＝ CreateFileA (文件路径, 1073741824, 1, 0, 4, 128, 0)<br />     .如果真 (hFile ＝ -1)<br />         返回 ({  })<br />     .如果真结束<br />     .如果真 (SetFilePointer (hFile, 0, 0, 2) ＝ -1)<br />         返回 ({  })<br />     .如果真结束<br />     .如果真 (WriteFile (hFile, Wdata, 取字节集长度 (Wdata), dwWrite, 0) ＝ 0)<br />         返回 ({  })<br />     .如果真结束<br />     CloseHandle (hFile)<br /> .默认<br />     返回 ({  })<br /> .判断结束<br /> <br /> <br /> .子程序 写出空, , 公开, Null 写出为0的指定长度字节<br /> .参数 长度, 整数型<br /> <br /> Wdata ＝ Wdata ＋ 取空白字节集 (长度)<br /> <br /> .子程序 写出整数, 字节集, 公开, WriteInt 写出一个整数<br /> .参数 整数, 整数型<br /> <br /> Wdata ＝ Wdata ＋ 到字节集 (整数)<br /> 返回 (Wdata)<br /> <br /> .子程序 写出短整数, 字节集, 公开, WriteShort 写出一个短整数<br /> .参数 短整数, 短整数型<br /> <br /> Wdata ＝ Wdata ＋ 到字节集 (短整数)<br /> 返回 (Wdata)<br /> <br /> .子程序 写出字节, 字节集, 公开, WriteBin 写出一个字节<br /> .参数 字节, 字节型<br /> <br /> Wdata ＝ Wdata ＋ 字节<br /> 返回 (Wdata)<br /> <br /> .子程序 写出日期时间, 字节集, 公开, 写出一个日期时间<br /> .参数 日期时间, 日期时间型<br /> <br /> Wdata ＝ Wdata ＋ 到字节集 (日期时间)<br /> 返回 (Wdata)<br /> <br /> .子程序 写出双精度, 字节集, 公开, WriteDouble 写出一个双精度小数<br /> .参数 双精度, 双精度小数型<br /> <br /> Wdata ＝ Wdata ＋ 到字节集 (双精度)<br /> 返回 (Wdata)<br /> <br /> .子程序 写出文本, 字节集, 公开, 写出一个文本<br /> .参数 文本, 文本型<br /> <br /> Wdata ＝ Wdata ＋ 编码_Ansi到Utf8 (文本)<br /> 返回 (Wdata)<br /> <br /> .子程序 写出字节集, 字节集, 公开, WriteBinary 写出一个字节集<br /> .参数 字节集, 字节集<br /> <br /> Wdata ＝ Wdata ＋ 取字节集长度 (字节集) ＋ 字节集<br /> 返回 (Wdata)

123456ppt

牛逼，能不能用数据流实现文件不落地读写配置