易语言的写到文件()在win7里面不能用,我想知道解决办法

但是,我不要模块,如果是模块请提供模块源码、
2024-11-22 17:42:16
推荐回答(3个)
回答1:

.版本 2
.支持库 const

.子程序 写到文件_模块, 逻辑型, 公开, 系统核心支持库->磁盘操作 本命令用作将一个或数个字节集顺序写到指定文件中,文件原有内容被覆盖。成功返回真,失败返回假。本命令为初级命令。命令参数表中最后一个参数可以被重复添加。
.参数 文件名, 文本型
.参数 欲写入文件的数据, 字节集
.局部变量 chBuffer, 字节集
.局部变量 dwWritenSize, 整数型
.局部变量 hFile, 整数型
.局部变量 bRet, 整数型
.局部变量 返回值, 逻辑型

hFile = 创建文件_ (文件名, 位或 (#GENERIC_WRITE, #GENERIC_READ), 0, 0, #CREATE_ALWAYS, #FILE_ATTRIBUTE_NORMAL, 0)
.如果真 (hFile = #INVALID_HANDLE_VALUE)
信息框 (“创建文件失败!”, 0, )
返回值 = 假
.如果真结束
chBuffer = 取空白字节集 (取字节集长度 (欲写入文件的数据))
拷贝内存_ (chBuffer, 到字节集 (欲写入文件的数据), 取字节集长度 (欲写入文件的数据))
dwWritenSize = 0
bRet = WriteFile (hFile, chBuffer, 取字节集长度 (欲写入文件的数据), dwWritenSize, 0)
.如果 (bRet = 0)
返回值 = 假
.否则
返回值 = 真
.如果结束
关闭内核对象_ (hFile)
返回 (返回值)

.版本 2

.DLL命令 创建文件_, 整数型, "kernel32.dll", "CreateFileA", , CreateFileA
.参数 打开文件名, 文本型, , lpFileName,要打开的文件的名字
.参数 访问权限, 整数型, , dwDesiredAccess,访问权限
.参数 共享方式, 整数型, , dwShareMode,共享方式
.参数 安全特性, 整数型, , lpSecurityAttributes,安全特性信息
.参数 创建方式, 整数型, , dwCreationDisposition,创建方式
.参数 文件属性, 整数型, , dwFlagsAndAttributes,参见相关帮助
.参数 从文件复制文件属性, 整数型, , hTemplateFile,参见相关帮助
.版本 2

.DLL命令 拷贝内存_, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
.参数 目标数据地址, 字节集, , lpvDest
.参数 源数据, 字节集, , lpvSource
.参数 尺寸, 整数型, , cbCopy

.版本 2

.DLL命令 WriteFile, 整数型, "kernel32", "WriteFile", , 将数据写入一个文件。该函数比lwrite函数要灵活的多。也可将这个函数应用于对通信设备、管道、套接字以及邮槽的处理 TRUE(非零)表示成功,否则返回零。会设置GetLastError
.参数 hFile, 整数型, , 一个文件的句柄
.参数 lpBuffer, 字节集, 传址, 要写入的一个数据缓冲区
.参数 nNumberOfBytesToWrite, 整数型, , 要写入数据的字节数量。如写入零字节,表示什么都不写入,但会更新文件的“上一次修改时间”。针对位于远程系统的命名管道,限制在65535个字节以内
.参数 lpNumberOfBytesWritten, 整数型, 传址, 实际写入文件的字节数量
.参数 lpOverlapped, 整数型, , OVERLAPPED,倘若在指定FILE_FLAG_OVERLAPPED的前提下打开文件,这个参数就必须引用一个特殊的结构。那个结构定义了一次异步写操作。否则,该参数应置为空(将声明变为ByVal As 并传递零值);

.版本 2

.DLL命令 关闭内核对象_, 整数型, "kernel32", "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等。涉及文件处理时,这个函数通常与vb的close命令相似。应尽可能的使用close,因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的 非零表示成功,零表示失败。会设置GetLastError
.参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;

.版本 2

.常量 GENERIC_WRITE, "1073741824"
.常量 GENERIC_READ, "2147483648"
.常量 CREATE_ALWAYS, "2"
.常量 FILE_ATTRIBUTE_NORMAL, "128"
.常量 INVALID_HANDLE_VALUE, "-1"
==========================================================

把分割线上的复制到易语言即可

回答2:

那么惨????

回答3:

更换一下AIP应该可以的