vb读取txt文件到textbox

中的TextBox控件详解TextBox组件（文本框组件）是一种常用的，也是比较容易掌握的组件。

应用程序主要使用它来接收使用者于输入文字信息。

在前面内容中已经或多或少的接触到TextBox组件。

本节就来详细探讨一下Visual Basic .Net中TextBox组件的使用方法。

一.TextBox组件、T extBox类：当我们使用Visual Basic .Net集成开发环境开发应用程序时，在从【工具箱】的【Windows窗体】选项卡中向Form1的设计窗体拖入一个TextBox组件的后，我们可能并没有感觉到即使时这样一个简单的操作，Visual Basic .Net都做了很多幕后工作。

主要工作和步骤如下：1. 首先实例化System.Windows.Forms.TextBox类，并根据拖动到窗体的位置和形状分别设定TextBox实例的各个属性。

2. 我们看到的设计窗体，其实是Form1类的一个实例，而Form1类首先是从System.Windows.Forms.Form类继承而来，Form1类中的成员根据使用者往窗体中拖入的组件不同而不同。

各个成员通过Add或AddRange方法加入到Form1中，这样拖入的组件才能够显示在设计窗体上。

以上这些都完全不同于以前Visual Basic。

通过上述步骤，我们不难得到TextBox组件和TextBox类之间的关系，TextBox组件是命名空间System.Windows.Forms中的T extBox类的实例，在从【工具箱】的【Windows窗体】选项卡中拖入窗体的任一组件，都是.Net框架类库——.Net FrameWork SDK中封装的某一个类的实例。

通过上述步骤也不难看出，Visual Basic .Net的确才是真正的面向对象（OOP）的开发语言。

二.TextBox类的成员：TextBox组件使用虽然比较简单，但T extBox类的构成成员却是非常的丰富。

vb远程读取txt文件例如有个文本文件的路径是/test.txt，如何用vb读取里面的内容加以利用？【VBToy】:用inet控件:s = Inet1.OpenURL("/test.txt")Text1.Text = s '文本文件的内容【liwei741852963】:inet控件全称叫什么，我在找呵呵【VBToy】:工程-->部件中加Microsoft Internet Transfer Control控件【liwei741852963】:晕，读不出来，能给个整个的代码吗？【VBToy】:Private Sub Command1_Click()Dim s As Strings = Inet1.OpenURL("/Expert/topic/5455/5455226.xml?temp=.441128")Text1.Text = s '文本文件的内容End Subvb中连接远程txt文件在VB中有一输入框有一按钮如何实现连接远程TXT文件并且判断输入框内容是否和远程TXT文件上的内容一样一样的话则form2.show 不一样的话就msgbox 例如远程txt文件为：/1.txt 怎么去判断?参考答案：我刚给你写的读取网络文本和对比的代码在窗体上添加一个Inet控件和一个按钮和一个文本框Option ExplicitPrivate Sub Command1_Click()Inet1.Execute "/1.txt", "GET"End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)If State = 12 ThenDim StrIn As StringStrIn = Inet1.GetChunk(0, icstring)If Text1.Text = StrIn ThenForm2.ShowElseMsgBox "对比不一致"End IfEnd IfEnd Sub至于显示公告：如果是单纯的文本，可以按上面的方法下载后在窗体上添加TEXTBOX或LABLE显示如果不是纯文本可以用WEBBROWSER显示WebBrowser1.Navigate "要显示的网页地址"这儿的网页地址一般是HTML格式的用WebBrowser 选择工程--部件然后选择Microsoft Internet Controls 确定用这个控件在窗口中调好位置然后代码：Private Sub Command1_Click() WebBrowser1.Navigate "/1.txt" End Sub 这样点击Command1就能显示网页了我用的：Private Sub Command1_Click()Dim StrIn As StringStrIn = Inet1.OpenURL("http://192.168.0.81/test.php")Text1.Text = StrInEnd Sub。

vb操作txt（VB operation TXT）细胞（1,1）代表A1细胞（2，C）代表C2 = COUNTIF（“”）+ COUNTIF（“”）+ COUNTIF（“”）1。

