数据文件的操作按以下步骤进行：

打开数据文件（首次操作为建立数据文件并且打开）

进行读写操作

关闭数据文件

　

1、文件的打开

格式：

Open 文件名 For 方式 [Access 存取类型] [lock] As [#]文件号 [Len=记录长度]

文件名：数据文件的名字，该文件名可能还包括目录、文件夹及驱动器。

方式：指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件。

Append：顺序输出（写入数据文件）

Binary：二进制方式（读写）

Input：顺序输入（读出数据）

Output：顺序输出（写入数据文件）

Random：随机(读写)

存取类型：说明打开的文件可以进行的操作，有 Read（读）、Write（写）、或 Read Write（读写） 操作。

Read（读）：只读文件

Write（写）：只写文件

Read Write（读写）：读写文件，在随机文件和二进制文件和Append方式下有效。

Lock：说明限定于其它进程打开的文件的操作。有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。

Lodk Shared：所有进程都可以对此数据文件进行读写操作。

Lock Read：不允许其他进程进行读操作。

Lock Write：不允许其他进程进行写操作。

Lock Read Write：不允许其他进程进行读写操作。

文件号：一个有效的文件号，范围在 1 到 511 之间。

记录长度：对于用随机访问方式打开的文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。

功能：

打开指定的文件。

如果指定的文件不存在，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。

如果文件已由其它进程打开，而且不允许指定的访问类型，则 Open 操作失败，而且会有错误发生。

如果方式是 Binary 方式，则 Len 子句会被忽略掉。

注意：在 Binary、Input 和 Random 方式下可以用不同的文件号打开同一文件，而不必先将该文件关闭。在 Append 和 Output 方式下，如果要用不同的文件号打开同一文件，则必须在打开文件之前先关闭该文件。

举例：

Open "d:\student.txt" For Output As #1

Open "d:\txl.txt" For Append   As #2

Open "d:\address.txt" For Input Read  As #3

Open "d:\cj.txt" For Random 
 As #4 len=40

 

2、文件关闭

格式：

Close [[#]文件号][,[#]文件号][,[#]文件号][,[#]文件号]......

文件号：打开文件时指定的文件号。

功能：

关闭指定的文件号连接的文件。如果不指定文件号将关闭所有打开的数据文件。

关闭的操作主要是将缓冲区中的数据写入文件中，并且取消文件号与文件的关联。

除了Close外，当程序运行结束时，也会关闭所有的数据文件。

举例：

Close #1

Close #2，#3

 

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/qinson/archive/2004/10/09/128860.aspx

 
VB中文件操作的两种方式
 

文本文件的操作

 
此种方式是以行为单位进行读取的基本单位，主要应用的方法和函数有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
 
文本文件由于没有格式所以它的读写都比较简单和直观，而用二进制操作文件时其实质就是对文件头的理解，如果不知道文件头的结构那就无法对文件进行处理了，知道了文件头所包含的信息后，对文件的操作其实就是按规则进行Get、Put罢了。

	

将PDF转换为DXF和DWG的最佳工具
pdf2cad v11提供了许多新功能和增强功能，包括对Microsoft Windows 10的支持、受密码保护的PDF文件的处理、对图像的更多控制、灵活的页面编号、其它分隔层的方式等等。
pdf2cad v11的新增功能？
将PDF转换回CAD格式
使用pdf2cad将矢量PDF文件转换为可编辑的CAD图纸，例如DXF和DWG，从而节省了重新绘制的时间。只需几秒钟，您就可以提取准确的工程图，可以在常用的工程程序(如AutoCAD、TurboCAD和MicroStation)中轻松对其进行修改。输出格式包括DWG、DXF和HPGL。pdf2cad是转换CAD工程图、平面图、网络图和组织结构图的理想选择。它可以从任何计算机生成的PDF文件中提取可编辑的CAD实体、图层、对象和文本，而将扫描的PDF文件中的图像放置在不可编辑的跟踪层上。
pdf2cad可用于Microsoft Windows或Apple Mac OSX。了解以下有关pdf2cad的主要功能以及如何在Windows或Mac上使用它的更多信息。
试用pdf2cad 30天或向我们发送测试文件，我们将为您进行转换。只需一个文件即可查看pdf2cad是否可以为您节省时间和金钱。它易于使用，更有一些强大的选项。如果您希望通过学习曲线来看它对您的工程图有多大的作用，那么请上传文件，其余的工作将由我们完成。现在开始尝试任何一种方式！
pdf2cad中的功能
•将PDF文件转换为标准CAD交换格、DWG、DXF和HPGL
•使用内置批量处理模式转换一个文件或多个文件
•转换所有页面或指定页面范围
•智能物体识别
•组合字符形成可编辑的单词和文本行
•裁剪
•在页面上添加空格
•将输出旋转任意角度
•选择在转换过程中忽略文本、图像或路径
•映射字体以实现高保真文件匹配
•缩放页面以匹配文件的原始尺寸
•指定最小线宽
•根据颜色或其他定义分隔CAD工程图中的图层
•虚线作为分段
•将所有图像以DXF格式保存为参考文件
•开发人员可以使用命令行版本和Windows DLL
•扩展了对非标准字体的支持
•可以删除或勾勒阴影线/填充物
•改进了有关错误和警告的报告
•简化的界面可以更快、更轻松地进行转换
教程：在Windows上使用pdf2cad
本教程假定您已经在Windows PC上安装了pdf2cad，并且可以从“开始”菜单、“桌面”或“快速启动”功能区访问它。选择您喜欢的方法并启动pdf2cad。
启动pdf2cad并选择要转换的文件：
 
 
选择常规转换选项和输出格式。
 
“常规设置”控制选项适用于所有文件。这些选项包括您希望文本如何在文件中转换的选项。
字符作为字符串查看您的文件，并根据位置和接近程度将单个字符组合成单词，并将单词组合成可编辑的文本行。
将字符转换为曲线将为文本创建图形匹配，以确保在目标系统中字体未知或不可用时可以完美匹配。
旋转：您也可以选择向任一方向旋转文件。
缩放文本：放大或缩小转换文件中文本的大小。
模拟PDF裁剪：WMF、CGM、DXF和HPGL等几种矢量格式不支持裁剪。这是删除图片中不必要的部分，例如多余的填充和其他元素。由于PDF支持此功能，所以我们开发了一种专有的方法来模拟裁剪，该方法可以在转换期间应用。使用此功能生成的文件将看起来像原始.PDF格式文本。
显示字体警告：如果您的计算机上未安装在PDF文件中定义的相同字体，则转换后的图形将无法正确显示。字体映射是一种确保尽可能最接近的匹配或补偿不同系统上不同字体命名规范的方法。
忽略路径、文本图像：选择是否要在没有某些元素的情况下执行转换。
CAD格式：选择格式——DWG用于AutoCAD，DXF用于大多数工程和技术程序，HPGL用于绘图仪特定的应用程序。
 
字体映射：如果字符正在转换但显示不正确，则可能是字体映射问题。为了遵守字体供应商的许可规定，我们的软件不能将字体嵌入矢量输出格式。相反，我们可以通过字体名称来引用它们。如果目标PC上的字体使用相同的名称，则文件将打开并完美显示。如果打开该文件的PC上没有相同的字体(很有可能)，则文本将无法正确显示。更复杂的是，通常一种字体可能带有多个不同的名称。例如：Arial Bold在原始文件中可能被称为“EHJPKB + Arial-Bold”。该字体可能是普通的Arial Bold，但是除非您告知目标应用程序，否则它不知道。这称为字体映射。如果字体映射不正确，将替换最接近的字体。在此示例中，“EHJPKB_Arial-Bold”必须映射为“Arial”，字体样式为“Bold”。
 
页面设置控制选项适用于所有文件。所有其他选项都取决于您选择的是矢量还是位图输出格式。
裁剪图片：删除边距：默认情况下使用PDF文件的边距。此设置可以调整或删除空白。
页面大小：pdf2cad将自动计算页面大小。如果要强制使用标准或自定义页面尺寸，请选择它或输入尺寸。
转换范围：默认情况下，pdf2cad将转换文件的所有页面。如果只需要选定的页面，则可以设置页面范围。
页面映射：默认情况下，多页PDF文件将转换为单个文件。其他选项是合并、水平和垂直。
 
DWG / DXF选项专门适用于CAD工程图的属性。在这里，您可以调整比例以及对于图层和合成的处理。
缩放系数：CAD格式未使用标尺的绝对测量值定义物理尺寸。而是使用用户定义的单位。创建PDF时，这些单位会丢失，但比例(xy关系)仍然存在。您可以设置要在转换过程中应用的比例因子，以获取所需的尺寸图，也可以在CAD程序中打开它时设置正确的单位。默认情况下，pdf2cad在PDF中使用1毫米(0,03937英寸)= DXF中的1单位。
精度系数：如果将此设置从10.0改为1.0，则pdf2cad有时会提供更高的精度和更准确的坐标。如果这样做没有帮助，请将文件发送给我们进行诊断。
路径作为折线/多边形：专有的对象识别引擎将识别路径之间的关系，如果相邻关系，会将其渲染为折线或多边形。
图层：默认情况下，所用对象都放置在同一图层上。它们可以按颜色、线宽、PDF图层、专色以及颜色和线宽的组合进行拆分。
最小线宽：以毫米为单位定义每个矢量对象的最小线宽。默认值为0。
零线宽：删除3D效果
虚线和点线作为分段：将虚线和点线识别为具有属性的线。如果不启用此功能，则虚线将转换为许多小线段。
填充选项：有时，PDF文件中的白色填充显示为DXF文件中的黑色填充。如果这是一个问题，请使用此选项忽略白色填充。
 
识别圆/椭圆：专有的对象识别引擎可识别闭合的多边形和圆形路径，并将其转换为圆形和椭圆形。
识别水平/垂直虚线：虚线和点线可以被视为带有线样式等属性的单个对象，而不必分解为多个较小的线段。
错误容限：这是为识别CAD对象而设置的容限级别。如果闭合折线上的一个点不在指定范围内，它将保持为折线。
紧缩因子：此设置控制字母或字符之间的间隔。通常，不必担心字距调整，但是如果您确实想更改字符间距，则可以使用字距调整系数来完成。请注意，间距问题可能不是字距问题，它可能是由于字体不匹配所致，最好通过字体映射解决。
复合对象：对象识别引擎将尝试将尽可能多的对象转换为组合对象或复合对象。如果您希望所有图形都保留为单个对象，请将其关闭。
转换隐藏的文本对象：通常，PDF文件将包含在对象下透明或隐藏的文本。此选项将提取所有文本，包括隐藏的文本。
Fir Drawing：此选项可确保在CAD程序中打开后，转换后的图将完全可见。
包括AI序言文件：
自定义线样式：可将PDF中的线样式映射到DXF文件中的自定义线样式。
使用正确颜色：
简单模式：默认情况下，pdf2cad一次将转换一个文件。要使用批处理模式转换多个文件，请关闭简单模式。
转换文件！就是这样...
 
转换后的文件将位于您的文件系统中，通常与原始文件夹位于同一文件夹中。现在，您可以在CAD应用程序中打开它们。此时，您可以选择“新建转换”以执行更多操作或退出应用程序。如果有任何警告，请检查“详细信息”按钮来进行查看。在几乎所有情况下，这些都是关于字体的警告，这些字体在原始PDF文件中，但不在您的PC上，这意味着将使用替代字体。错误非常罕见，如果遇到这种错误，请与文件一起报告给我们。
公司名称：北京哲想软件有限公司
北京哲想软件官方网站：www.cogitosoft.com
北京哲想软件微信公众平台账号：cogitosoftware
北京哲想软件微博：哲想软件
北京哲想软件邮箱：sales@cogitosoft.com
销售(俞先生)联系方式：+86(010)68421378
微信：18610247936     QQ：368531638