vb读取txt文件到textbox
VB.NET中的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文件
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)
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文件读取
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读取和写入文本文件的技巧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的用法
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的一些常见用法，具体使用方法可以根据具体需求进行调整。
希望对你有所帮助！。
VB.NET文件读写操作
这一部分，你将找到更多常用的文件操作的代码实例。
最常用、最基本的操作就是把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文件
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)"则不会报错。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
vb读取txt文件到textbox vb读取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读取文本文件时，调用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)"则不会报错。
用文件对象啊FileSystemControl操作就好了啊再加上一个TextStream读取文件第一行就好了啊。
3.VB通过FileSystemObject,可以读取文本文件(.txt)。
对于.bat文件，VB可否直接读取?bat也属于文本类文件可以读取不用FSO也行：把文本文件内容读取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 TempFile4.打开文本文件open app.path &"/你的文本文件名.txt" for output as #1 =text1.textMessage.Phone=text2.text.......................message.PostCode=text5.textPut #1,i,Message \'(此处i=1,如要多次写入,可用循环设置i的值) close #1\'写入的同时即已保存查询的话就取出文本里的内容,用instr()函数就可实现了5.查找vbCrLf、vbLf换行标记6.怎样读取一个文本文件的全部内容dim lenfile as integerdim filenum as integerfilenum=freefile()open "file.dat" for input as filenumlenfile=lof(#filenum)strfile=input(lenfile,#filenum)\'将所有数据放入变量strfile中close filenumPrivate Sub Form_Load()Const ForReading = 1, ForWriting = 2Dim fso, fDim SkipLineInFile As StringSet 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.readallDebug.Print SkipLineInFileEnd Sub7.把文本文件内容读取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)8. 把TextBox内容写入文本文件：Dim TempFile As LongDim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFileOpen 文件名For Binary As #TempFilePut #TempFile,,SaveBytesClose TempFile9.已知文本文件，要从中搜索一段特定的字符串信息。
如搜索[MAGIC_DATABASES],该怎么做?dim str as stringopen commondialog1.filename for input #1input #1, strdim where as integerwhere = instr(str,"magic_databases")10.Line Input # 语句示例本示例使用Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。
本示例假设TESTFILE 文件内含数行文本数据。
Dim TextLineOpen "TESTFILE" For Input As #1 \' 打开文件。
Do While Not EOF(1) \' 循环至文件尾。
Line Input #1, TextLine \' 读入一行数据并将其赋予某变量。
Debug.Print TextLine \' 在立即窗口中显示数据。
LoopClose #1 \' 关闭文件。
11.如何操作“文本文件”fso(Filesystemobject)对象集中的文件集合里有readline方法。
Dim of As ObjectDim fs as Objectdim TextLine as stringSet fs=createobject("scripting.Filesystemobject")set of=fs.OpenTextFile(app,path+"\\myfile.aaa")//myfile.aaa 是一个文本文件textling=of.readline//如果你要读取第14行，可以用一个循环，跳过前面的13行，如下dim lop as integerfor lop=0 to 12of.skipnext//然后再读取12.搜索了一下，大家主要用两种方法对文本文件加密。
1.对文本文件的ASC码加减2.用XOR函数我发现都有问题举例1.代码Public Function nnnn(ByVal s As String) As String \'解密On Error Resume NextDim ss As String, i As Byte, lens As Bytelens = Len(s)For i = 1 To lensss = ss & Chr(Asc(Mid(s, i, 1)) - lens - i)Nextnnnn = ssEnd FunctionPublic Function mmmm(ByVal s As String) As String \'加密On Error Resume NextDim ss As String, i As Byte, lens As Bytelens = Len(s)For i = 1 To lensss = ss & Chr(Asc(Mid(s, i, 1)) + lens + 1)Nextmmmm = ssEnd Function当文件中有“！~”时出错XOR加密Dim I as longFor I=1 To UBound(LoadBytes)LoadBytes(I)=LoadBytes(I) Xor &HFFNext I13.怎么判断一个文本文件是否打开？判断如果没打开就删除该文本文件！要用到FileSystemObject 对象的FileExists 和deletefile方法if dir(myfile)="" then exit subFileNumber = FreeFile \' 取得未使用的文件号。