怎么通过代码创建一个文本文件，并读取，更新内容以上为随即方式打开的文本文件昏暗的gfilenum为整数gfilenum = FreeFile随机gfilenum len = 3打开“文件路径及文件名”“以随即方式打开一文件如果文件不存在就新建用得到# gfilenum，记录在文件中位置，要放取得的数据的变量”读取操作用把# gfilenum，记录在文件中位置，要放着要写入数据的变量”写操作近# filenum”关闭文件以下为顺序方式打开的文件昏暗的gfilenum为整数gfilenum = FreeFile打开输出”文件路径及文件名”gfilenum”以写入方式打开文本打印# gfilenum，要写入的文本写#文件号，要写入的文本昏暗的gfilenum为整数gfilenum = FreeFile打开“文件路径及文件名“输入”以读出方式打开文本gfilenum输入# gfilenum，用来放读取的内容的内存变量名还可用线路输入#，等读取更详细的查MSDN（）2。

VB读取文本文件时，调用对象中使用报错了文本中去。

如果是集F = fs。

中去（“E：\表格\痕迹。

txt”，读书，真的，TristateUseDefault）出现错误：运行时错误格”：无效的过程调用或参数如果是集F = fs。

中去（“E：\表格\痕迹。

txt）”则不会报错。

用文件对象啊filesystemcontrol操作就好了啊再加上一个文本读取文件第一行就好了啊。

3。

VB通过FileSystemObject，可以读取文本文件（.txt）。

对于。

蝙蝠文件，VB可否直接读取？蝙蝠也属于文本类文件可以读取不用FSO也行：把文本文件内容读取文本框：朦胧的TempFile As Long昏暗的loadbytes()字节tempfile = FreeFile二开文件名作为# tempfileRedim LoadBytes（1～LOF（TempFile））为字节得到# tempfile，，LoadBytes关闭tempfiletext1。

VBA_txt文件读取'1、input函数读取'Input 函数只用于以 Input 或 Binary 方式打开的文件'Input 函数返回它所读出的所有字符，包括逗号、回车符、空白列、换行符、引号和前导空格等Sub d1()On Error Resume NextDim f, mycharf = ThisWorkbook.path & '/a.txt'Open f For Input As #1Do While Not EOF(1) ' 循环至文件尾。

