open语句对文本和二进制文件的读写

文本文件的操作
此种方式是以行为单位进行读取的基本单位，主要应用的方法和函数有Open,Close,Line Input,FreeFile，EOF等。先简述其功能然后结合代码示例进行说明。
Open：顾名思义，它的作用是打开文件，换而言之打开某个文件就是获得某个的控制权，一般情况下当文件处于打开状态时只有打开者才能对它进行操作。打开文件时要指定一个整数作为文件号，以后的操作都是针对这个代号进行的，而不是针对文件名。文件号也叫句柄，在程序中一个文件号只能指向一个文件，不能出现两个文件同时具有相同句柄的情况。
Close:关闭文件，即释放文件的控制权。
Line Input:以行为单位取得文件内容，以行为单位是指从当前位置开始到下一个换行符为止的内容。换行符是Chr(13) & Chr(10)两个字节组成，VB中已定义了常量vbCrLf，可直接使用。要注意的是Line Input读取一行时会把行尾的换行符去掉，因此我们在读取每行内容时要记得补上换行符才能保持得到的内容与文件一致。
FreeFile:得到空闲的文件号，用这个函数取得文件号可以避免文件号的冲突。
例如：
   Dim strFileName As String
‘文件名
   Dim lngHandle As Long ‘文件句柄
   Dim strAll As String ‘所读取的文本文件的所有内容
   Dim strLine As String ‘在循环中存放每行的内容
strFileName = "c:\b.txt"
  
‘获得文件的句柄
   lngHandle = FreeFile()
  
‘For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
   Open strFileName For Input As
lngHandle
   ‘循环直到文件尾
Do While Not EOF(lngHandle)
    
‘每次读取一行存放在strLine变量中
     Line Input #lngHandle,
strLine
     ‘每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上
     strAll = strAll & strLine
& vbCrLf
   Loop
   ‘显示得到的全部分内容
MsgBox strAll,
vbInformation
  对文本文件的写入相对简单些，有三个步骤：打开文件，写入文本，关闭文件。
代码示例：
   Dim strFileName As String
‘文件名
   Dim lngHandle As Long ‘句柄
   Dim strWrite As String
‘要写入的文本内容
   strFileName = "c:\w.txt"
  
lngHandle = FreeFile() ‘取得句柄
   ‘准备要写入的内容
   strWrite = "落日楼头，断鸿声里，江南游子。把吴钩看了，栏干拍遍，无人会、登临意。"
   Open strFileName For Output As
lngHandle   ‘打开文件
   Print #lngHandle, strWrite  
‘写入文本
   Close lngHandle   ‘关闭文件
MsgBox "写入完成。", vbInformation
二进制文件的操作
  所有文件的存储其实质都是二进制的，二进制文件往往由两部分组成，一部分是文件头另一部分存放了文件的内容。文件头通常存放与文件格式有关的信息，以BMP等图象文件为例，它们的文件头中存放了是何种图形格式、图象大小、调色板等信息，要显示图象时先读取文件头以获得文件的详细信息，然后再按其格式把图象内容显示出来。用二进制方式可以操作任何的文件，当然至关重要的一点是要清楚了解所操作文件的文件头结构。
     VB中二进制文件操作主要应用的方法和函数有：Open,Close,Get,Put等。
Open：在For后面的打开模式要用Binary。
Close:关闭文件。
Get:在指定位置取得文件的内容，如果省略位置则从当前位置读取。
Put:在指定位置写入文件，如果省略位置参数就从当前位置写。
下面结合代码讲解二进制文件的操作。
下述程序完成了将两个文件结合成一个文件以及将这个结合后的文件再拆分成原来的两个文件。文件头的结构是自己定义的，非常简单，共8个字节（也就是两个长整型的长度），前4个字节存放第一个文件的长度，后4个字节存放第二个文件的长度。为了更直观地表达文件的结构，现假设有两个文件，第一个文件长度是100字节，第二个文件是200字节，那么合并后得到的文件应该是308字节。按顺序来看，文件的结构是：
4第一文件的长度
4第二文件的长度
100第一文件的二进制内容
200第二文件的二进制内容
除了文件头的8字节长度是固定的后面的长度都会因文件的不同变化的。
‘实现文件的合并

Private Sub MergeFile()

Dim strFileName1 As String ‘第一个文件

Dim strFileName2 As String
‘第二个文件

Dim strOutput As String
‘合并后的文件

Dim aryContent() As Byte
‘用来读取文件的数组，每次读取前要重定义

strFileName1 =
"c:\a.bmp"

strFileName2 = "c:\b.bmp"

strOutput =
"c:\out.bmp"

‘注意下面三个Open语句都是用Binary模式打开的

Open strOutput For Binary As
#100

Open strFileName1 For Binary As #1

Open strFileName2
For Binary As #2
  
   Put #100, , LOF(1) ‘取得第一文件的长度，并把它写入到合并文件的文件头中

Put #100, , LOF(2)
‘取得第二文件的长度，并写入到合并文件的文件头中

ReDim aryContent(LOF(1) - 1)
‘重定义数组，为读取文件做准备

Get #1, , aryContent()
‘取得第一文件的内容到数组

Put #100, , aryContent()
‘把第一文件的内容写到合并文件中

ReDim aryContent(LOF(2) -
1)

Get #2, , aryContent()

Put #100, ,
aryContent()

