Python读写文本文件
cnasia 2017.3.9
# 写文件，将26个大写英文字母在
# 计算机中存的字（ASCII）
# 写入文件tmp.txt中
fname="tmp.txt"
f = open(fname, "w")
for i in range(26):
s=chr(ord('A')+i)
f.write(s)
f.write(' ')
k=str(ord(s))
f.write(k)
f.write("\n")
f.close()
#########################
# 读取上面建立的ASCII表文件
# 显示到屏幕上
fname="tmp.txt"
f = open(fname, "r") #打开文件
line = f.readline() #读取一行
while(line!=""):
L1=line.split() #分离以空格分隔的字符串
print(L1[0],L1[1])
line = f.readline()
f.close()
delphi7读取excel 我有一个excel文件，第一行是某项目预算表，第二行有分公司、项目名，第三行是材料、数量、单价、金额等列标题，往下就是具体的数据，请问我怎么读取哪些具体数据呀？我以前见过一个软件，可以在表格中打开excel文件，然后可以删除excel的前后几行，只留下规则的中间部分（实际的excel文件中这几行并没删除），不知道怎么可以实现这样的功能 用ole可以解决 用ole读excel：会读了后，你自己处理一下要读的数据就行了 var I, J: Integer; MaxRow, MaxCol: Integer; List, Strs: TStringList; ExcelApp, Sheet: Variant; OldTime: TDateTime; begin List := TStringList.Create; Strs := TStringList.Create; // 创建一个excel的ole对象 ExcelApp := CreateOleObject( "Excel.Application "); try // 打开一个excel文件 ExcelApp.WorkBooks.Open(Edit1.Text); List.BeginUpdate; try // 设置工作区 ExcelApp.WorkSheets[1].Activate; Sheet := ExcelApp.WorkSheets[1]; // 有数据的区域的行数和列数 MaxRow := https://www.doczj.com/doc/ac5270655.html,edRange.Rows.count - 1; MaxCol := https://www.doczj.com/doc/ac5270655.html,edRange.Columns.count; for I := 2 to MaxRow do begin Strs.Clear; for J := 1 to MaxCol do begin // 获得excel的数据第i行，第j列单元格内的数据
如何用vc创建和读取xml文件 当前Web上流行的剧本语言是以HTML为主的语言结构，HTML是一种标记语言，而不是一种编程语言，主要的标记是针对显示，而不是针对文档内容本身结构的描述的。也就是说，机器本身是不能够解析它的内容的，所以就出现了XML语言。XML (eXtensible Markup Language)语言是SGML语言的子集，它保留了SGML主要的使用功能，同时大大缩减了SGML的复杂性。XML语言系统建立的目的就是使它不仅能够表示文档的内容，而且可以表示文档的结构，这样在同时能够被人类理解的同时，也能够被机器所理解。XML要求遵循一定的严格的标准。XML分析程序比HTML浏览器更加要挑剔语法和结构，XML要求正在创建的网页正确的使用语法和结构，而不是象HTML一样，通过浏览器推测文档中应该是什么东西来实现HTML的显示，XML使得分析程序不论在性能还是稳定性方面都更容易实现。XML文档每次的分析结果都是一致的，不象HTML，不同的浏览器可能对同一个HTML作出不同的分析和显示。 同时因为分析程序不需要花时间重建不完整的文档，所以它们能比同类HTML能更有效地执行其任务。它们能全力以赴地根据已经包含在文档中的那个树结构建造出相应的树来，而不用在信息流中的混合结构的基础上进行显示。XML标准是对数据的处理应用，而不是只针对Web网页的。任何类型的应用都可以在分析程序的上面进行建造，浏览器只是XML的一个小的组成部分。当然，浏览仍旧极其重要，因为它为XML工作人员提供用于阅读信息的友好工具。但对更大的项目来说它就不过是一个显示窗口。因为XML具有严格的语法结构，所以我们甚至可以用XML来定义一个应用层的通讯协议，比如互联网开放贸易协议(Internet Open Trading Protocol)就是用XML来定义的。从某种意义上说，以前我们用BNF范式定义的一些协议和格式从原则上说都可以用XML来定义。实际上，如果我们有足够的耐心，我们完全可以用XML来定义一个C++语言的规范。 当然，XML允许大量HTML样式的形式自由的开发，但是它对规则的要求更加严格。XML主要有三个要素：DTD(Document Type Declaration——文档类型声明)或XML Schema(XML大纲)、XSL(eXtensible Stylesheet Language——可扩展样式语言)和XLink(eXtensible Link Language——可扩展链接语言)。DTD和XML大纲规定了XML文件的逻辑结构，定义了XML文件中的元素、元素的属性以及元素和元素的属性之间的关系；Namespace(名域)实现统一的XML文档数据表示以及数据的相互集成；XSL是用于规定XML文档呈现样式的语言，它使得数据与其表现形式相互独立，比如XSL能使Web浏览器改变文档的表示法，例如数据的显示顺序的变化，不需要再与服务器进行通讯。通过改变样式表，同一个文档可以显示得更大，或者经过折叠只显示外面得一层，或者可以变为打印得格式。而XLink将进一步扩展目前Web上已有的简单链接。 二、实现XML解析的说明 当然，从理论上说，根据XML的格式定义，我们可以自己编写一个XML的语法分析器，但是实际上微软已经给我们提供了一个XML语法解析器，如果你安装了IE5.0以上版本的话，实际上你就已经安装了XML语法解析器。可以从微软站点(https://www.doczj.com/doc/ac5270655.html,)下载最新的MSXML的SDK和Parser文件。它是一个叫做MSXML.DLL的动态链接库，最新版本为msxml3，实际上它是一个COM对象库，里面封装了所有进行XML解析所需要的所有必要的对象。因为COM是一种以二进制格式出现的和语言无关的可重用对象。所以你可以用任何语言(比如VB，VC，DELPHI，C++ Builder甚至是剧本语言等等)对它进行调用，
asp读取xml文件的方法 大家知道asp读取xml文件吗?下面我们就给大家详细介绍一下吧!我们积累了一些经验，在此拿出来与大家分享下，请大家互相指正。 ? strSourceFile=Server.MapPath(dataxml&”/Advertisement/”&id&”/a dv.xml”) ?SetobjXML=Server.CreateObject(“Microsoft.XMLDOM”)'创建一个XML对像 ?objXML.load(strSourceFile)'把XML文件读入内存 ?Setxml=objXML.documentElement.selectSingleNode(“Advertisement”)'选取节点Advertisement ?ADid=xml.childNodes.item(0).text ?ADname=xml.childNodes.item(1).text ?ADintro=xml.childNodes.item(2).text ?ADact=xml.childNodes.item(3).text ?ADclass=xml.childNodes.item(4).text ?Pids=xml.childNodes.item(5).text ?Picid=xml.childNodes.item(6).text ?ADurl=xml.childNodes.item(7).text ?ADwindow=xml.childNodes.item(8).text ?ADshow=xml.childNodes.item(9).text ?ADshows=xml.childNodes.item(10).text ?ADclick=xml.childNodes.item(11).text
VB读写ini文件（1） 2007-06-20 11:32 自从注册表诞生以来ini文件正在逐渐失去其市场占有率，然而基于ini文件的独立性，致使其还没有到达退出历史舞台的地步，很多应用程序的初始化和一些界面参数的设置仍然很愿意从ini文件中读取，为了保证操作需用参数对ini文件的读取的通明性，建议使用一个模块来完成此工作。注：所有操作调用标准的Win API函数来完成。 Dim Ret As Long Dim Start As Long Public FileName As String Const BufSize = 10240 Dim buf As String * BufSize Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Public Sub SetValue(ByVal clsName As String, ByVal key As String, ByVal V As String) Ret = WritePrivateProfileString(clsName, key, V, FileName) End Sub Public Function GetValue(ByVal clsName As String, ByVal key As String) As String Ret = GetPrivateProfileString(clsName, key, "", buf, BufSize, FileName) Start = 1 GetValue = RetStr() End Function Private Function RetStr() As String Dim i As Long i = InStr(Start, buf, Chr(0)) If i > Start Then RetStr = Mid(buf, Start, i - Start) End If Start = i + 1 End Function 至此已经完成了对一个完整的独立模块的封装，接下来就来看看怎么引用（其实看完上面程序就明了了） VB读写INI文件（2） 2007-06-20 11:32 INI 文件是什么样子？——不会吧，这都不知道。INI 文件就是 Windows 中常见的以 .ini 为扩展名的文件，其内部格式和各部分的名称如下： [Section1] Key1=Value1
在java环境下读取xml文件的方法主要有4种：DOM、SAX、JDOM、JAXB 1. DOM(Document Object Model) 此方法主要由W3C提供，它将xml文件全部读入内存中，然后将各个元素组成一棵数据树，以便快速的访问各个节点。因此非常消耗系统性能，对比较大的文档不适宜采用DOM方法来解析。 DOM API 直接沿袭了 XML 规范。每个结点都可以扩展的基于 Node 的接口，就多态性的观点来讲，它是优秀的，但是在Java 语言中的应用不方便，并且可读性不强。 实例： Java代码 1.import javax.xml.parsers.*; 2.//XML解析器接口 3.import org.w3c.dom.*; 4.//XML的DOM实现 5.import org.apache.crimson.tree.XmlDocument; 6.//写XML文件要用到 7.DocumentBuilderFactory factory = DocumentBuilderFactory.newInst ance(); 8. //允许名字空间 9. factory.setNamespaceAware(true); 10. //允许验证 11. factory.setValidating(true); 12. //获得DocumentBuilder的一个实例 13.try { 14. DocumentBuilder builder = factory.newDocumentBuilder(); 15.} catch (ParserConfigurationException pce) { 16.System.err.println(pce); 17.// 出异常时输出异常信息，然后退出，下同 18.System.exit(1); 19.} 20.//解析文档，并获得一个Document实例。 21.try { 22.Document doc = builder.parse(fileURI); 23.} catch (DOMException dom) { 24.System.err.println(dom.getMessage()); 25.System.exit(1); 26.} catch (IOException ioe) { 27.System.err.println(ioe); 28.System.exit(1); 29.}
vb读取txt文件到textbox vb读取txt文件到textbox 1.怎么通过代码创建一个文本文件，并读取，更新内容 以上为随即方式打开的文本文件 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For Random As gfilenum len=3 \'以随即方式打开一文件如果文件不存在就新建 用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作 用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作 close #filenum\'关闭文件 以下为顺序方式打开的文件 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For output As gfilenum \'以写入方式打开文本 print #gfilenum,要写入的文本 write #filenumber,要写入的文本 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For input As gfilenum \'以读出方式打开文本 input #gfilenum ,用来放读取的内容的内存变量名 还可用line input#,input()等读取更详细的查msdn 2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFile报错了。 如果是 Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault)
XML：Extensible Markup Language（可扩展标记语言）的缩写，是用来定义其它语言的一种元语言，其前身是SGML(Standard Generalized Markup Language，标准通用标记语言)。它没有标签集（tag set），也没有语法规则（grammatical rule），但是它有句法规则（syntax rule）。 任何XML文档对任何类型的应用以及正确的解析都必须是良构的（well-formed），即每一个打开的标签都必须有匹配的结束标签，不得 含有次序颠倒的标签，并且在语句构成上应符合技术规范的要求。XML文档可以是有效的（valid），但并非一定要求有效。所谓有效文档是指其符合其文档 类型定义（DTD）的文档。如果一个文档符合一个模式（schema）的规定，那么这个文档是"模式有效的（schema valid）"。 XML文件在存储、交换和传输数据信息上有着很方便处理，那么今天这篇文章主要讲一下用C#如何实现对XML文件的基本操作， 如：创建xml文件，增、删、改、查xml的节点信息。所使用的方法很基础，方便易懂（用于自己的学习和记忆只需，同时也希望能够给你带来一些帮助， 如有不合适的地方欢迎大家批评指正）。 本文的主要模块为： ①：生成xml文件 ②：遍历xml文件的节点信息 ③：修改xml文件的节点信息 ④：向xml文件添加节点信息 ⑤：删除指定xml文件的节点信息假设我们需要设计出这样的一个xml文件来存储相应的信息，如下所示：
做二次开发过程中的一些代码搜集和个人的试错及注释： Dim str_File_1 As String = https://www.doczj.com/doc/ac5270655.html,puter.FileSystem.ReadAllText("E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\1.tcl", System.Text.Encoding.ASCII) '根据实际的编码读第一个文件 Dim str_File_2 As String = https://www.doczj.com/doc/ac5270655.html,puter.FileSystem.ReadAllText("E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\2.tcl", System.Text.Encoding.ASCII) '根据实际的编码读第二个文件 FileOpen(1, "E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\1.tcl", OpenMode.Input, OpenAccess.Default, OpenShare.Shared) '以读方式打开文件 FileOpen(2, "E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\2.tcl", OpenMode.Output, OpenAccess.Default, OpenShare.Shared) '以写方式打开文件 Print(2, str_File_1) '将1文件写入2中 FileClose(1) FileClose(2) Imports System.IO Public Class TXTClass '为了能够操作txt文本文档，需要在类的前面加入“System.IO”空间的引用； '然后定义3个变量sw（用于write操作，变量类型StreamWriter）、 'sr（用于read操作，变量类型StreamReader）、 'strRead()（用于保存从文本文档中读入的数据，变量类型String数组）； '然后写一个空的sub New()过程（类必须有的）。 Private swAsStreamWriter Private srAsStreamReader Public strRead() As String Public Sub New() End Sub '写操作 '写入一行数据到文本文件 '以追加的形式写入一行数据 Public Sub ZhuiJiaSingle(ByValParth As String, ByValstrline As String) sw = New StreamWriter(Parth, True, System.Text.Encoding.Default) sw.WriteLine(strline) sw.Flush() sw.Close() sw = Nothing
读取XML到ListBox/ComboBox 1,知识需求： (1)访问XML文件的两个基本模型： 一，DOM模型；使用DOM的好处在于它允许编辑和更新XML文档，可以随机访问文档中的数据，可以使用XPath查询，但是，DOM的缺点在于它需要一次性的加载整个文档到内存中，对于大型的文档，这会造成资源问题。 二，流模型；流模型很好的解决了这个问题，因为它对XML文件的访问采用的是流的概念，也就是说，任何时候在内存中只有当前节点，但它也有它的不足，它是只读的，仅向前的，不能在文档中执行向后导航操作。虽然是各有千秋，但我们也可以在程序中两者并用实现优劣互补。C#采用流模型。 流模型每次迭代XML文档中的一个节点，适合于处理较大的文档，所耗内存空间小。流模型中有两种变体——“推”push模型和pull“拉”模型。 推模型也就是常说的SAX，SAX是一种靠事件驱动的模型，也就是说：它每发现一个节点就用推模型引发一个事件，而我们必须编写这些事件的处理程序，这样的做法非常的不灵活，也很麻烦。 .NET中使用的是基于“拉”模型的实现方案，“拉”模型在遍历文档时会把感兴趣的文档部分从读取器中拉出，不需要引发事件，允许我们以编程的方式访问文档，这大大的提高了灵活性，在性能上“拉”模型可以选择性的处理节点，而SAX每发现一个节点都会通知客户机，从而，使用“拉”模型可以提高Application的整体效率。在.NET中“拉”模型是作为XmlReader类(抽象类)实现的 （2）XmlReader类 Represents a reader that provides fast, non-cached, forward-only access to XML data. 该类中有三个重要的衍生类：XmlT extReader；XmlT extValidatingReader；XmlNodeReader （3）XmlNodeType枚举 该枚举里面有很多实用的数。 2，案例（VS2008+XML）
ACCESS数据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB，建立标准EXE 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面 图2
图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4所示控件 图4
4、添加控件Adodc 图5 4、在控件Adodc上添加数据源 鼠标指向控件Adodc1，单击右键，选择“ADODC 属性”，弹出如图7所示界面 图6
图7 单击“生成(U). . .”，弹出如图8所示界面 图8 选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图9所示界面
图9 单击“. . .”，添加数据源（第一步所建Access 数据库），如图10所示 图10 单击“测试连接（T）”，出现提示框，如图11所示 图11 之后点击“确定”，退回到如图12所示界面
图12 单击“记录源”，弹出如图13所示界面 图13 在“命令类型”下，选择“1 - adCmdText”，在“命令文本（SQL）”下，输入“Select * from test1”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click() ‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open ‘打开数据库 rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1
Delphi 文件操作集锦 Delphi 文件操作集锦 时间:2011-5-26来源:yang 作者: peng点击: 11次Delphi 文件操作集锦 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses activex,comobj,shlobj; {$R *.dfm} function ResolveLink(const ALinkfile: String): String; var
link: IShellLink; storage: IPersistFile; filedata: TWin32FindData; buf: Array[0..MAX_PATH] of Char; widepath: WideString; begin OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, link)); OleCheck(link.QueryInterface(IPersistFile, storage)); widepath := ALinkFile; Result := ‘unable to resolve link‘; If Succeeded(storage.Load(@widepath[1], STGM_READ)) Then If Succeeded(link.Resolve(GetActiveWindow, SLR_NOUPDATE)) Then If Succeeded(link.GetPath(buf, sizeof(buf), filedata, SLGP_UNCPRIORITY)) Then Result := buf; storage := nil; link:= nil; end; // 用法: procedure TForm1.Button1Click(Sender: TObject);
C#中常用的几种读取XML文件的方法 https://www.doczj.com/doc/ac5270655.html,/tiemufeng1122/article/details/6723764 XML文件是一种常用的文件格式，例如WinForm里面的app.config以及Web程序中的web.config文件，还有许多重要的场所都有它的身影。Xml是Internet环境中跨平台的，依赖于内容的技术，是当前处理结构化文档信息的有力工具。XML是一种简单的数据存储语言，使用一系列简单的标记描述数据，而这些标记可以用方便的方式建立，虽然XML占用的空间比二进制数据要占用更多的空间，但XML极其简单易于掌握和使用。微软也提供了一系列类库来倒帮助我们在应用程序中存储XML文件。 “在程序中访问进而操作XML文件一般有两种模型，分别是使用DOM（文档对象模型）和流模型，使用DOM的好处在于它允许编辑和更新XML文档，可以随机访问文档中的数据，可以使用XPath查询，但是，DOM的缺点在于它需要一次性的加载整个文档到内存中，对于大型的文档，这会造成资源问题。流模型很好的解决了这个问题，因为它对XML文件的访问采用的是流的概念，也就是说，任何时候在内存中只有当前节点，但它也有它的不足，它是只读的，仅向前的，不能在文档中执行向后导航操作。”具体参见在Visual C#中使用XML指南之读取XML 下面我将介绍三种常用的读取XML文件的方法。分别是 1:使用 XmlDocument 2:使用 XmlTextReader 3:使用 Linq to Xml 这里我先创建一个XML文件,名为Book.xml下面所有的方法都是基于这个XML文件的,文件内容如下: 1: 2:
读取文本文件内容并打印输出 Private Sub Command1_Click() Dim TextLine As String Open "c:\\testfile.txt" For Input As #1 Do While Not EOF(1) Line Input #1, TextLine Print TextLine Loop Close #1 End Sub 新建文件并写入文件内容 Private Sub Form_Load() Const ForReading = 1, ForWriting = 2 Dim fso, f Dim SkipLineInFile As String Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, True) f.Write "Hello world!" & vbCrLf & "VB Script is fun!" Set f = fso.OpenTextFile("c:\\testfile.txt", ForReading) SkipLineInFile = f.readall Debug.Print SkipLineInFile End Sub 冒泡上浮 Private Sub Command1_Click() Dim d(1 To 4) As Integer d(1) = Val(Text1.Text) d(2) = Val(Text2.Text) d(3) = Val(Text3.Text) d(4) = Val(Text4.Text) For i = 1 To 3 For j = 4 To i + 1 Step -1 If d(j) < d(j - 1) Then t = d(j) d(j) = d(j - 1) d(j - 1) = t End If Next j Next i For i = 1 To 4
python读取xml文件 还可以参见网址https://www.doczj.com/doc/ac5270655.html,/uid-22183602-id-3036442.html https://www.doczj.com/doc/ac5270655.html,/uid-22183602-id-3036442.html 2014-03-04 23:43 by 虫师, 13913 阅读, 1 评论, 收藏, 编辑 关于python读取xml文章很多，但大多文章都是贴一个xml文件，然后再贴个处理文件的代码。这样并不利于初学者的学习，希望这篇文章可以更通俗易懂的教如何使用python 来读取xml 文件。 什么是xml？ xml即可扩展标记语言，它可以用来标记数据、定义数据类型，是一种允许用户对自己的标记语言进行定义的源语言。 abc.xml
首先，它是有标签对组成，
总结一下VB6的文件操作，省得要用的时候又到处查找。 一、文件类型 1、顺序文件（文本文件）：以ASCII码形式存放的文件。似乎还有Unicode码存放的，有没有BCD码的呢？ 2、随机访问文件：这种文件格式很有特点：文件中存放若干条等长的单元（也可以说是记录）；每个单元包含同类型、等数量、等长度的数据项；文件中，除了字符串以ASCII码存放之外，其它都以二进制形式直接存放，节省存储空间。这种文件类型非常适合存储需要和软件交互的数据，如结构体数据、类数据等。这也是VB特有的文件访问方式。 3、二进制文件：以二进制形式存放，PE程序文件一般都是这个类型。 二、操作方法 1、顺序文件 打开：Open 文件名For Input | Output | Append As [#]文件号 Input打开读入，文件不存在报错。Output打开覆盖写入，文件不存在则创建。Append打开追加写入，文件不存在则创建。 读：Line Input #文件号, 字符串变量
读一行数据存入字符串变量，数据包括空格、Tab、等，不包括回车符和换行符，所以要显示文件的换行效果，要手动添加回车符和换行符（vbCrLf） Input #文件号, 变量1[, | ;] [变量2]... 这种方式可以存入多个变量，而且变量类型不限于字符串型。写：Print #文件号, 参数1[, | ;] [参数2]... 将各参数逐个写入文件。参数间用逗号隔开时，文件中相应插入多个空格；用分号隔开时，插入一个空格。可以用Spc(n)、Tab(n)等进行排版。 Write #文件号, 参数1[, | ;] [参数2]... 这种写入方式将自动添加界定符，对不同参数的类型加以界定。 2、随机访问文件 打开：Open 文件名[For Random] As [#]文件号Len = 记录长度 For Random可以省略，文件不存在则创建，读写都是这种打开方式。Len是文件中记录的一条长度，用以识别记录的开始与结束，经常用Len(记录名)来获取长度。 读：Get [#]文件号, [记录号], 变量
DELPHI基础教程 第十九章Delphi自定义部件开发（二） 19.2.2 Delphi部件编程 19.2.2.1 创建属性 属性（Property）是部件中最特殊的部分，主要因为部件用户在设计时可以看见和操作它们，并且在交互过程中能立即得到返回结果。属性也很重要，因为如果将它们设计好后，将使用户更容易地使用，自己维护起来也很容易。 为了使你在部件中更好地使用属性，本部分将介绍下列内容： ●为什么要创建属性 ●属性的种类 ●公布(publishing)继承的属性 ●定义部件属性 ●编写属性编辑器 1. 为什么要创建属性 属性提供非常重要的好处，最明显的好处是属性在设计时能出现在Object Inspector窗口中，这将简化编程工作，因为你只需读用户所赋的值，而不要处理构造对象的参数。 从部件使用者的观点看，属性象变量。用户可以给属性赋值或读值，就好象属性是对象的域。 从部件编写者的观点看属性比对象的域有更强的功能；
⑴用户可以在设计时设置属性 这是非常重要的，因为不象方法，只能在运行时访问。属性使用户在运行程序之前就能定制部件，通常你的部件不应包含很多的方法，它们的功能可以通过属性来实现。 ⑵属性能隐藏详细的实现细节 ⑶属性能引起简单地赋值之外的响应，如触发事件 ⑷用于属性的实现方法可以是虚拟方法，这样看似简单的属性在不同的部件中，将实现不同的功能。 2. 属性的类型 属性可以是函数能返回的任何类型，因为属性的实现可以使用函数。所有的Pascal类型，兼容性规则都适用属性。为属性选择类型的最重要的方面是不同的类型出现在Object Inspector窗口中的方式不同。Object Inspector将按不同的类型决定其出现的方式。 你也能在注册部件时描述不同的属性编辑器。 下表列出属性出现在Object Inspector窗口中的方式 表19.3 属性出现在Object Inspector窗口中的方式 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 属性类型处理方式
ACCESS数据库和 VB 的连接 Edited by Ryan 2013 1、建立 Access 数据库 2、启动 VB，建立标准EXE 图 1 3、添加 ActiveX 控件 鼠标指向任意VB 控件，单击右键，选择“部件（O）”，出现图 3 所示界面图2
图3 选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ”，出现如图 4 所示控件图4
4、添加控件Adodc 图5 4、在控件 Adodc 上添加数据源 鼠标指向控件Adodc1 ，单击右键，选择“ADODC 属性”，弹出如图7 所示界面图6
图7 单击“生成(U). . .”，弹出如图8 所示界面 图8 选择“ Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图 9 所示界面
图9 单击“ . . .”，添加数据源（第一步所建Access 数据库），如图 10 所示 图10 单击“测试连接（T）”，出现提示框，如图11 所示 图11 之后点击“确定” ，退回到如图12 所示界面
图12 单击“记录源” ，弹出如图13 所示界面 图13 在“命令类型”下，选择“ 1 - adCmdText”，在“命令文本（ SQL）”下，输入“ Select * from test1 ”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click()‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open‘打开数据库 rs.Open "select * from test1", mydb, 3, 3‘打开数据库中的表test1