mychar = Input(3, #1) ' 读入一个字符。

Debug.Print mychar ' 显示到立即窗口。

LoopClose #1End SubSub d2() '把文本文件的内容一次性取出来Dim f, mychar, n, Lf = ThisWorkbook.path & '/a.txt'n = FreeFileOpen f For Input As nL = LOF(n)mychar = Input(L - 6, n) '要减去中文字符的个数Debug.Print mychar ' 显示到立即窗口。

Close #1End Sub'input #读取'input 文件号,变量1，变量2,..变量N'input #常用来读取write写的内容(分隔符为逗号,加双引号)Sub d3()Dim f, xf = ThisWorkbook.path & '\ruku.txt' Open f For Input As #1Do While Not EOF(1)Input #1, xDebug.Print xLoopClose #1End SubSub 用write写入()On Error Resume NextDim f, arr, x, y, kf = ThisWorkbook.path & '\ruku3.txt' arr = Sheets('sheet2').Range('a1:e16') Open f For Output As #1For x = 1 To UBound(arr)For y = 1 To UBound(arr, 2)If y = UBound(arr, 2) ThenWrite #1, arr(x, y)ElseWrite #1, arr(x, y);End IfNext yk = 0Next xClose #1End SubSub 读取write写入的文本()Dim f, y1, y2, y3, y4, y5f = ThisWorkbook.path & '\ruku2.txt'Open f For Input As #1Do While Not EOF(1)Input #1, y1, y2, y3, y4, y5Debug.Print y1 & ' ' & y2 & ' ' & y3 & ' ' & y4 & ' ' & y5LoopClose #1End Sub'Line Input #：取出完整的一Sub 读取write写入的文本()Dim f, srf = ThisWorkbook.path & '\Ruku3.txt'Open f For Input As #1Do While Not EOF(1)Line Input #1, srDebug.Print srLoopClose #1End Sub'Open 文件名打开方式 as 文件编号'打开方式:'Input ：只能读，不能写'Append：允许读也允许写，如果存在文件就追加记录，如果没有就新建文件'Output：可以读，也可以写。

VBA读取和写入文本文件的技巧VBA（Visual Basic for Applications）是一种强大的编程语言，可以与Microsoft Office应用程序（如Excel、Word和Access）进行交互。

在VBA中，读取和写入文本文件是一项常见的任务。

本文将介绍一些VBA中读取和写入文本文件的技巧，帮助您更高效地处理文本文件。

1. 打开文本文件要打开文本文件并读取其内容，可以使用VBA中的Open语句。

例如，下面的代码将打开一个名为“example.txt”的文本文件，并将其内容读取到变量txt中。

示例代码：```Dim MyFile As StringDim txt As StringMyFile = "C:\example.txt"Open MyFile For Input As #1txt = Input$(LOF(1), 1)Close #1```在上述代码中，MyFile是要打开的文本文件的路径和文件名。

在打开文件之后，使用Input$函数将文件内容读取到txt变量中。

LOF函数用于获取文件的长度，它在这里用于确定要从文件中读取的字符数。

最后，使用Close语句关闭文件。

2. 逐行读取文本文件有时候我们需要逐行读取文本文件，而不是将整个文件内容读取到一个字符串变量中。

以下示例代码演示了如何逐行读取文本文件。

示例代码：```Dim MyFile As StringDim TextLine As StringDim LineNumber As IntegerMyFile = "C:\example.txt"LineNumber = 1Open MyFile For Input As #1Do Until EOF(1)Line Input #1, TextLine'在这里可以对每一行的内容进行处理'例如，可以将每一行的内容输出到调试窗口Debug.Print "Line " & LineNumber & ": " & TextLineLineNumber = LineNumber + 1LoopClose #1```在上述代码中，使用Line Input语句逐行读取文本文件的内容。

vb richtextbox1的用法Richtextbox1是中的一个控件，被用于显示、编辑以及格式化文本的内容。

它提供了各种功能来处理富文本，包括字体、颜色、样式、超链接等。

以下是一些Richtextbox1的常见用法：1. 添加文本：- 使用Richtextbox1.AppendText方法将文本追加到现有内容的末尾。

- 使用Richtextbox1.Text属性将文本设置为整个Richtextbox1的内容。

2. 设置文本样式：- 使用SelectionFont属性设置当前选择的文本的字体。

- 使用SelectionColor属性设置当前选择的文本的颜色。

- 使用SelectionBackColor属性设置当前选择的文本的背景颜色。

- 使用SelectionAlignment属性设置当前选择的文本的对齐方式。

- 使用SelectionBullet属性设置当前选择的文本是否显示为项目符号列表。

3. 插入图片：- 使用Richtextbox1.InsertImage方法将图片插入到Richtextbox1的指定位置。

4. 处理链接：- 使用Richtextbox1.LinkClicked事件处理被点击的链接。

- 使用Richtextbox1.AppendText方法添加带有超链接的文本。

5. 保存和加载文本：- 使用Richtextbox1.SaveFile方法将Richtextbox1的内容保存到指定的文件中。

- 使用Richtextbox1.LoadFile方法从指定的文件中加载文本到Richtextbox1。

这些只是Richtextbox1的一些常见用法，具体使用方法可以根据具体需求进行调整。

希望对你有所帮助！。

这一部分，你将找到更多常用的文件操作的代码实例。

最常用、最基本的操作就是把text写入文件和读回来。

现在的应用程序通常不用二进制文件作存储简单的变量，而用它来存储对象，对象集合以及其他机器代码。

下面，将看到具体操作的例子。

读写文本文件为了把text保存到文件，创建一个基于FileStream的StreamReader对象，然后调用Write方法把需要保存的text写入文件。

下面的代码用SaveFileDialog 提示用户指定一个文件，用于保存TextBox1的内容。

同样采用类似的语句，我们读取一个文本文件，并把内容显示在TextBox控件中。

StreamReader的ReadToEnd方法返回文件的全部内容。

各种对象的存储采用BinaryFormatte以二进制的形式，或者用SoapFormatter类以XML格式都可以序列化一个具体的对象。

只要把所有BinaryFormatter的引用改为SoapFormatter，无需改变任何代码，就可以以XML格式序列化对象。

首先创建一个BinaryFormatter实例：然后创建一个用于存储序列化对象的FileStream对象：接着调用BinFormatter的Serialize方法序列化任何可以序列化的framework 对象：加一个Serializable属性使得自定义的对象可以序列化下面代码创建一个Person对象实例，然后调用BinFormatter的Serialize方法序列化自定义对象：你也可以在同一个Stream中接着序列化其他对象，然后以同样的顺序读回。

例如，在序列化Person对象之后接着序列化一个Rectangle对象：创建一个BinaryFormatter对象，调用其Deserialize方法，然后把返回的值转化为正确的类型，就是整个反序列化过程。

然后接着发序列化Stream的其他对象。

假定已经序列化了Person和Rectangle两个对象，以同样的顺序，我们反序列化就可以得到原来的对象：大多数程序处理对象集合而不是单个的对象。

vb读取txt文件1.怎么通过代码创建一个文本文件，并读取，更新内容以上为随即方式打开的文本文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For Random As gfilenum len=3\'以随即方式打开一文件如果文件不存在就新建用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作close #filenum\'关闭文件以下为顺序方式打开的文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For output As gfilenum \'以写入方式打开文本print #gfilenum,要写入的文本write #filenum,要写入的文本dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For input As gfilenum \'以读出方式打开文本input #gfilenum ,用来放读取的内容的内存变量名还可用line input#,input()等读取更详细的查msdn2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFile报错了。

如果是Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault)出现错误：Run-time error \'5\':Invalid procedure call or argument如果是Set f = fs.OpenTextFile("E:\\table\\trace.txt)"则不会报错。

