files2.pb

来自「利用春节七天在家里写的PureBasic示例代码.基本按照C教程的章节编排.适合」· PB 代码 · 共 54 行

;//////////////////////////////////
; Amlinger
;                   by 2008 02 06
;描述:打开一个文件并写入消息
;目标:如何用PureBasic对文件操作
;//////////////////////////////////



;定义一个文件号
#FileNum=1


If ReadFile(#FileNum,"C:\pbtutorial.txt") 
;读取文件到变量中    
;ReadString 读取文字内容 不能读取 字节为0的内容
;ReadString(文件号[,编码])
;ReadData 读取二进制文件内容
;ReadData(文件号,缓冲区指针,读取长度)

;////////////////////////////////////
;插曲:
; 关于二进制文件与文本文件 
; 相同点,最终计算机以二进制处理

; 不同点:
; 关系1:
; 文本文件包含于二进制文件,
; 二进制文件不一定是文本文件
; 关系2:
; 文本文件中不包含 0 字节内容.
; 二进制文件中含有 0 字节内容

; 以前刚学的时候认为,即然文件最终都是以
; 二进制存放的,为什么还会分文本文件和二
; 进制文件.后来慢慢就明白了.
;////////////////////////////////////

        Filebuffer$  =   ReadString(#FileNum)
;显示读取文件内容          
  MessageRequester("读取文件","文件内容: "+Filebuffer$,#PB_MessageRequester_Ok)
 
CloseFile(#FileNum)


Else
;显示一个含有确定按钮的
   MessageRequester("失败","文件不存在或无法访问.",#PB_MessageRequester_Ok) 
EndIf

; IDE Options = PureBasic 4.10 (Windows - x86)
; CursorPosition = 32
; FirstLine = 7
; Folding = -