‘关闭文件

Close #1

Close
#2

Close #100

End Sub

‘实现文件的拆分

Private Sub SplitFile()

Dim strFileName1 As String

Dim strFileName2 As String

Dim
strFileSplit As String

Dim aryContent() As Byte

Dim
lngLOF(1) As Long ‘存放从文件头取得的两个文件的长度

strFileName1 =
"c:\a2.bmp"

strFileName2 = "c:\b2.bmp"

strFileSplit =
"c:\out.bmp"

Open strFileSplit For Binary As #100

Get
#100, , lngLOF(0) ‘取得第一文件的长度

Get #100, , lngLOF(1)
‘第二文件的长度

Open strFileName1 For Binary
As #1

Open strFileName2 For Binary As #2

ReDim
aryContent(lngLOF(0)-1) ‘用第一文件的长度重定义数组，为读取第一文件做准备

Get #100, 9, aryContent()
‘从第9字节，即文件后面开始读取第一文件的内容

Put #1, , aryContent()
‘把取得的内容写入到拆分文件中

ReDim
aryContent(lngLOF(1)-1)

Get #100, 9 + lngLOF(0) + 1, aryContent()
‘从第9字节再加上第一文件的长度处开始读取第二文件的内容，这里可以清楚地看到文件头的作用了

Put #2, ,
aryContent

Close #1

Close #2

Close
#100

MsgBox "拆分完成。", vbInformation

时间： 2024-10-01 03:11:08

open语句对文本和二进制文件的读写的相关文章

C++学习49 对二进制文件的读写操作

二进制文件不是以ASCII代码存放数据的,它将内存中数据存储形式不加转换地传送到磁盘文件,因此它又称为内存数据的映像文件.因为文件中的信息不是字符数据,而是字节中的二进制形式的信息,因此它又称为字节文件. 对二进制文件的操作也需要先打开文件,用完后要关闭文件.在打开时要用ios::binary指定为以二进制形式传送和存储.二进制文件除了可以作为输入文件或输出文件外,还可以是既能输入又能输出的文件.这是和ASCII文件不同的地方. 用成员函数read和write读写二进制文件 对二进制文件的读写主

29.二进制文件的读写

import java.io.*; //二进制文件的读写 public class ReadAndWriteBinaryFile { public static void main(String[] args){ DataInputStream dis=null; DataOutputStream dos=null; FileInputStream fis=null; FileOutputStream fos=null; try { //创建输入流对象 fis=new FileInputStre

JDBC处理文本和二进制文件

JDBC支持文本(CLOB)和二进制(BLOB)文件的处理,比如要往数据库里存取文章或者图片.这都是用流的思想来解决的. 来两个Demo看看JDBC是怎么操作文本和二进制文件的. CLOB: package com.wxisme.jdbcclob; import java.io.File; import java.io.FileNotFoundException; import java.io.FileReader; import java.io.IOException; import java

简单Java程序向实用程序的过度：二进制文件的读写

File I/O中常见的文件读写: 1.字节流读写文本文件 FileInputStream; FileOutputStream; 2.字符流读写文本文件 FileReader; FileWriter; BufferedReader; BufferedWriter; 3.二进制读写文件 DataInputStream; DataOutputStream; 这里重点介绍二进制文件的读写: 一.使用字节流类DataInputStream读写二进制文件 DataInputStream类是FileInpu

将日期和时间作为 struct tm型的值直接向二进制文件进行读写

#include <stdio.h> #include <time.h> char data_file[]="D:\\%\\datetime.dat"; void get_data(void) { FILE *fp; time_t t; if((fp = fopen(data_file,"r")) == NULL) printf("本程序第一次运行!\n"); else { fread(&t,sizeof(time

原 BinaryWriter和BinaryReader（二进制文件的读写）

原文 BinaryWriter和BinaryReader(二进制文件的读写) C#的FileStream类提供了最原始的字节级上的文件读写功能,但我们习惯于对字符串操作,于是StreamWriter和 StreamReader类增强了FileStream,它让我们在字符串级别上操作文件,但有的时候我们还是需要在字节级上操作文件,却又不是一个字节 一个字节的操作,通常是2个.4个或8个字节这样操作,这便有了BinaryWriter和BinaryReader类,它们可以将一个字符或数字按指定 个数字

文本文件和二进制文件的读写问题

因为工作的需要,需要读写自定义文件格式,要求以二进制方式进行读写,数据对用户来说是不可见的. 首先考虑用C++实现,代码如下: 1 std::ofstream fout("test.in", std::ios::binary|std::ios::out); 2 std::string str("Hello, world!"); 3 double nNum = 100.00; 4 fout.write((char*)nNum,sizeof(double)); 5 fo

二进制文件的读写

一.使用字节流类DataInputStream读二进制文件 (1) 引入相关类 Import java.io.*;(DataInputStream, FileInputStream) (2) 构造一个数据输入流对象 FileInputStream fis=new FileInputStream ("C:\\ HelloWord. class"); DataInputStream dis=new DataInputStream (fis); (3) 利用数据输入流类的方法读二进制文件 d

c++二进制文件的读写

#include "stdafx.h" #include "string" #include <fstream> using namespace std; class C { public: C():i(),str(){};//初始化,非赋值 C(int iP,string strP):i(iP),str(strP){}; private: int i; string str; }; void main() { char *filePath = &quo