VBA读写文本文件的几种方法1、直接采用Open函数 Line input命令Private Sub txt_read() Dim txt As String Open 'D:\dzh.txt' For Input As #1 ' '对文件做任何 I/O 操作之前都必须先打开文件。

Open 语句分配一个缓冲区供文件进行 I/O 之用， '并决定缓冲区所使用的访问方式。

'打开文件作为数据输入用，文件号为#1 Do While Not EOF(1) Line Input #1, txt '从已打开的顺序文件中读出一行并将它分配给 String 变量 'Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) '或回车–换行符 (Chr(13) Chr(10)) 为止。

回车–换行符将被跳过，而不会被附加到字符串上MsgBox txt Loop Close #1 End Sub2、利用FileSystemObject对象（引用windows script host object model)Sub TextStreamTest() '**如果引用“windows script host object model”,可以定义如下的数据类型，编程更方便******* Dim fs As FileSystemObject, f As File, ts As TextStream, s As String '打开一个只读文件，不能对此文件进行写操作/ '打开一个用于写操作的文件。

如果和此文件同名的文件已存在，则覆盖以前内容/ '打开一个文件并写到文件的尾部Const ForReading = 1, ForWriting = 2, ForAppending = 8 '使用系统缺省打开文件/以 Unicode 格式打开文件/以ASCII 格式打开文件Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 'Dim fs, f, ts, s Set fs = CreateObject('Scripting.FileSystemObject') 'FileSystemObject 对象提供对计算机文件系统的访问'下面FileSystemObject.CreateTextFile 返回一个TextStream 对象，该对象是可读并可写的： On Error Resume Next '如果文件存在，下个命令会出错！获得文件fs.CreateTextFile('test1.txt', False).WriteLine ('This is a test.') '创建一个文件,返回一个用于该文件读写的TextStream对象 Set f = fs.GetFile('test1.txt') '返回一个和指定路径中文件相对应的 File 对象 '错误！f.WriteLine ('This is a test.') '向创建的文本文件中写入一行文本，非T extStream对象，错误！！ Set ts = f.OpenAsTextStream(ForAppending, TristateUseDefault) '打开一个指定的文件并返回一个 TextStream 对象 'OpenAsTextStream 方法提供了和 FileSystemObject. 的 OpenT extFile 方法相同的功能/ '此外，OpenAsTextStream 方法还可以用于对一个文件进行写操作。

VBA中的文本文件读写与处理技巧在VBA编程中，文本文件读写与处理是一个必不可少的任务。

无论是读取外部文件数据，还是将数据写入到文件中，掌握相关的处理技巧都能大大提高编程效率。

本文将介绍一些VBA中常用的文本文件读写与处理技巧，帮助您更好地应对相关任务。

一、打开文本文件在VBA中，可以使用「Open」语句来打开一个文本文件，并将其与输入/输出缓冲区相关联。

通过指定文件路径、模式和缓冲区大小等参数，我们可以实现对文本文件的读写操作。

例如，以下示例演示了如何使用Open语句打开一个文本文件：```Sub OpenTextFile()Dim FilePath As StringFilePath = "C:\example.txt"Dim FileNumber As IntegerFileNumber = FreeFileOpen FilePath For Input As #FileNumber' 在此处添加对文件的读取或写入操作Close #FileNumberEnd Sub```在上述示例中，我们首先定义了一个变量FilePath，用于存储文本文件的路径。

接着，使用FreeFile函数获取可用于打开文件的文件号。

然后，使用Open语句打开文本文件，指定其模式为输入模式（Input），并将文件号作为参数传递给#号。

在此之后，我们可以在注释的部分添加对文件的读取或写入操作。

二、读取文本文件内容在VBA中，我们可以使用「Input」语句和「Line Input」语句来读取文本文件的内容。

前者逐行读取数据，而后者按行读取完整的文本。

以下示例演示了如何逐行读取文本文件的内容：```Sub ReadTextFileLineByLine()Dim FilePath As StringFilePath = "C:\example.txt"Dim FileNumber As IntegerFileNumber = FreeFileOpen FilePath For Input As #FileNumberDim LineOfText As StringDo Until EOF(FileNumber)Line Input #FileNumber, LineOfText' 在此处添加对当前行数据的处理操作LoopClose #FileNumberEnd Sub```在上述示例中，我们使用Do Until循环和EOF函数判断是否已经读取到文件结束。

VB教案文本框（TextBox）第一篇：VB教案文本框(TextBox)(四)文本框（TextBox）文本框用于在运行时显示和编辑用户输入的文本信息，也可显示赋给文本框的的T ext属性的文本内容，也可读取显示的文本内容为程序所用。

一、文本框的属性：1、Name属性：2、Text属性：可输入文本2048B。

若MultiLine为True可输入32KB文本。

Text属性的三种设置方式：① 在属性窗口设置。

② 运行时通过用户输入文本设置。

③ 运行中通过程序代码设置。

3、Locked属性：设置为True时为只读文本。

4、Alignment属性：5、MultiLine属性：设置为True时为多行文本显示，否则为单行显示。

6、ScrollBars属性：决定文本框中如何使用滚动条：(MultiLine属性为True时起作用) 0：无滚动条1：有水平滚动条2：有垂直滚动条3：水平和垂直滚动条都有7、PasswordChar属性：用于指定在文本框中显示输入字符的占位形式符号（一般用* 号）注：此时的MultiLine值应为False。

8、MaxLength 属性：决定了文本框中输入的最大字符数。

9、SelStart属性：（编程用）决定文本框聚焦时，插入点的位置（0为第1字符前，1为第2字符前，以此类推）10、SelLength属性：（编程用）决定文本框聚焦时，插入点的宽度值（即选中的字符数，设置为0时，表示未选中任何字符）11、SelText属性：（编程用）决定插入点处插入或被替换后的文本内容。

二、文本框的事件和方法：1、Change 事件：（文本框内容发生改变）2、SetFocus方法：将指定控件设置为焦点。

第二篇：VB教案-组合框的使用VB6.0----结构化程序设计[14-2] 组合框的使用【教学目标】1.了解组合框的组成及其主要属性2.掌握组合框添加删除项目的方法3.掌握通过改变组合框选项来改变文本框字体属性的方法【教学重点】1.在组合框添加删除项目的2种方法2.组合框的Click事件用法3.字体各种属性的回顾【教学难点】根据组合框的选项来更换字体颜色【教学手段】情境教学法、任务驱动法、演示法、讨论法【教学过程】一、引入让学生看已经编好的程序，激发学生兴趣，并引出VB的编程游戏。

vb全选文本框内容VB全选文本框内容是一个常见的操作，针对大量文本内容的快速全选和复制可以提高代码编写效率。

下面将分步骤为大家介绍如何使用VB全选文本框内容。

1. 创建文本框控件首先需要创建一个文本框控件，可以通过拖拽方式在VB窗体设计界面直接创建，也可以在VB代码中通过文本框控件的类创建对象实现。

具体代码如下：Private Sub Form_Load()Set TextBox1 = Me.Controls.Add("VB.TextBox", "TextBox1") TextBox1.Move 60, 60, 1800, 1200End Sub在视觉效果上，可以根据需要调整文本框的位置和大小，也可以在属性面板中设置文本框控件的相关属性，如背景色、字体等。

2. 添加文本内容在创建好文本框控件后，可以通过以下代码为文本框添加一些内容：TextBox1.Text = "Hello World!"如果需要从外部文件中导入文本内容，可以使用以下代码实现：Open "D:\test.txt" For Input As #1TextBox1.Text = Input(LOF(1), 1)Close #13. 实现文本框内容全选为实现VB全选文本框内容，需要使用文本框控件的SelStart和SelLength属性，代码如下：TextBox1.SelStart = 0TextBox1.SelLength = Len(TextBox1.Text)在该代码中，SelStart属性表示当前光标位置，这里设置为0，即文本框内容开头。

SelLength属性表示选中内容的长度，这里设置为文本框中的所有内容长度。

4. 复制选中内容VB全选文本框内容完成后，可以使用以下代码实现复制选中的内容：Clipboard.ClearClipboard.SetText TextBox1.SelText其中Clipboard.Clear表示清空剪贴板，以免复制的内容与之前的内容混淆。

vb读取txt的方法-写入txt的方法vb读取txt的方法-写入txt的方法1.Private Sub Command1_Click()2.'写文件示例3.Dim strFileName As String '文件名4.Dim lngHandle As Long '句柄5.Dim strWrite As String '要写入的文本内容6.7.strFileName = App.Path & "/a.txt"8.''''''''App.Path & "/a.txt"相对路径9.''"c:/w.txt"绝对路径10.lngHandle = FreeFile() '取得句柄11.'准备要写入的内容12.strWrite = Text1.Text '或者strWrite = "这些文字将被写入文件。

"13.'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入14.''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入15.''''''print#1,text1.text ''''''如果print换成write则写进txt中后自动加双引号16.17.Open strFileName For Output As lngHandle '打开文件18.Print #lngHandle, strWrite '写入文本19.Close lngHandle '关闭文件20.End Sub21.Private Sub Command2_Click()22.'读文件示例23.Dim strFileName As String '文件名24.Dim lngHandle As Long '文件句柄25.Dim strAll As String '所读取的文本文件的所有内容26.Dim strLine As String '在循环中存放每行的内容27.strFileName = App.Path & "/a.txt"28.'获得文件的句柄29.lngHandle = FreeFile()30.'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入31.Open strFileName For Input As lngHandle32.'循环直到文件尾33.Do While Not EOF(lngHandle)34.'每次读取一行存放在strLine变量中35.Line Input #lngHandle, strLine36.'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上37.strAllstrAll = strAll & strLine & vbCrLf38.Loop39.'显示得到的全部分内容40.MsgBox strAll41.End Sub42.43.Private Sub Command1_Click()44.Open App.Path & "/a.txt" For Output As #145.Print #1, Text1.Text '这里可以是数据本身也可以是目标控件的属性46.Close #1 '关闭打开的文件47.End Sub48.'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入。

VS2010 _VB 环境读取TXT 文件任意行应用实例步骤：1. 使用VS2010建立一个空白的VB窗体工程：2. 添加文本控件，如果需要多行显示注意勾选Multiline如图：3.完成后的窗口如图所示：4. 建立Txt 文档：5.添加原代码：6.运行效果：绝对路径的源代码：Dim AllText As StringDim a_CHT() As StringAllText = My .Computer.FileSystem.ReadAllText("D:\提取行信息.txt") a_CHT = AllText.Split(vbCrLf)My .Computer.FileSystem.WriteAllText("D:\ 提取行信息.txt", Join(a_CHT, vbCrLf), False ) TextBox1.Text = Trim(a_CHT(CUInt (TextBox2.Text) - 1)).Replace(vbLf, "")相对路径的源代码：Dim AllText As String Dim a_CHT() As StringAllText = puter.FileSystem.ReadAllText(Application.StartupPath() & "\提取行信息.txt ")a_CHT = AllText.Split(vbCrLf)puter.FileSystem.WriteAllText(Application.StartupPath() & "\提取行信息.txt ", Join(a_CHT, vbCrLf), False)TextBox1.Text = Trim(a_CHT(CUInt(TextBox2.Text) - 1)).Replace(vbLf, "")PS：1. D:\提取行信息.txt——你的文件存储路径；2 a_CHT(CUInt(TextBox2.Text) - 1) 等同于 a_CHT(需要的行数-1)。

vb读取txt文件到textboxvb读取txt文件到textbox1.怎么通过代码创建一个文本文件，并读取，更新内容以上为随即方式打开的文本文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For Random As gfilenum len=3 \'以随即方式打开一文件如果文件不存在就新建用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作close #filenum\'关闭文件以下为顺序方式打开的文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For output As gfilenum \'以写入方式打开文本print #gfilenum,要写入的文本write #filenumber,要写入的文本dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For input As gfilenum \'以读出方式打开文本input #gfilenum ,用来放读取的内容的内存变量名还可用line input#,input()等读取更详细的查msdn2.VB读取文本文件时，调用T extStream 对象中使用OpenTextFile报错了。

如果是Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault)出现错误：Run-time error \'5\':Invalid procedure call or argument如果是Set f = fs.OpenTextFile("E:\\table\\trace.txt)"则不会报错。

VB打开文本文件的各种方法打开文本文件是不少程序必须处理的问题。

如何更有效地打开文本文件应该是一个值得研究的课题。

为此，笔者将自己搜集到的几种方法无私地奉献出来(-_-)，供各位参考。

下面所举的例子均假设F盘下有一个名为d.txt的文本文件，若需要尝试这些例子请作相应的改动。

方法一:用定长的String变量获取文本内容。

由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取:Private Sub Command1_Cliack()Dim sA As String * 65400 '声明定长String变量Open "F:/d.txt" For Binary As #1 '用二进制打开文件Get #1, , sA '用Get语句从文件中获取字节Text1 = sA '显示打开的文件Close #1 '关闭文件End Sub方法二:先声明一字符串变量，然后用空格填充字符串，使变量大小与文件大小一致，再通过Get语句将文件全部数据存储到变量中，从而达到获取整个文件字节数的目的。

此法可以打开大于32K的文件，但应该注意的是，装载文件的容器必须能装载大于32K的文件，下例用RichTextBox控件显示打开的文件：Private Sub Command1_Click()Dim sA As StringOpen "f:/d.txt" For Binary As #1sA = Space(LOF(1)) '用空格填充sA变量Get #1, , sA '用Get语句获取文件全部内容RichTextBox1.Text = sAClose #1End Sub方法三：用StrConv函数将文件的控制字符串数据和Unicode码之间进行转换，从而达到打开文件的目的。

可打开任意大小文件。

VB6.0对TXT文本文件的读写删操作VB6.0对TXT文本文件的读写删操作把文本文件内容写到TextBox：Dim TempFile As LongDim LoadBytes() As ByteTempFile=FreeFileOpen 文件名 For Binary As #TempFileRedim LoadBytes(1 To Lof(TempFile)) As ByteGet #TempFile,,LoadBytesClose TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件：Dim TempFile As LongDim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFileOpen 文件名 For Binary As #TempFilePut #TempFile,,SaveBytesClose TempFile删除TXT文件里的内容：Private Function DelLine(strFile As String, RLine As Long, newFile As String, SameLine As Boolean)Dim s As String, n As String, i As Longi = 1'//打开源文件Open strFile For Input As #1Do Until EOF(1)Line Input #1, sIf RLine = i Then '如果是指定的行数就进行下面的操作If SameLine = True Then '是否保持源文件行数不变(以空白字符替换这一行内容)的提示,True保持源文件的行数,False为直接删除这一行的内容s = ""n = n & s & vbCrLf '将空字符串赋给变量n,以保持源文件的行数' MsgBox strFile & " 文件中,第 " & RLine & " 行内容" & vbCrLf & s & vbCrLf & "已经删除", vbInformation, "消息提示"End If' s="也可以把这一行的内容改成自己需要的"Else '如果不是指定的行数,就将s的内容赋给变量n 以存储数据n = n & s & vbCrLf '将s的内容赋给n 并以一个回车符号结束....End Ifi = i + 1LoopClose #1'//写入新文件,如果和源文件同名则会覆盖源文件Open newFile For Output As #2Print #2, n '将n变量里的数据写入新文件Close #2End Function'调用方法:'比如要把c:\1.txt 删除其中的第5行内容,并保留源文件总行数(删除的这行插入一空字符串)'DelLine "C:\1.txt", 5, "C:\2.txt", True'删除C:\1.txt 删除里面的第一行,且不保留文件的总行数DelLine "C:\1.txt", 1, "C:\1.txt", False。