VB读写TXT文件

VB通过ADO快速读取EXCEL与TXT文件该方法读取30*50格的EXCEL数据仅需要1秒钟，比使用CELLS 属性一个个读取快了将近100倍。

但是使用该方法读取程序自动生成的EXCEL文件时会出现如下错误提示：外部表不是预期的格式。

据查是因为程序生成的EXCEL其实同原始的EXCEL文件有所区别（用TXT打开可发现，另属性也有区别）。

解决方法是将EXCEL打开另存为即可。

************************************以下为新建类代码（该类位于工程组中的Read_Files工程）若不用工程组，可在代码中相应修改。

*********************************Option Explicit' ------------------------------------------------------------' Copyright ?001 Mike G --> ' All Rights Reserved,'EMAIL:********************' ------------------------------------------------------------' You are free to use this code within your own applications, ' but you are forbidden from selling or distributing this' source code without prior written consent.' ------------------------------------------------------------'Read Excel File Using ADOPublic Function Read_Excel _(ByVal sFile _As String) As ADODB.RecordsetOn Error GoTo fix_errDim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetDim sconn As Stringrs.CursorLocation = adUseClientrs.CursorType = adOpenKeysetrs.LockType = adLockBatchOptimisticsconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFilers.Open "SELECT * FROM [sheet1$]", sconnSet Read_Excel = rsSet rs = NothingExit Functionfix_err:Debug.Print Err.Description + " " + _Err.Source, vbCritical, "Import"Err.ClearEnd Function'************************************************************** ********************'Read Text files'You can use Extended Properties='text;FMT=Delimited'"'By adding a third argument we can tell ADO that the file doesn't contain headers.'The argument named HDR takes YES or NO .'connOpen "Provider=Microsoft.Jet" _' & ".OLEDB.4.0;Data Source=" & App.Path _' & ";Extended Properties='text;HDR=NO;" _' & "FMT=Delimited'"'You can use Microsoft Text Driver or Microsoft.Jet'************************************************************** ********************Public Function Read_Text_File() As ADODB.RecordsetDim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetDim conn As ADODB.ConnectionSet conn = New ADODB.Connectionconn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _"DBQ=" & App.Path & ";", "", ""rs.Open "select * from [test#txt]", conn, adOpenStatic, _adLockReadOnly, adCmdT extSet Read_Text_File = rsSet rs = NothingSet conn = NothingEnd Function************************************以下为窗体代码*********************************Option Explicit' ------------------------------------------------------------' Copyright ?001 Mike G --> ' All Rights Reserved,'EMAIL:********************' ------------------------------------------------------------' You are free to use this code within your own applications, ' but you are forbidden from selling or distributing this' source code without prior written consent.' ------------------------------------------------------------Private Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdReadTXT_Click()Dim obj As Read_Files.CReadFileSet obj = New Read_Files.CReadFileSet dgData.DataSource = obj.Read_Text_FileSet obj = NothingEnd SubPrivate Sub cmdReadXLS_Click()Dim obj As Read_Files.CReadFileSet obj = New Read_Files.CReadFileSet dgData.DataSource = obj.Read_Excel(App.Path & "/" & "test.xls")Set obj = NothingEnd SubPrivate Sub Form_Load()End Sub。

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。

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。

程序截图:菜单截图如上代码如下:Private Sub head1_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As StringOpen "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1Text1.Text = " " & "学号" & " " & "姓名" & " " & "英语" & " " & "数学" & " " & "计算机" & " " & "历史" & " " & "体育" & vbCrLfDo While Not EOF(1)i = i + 1Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & c(i) & " " & d(i) & " " & e(i) & " " & f(i) & " " & g(i) & vbCrLfLoopClose #1End SubPrivate Sub jsj_Click()Dim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As StringOpen "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1 Text1.Text = " " & "学号" & " " & "姓名" & " " & "计算机" & vbCrLfDo While Not EOF(1)i = i + 1Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & e(i) & vbCrLf LoopClose #1End SubPrivate Sub ls_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As StringOpen "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1 Text1.Text = " " & "学号" & " " & "姓名" & " " & "历史" & vbCrLfDo While Not EOF(1)i = i + 1Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & f(i) & vbCrLf LoopClose #1End SubPrivate Sub shx_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As StringOpen "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1 Text1.Text = " " & "学号" & " " & "姓名" & " " & "数学" & vbCrLfDo While Not EOF(1)i = i + 1Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & d(i) & vbCrLf LoopClose #1End SubPrivate Sub ty_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As StringOpen "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1 Text1.Text = " " & "学号" & " " & "姓名" & " " & "体育" & vbCrLfDo While Not EOF(1)i = i + 1Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & g(i) & vbCrLf LoopClose #1End SubPrivate Sub yy_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerOpen "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1 Text1.Text = " " & "学号" & " " & "姓名" & " " & "英语" & vbCrLfDo While Not EOF(1)i = i + 1Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & c(i) & vbCrLf LoopClose #1End SubPrivate Sub zch_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As IntegerDim n(30) As IntegerOpen "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1 Text1.Text = " " & "学号" & " " & "姓名" & " " & "总成绩" & vbCrLfDo While Not EOF(1)i = i + 1Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)m(i) = c(i) + d(i) + e(i) + f(i) + g(i)Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & m(i) & vbCrLf LoopClose #1End SubPrivate Sub zhpm_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim z(30) As IntegerDim h As IntegerDim m(30) As IntegerDim k As Integerh = InputBox(" 请输入考试加分比例", "提示", "0", 5000, 5000)Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1Text1.Text = " " & "学号" & " " & "姓名" & " " & "综合成绩" & vbCrLfDo While Not EOF(1)i = i + 1Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)m(i) = c(i) + d(i) + e(i) + f(i) + g(i)LoopFor i = 1 To 30fu(i) = InputBox(" 请输入第" & i & "名同学考试附加分", "提示", "0", 5000, 5000) z(i) = m(i) / 5 * (100 - h) / 100 + fu(i)Next iFor j = 1 To 30For i = 30 To j Step -1If z(i) > z(j) Thent = z(i): z(i) = z(j): z(j) = tt = a(i): a(i) = a(j): a(j) = tt = b(i): b(i) = b(j): b(j) = tEnd IfNext iNext jFor i = 1 To 30Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & z(i) & vbCrLf Next iClose #1End SubPrivate Sub zczcj_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim z(30) As IntegerDim fu(30) As IntegerDim h As IntegerDim m(30) As IntegerDim k As Integerh = InputBox(" 请输入考试加分比例", "提示", "0", 5000, 5000)Open "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1Text1.Text = " " & "学号" & " " & "姓名" & " " & "综合成绩" & vbCrLfDo While Not EOF(1)i = i + 1Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)m(i) = c(i) + d(i) + e(i) + f(i) + g(i)LoopFor i = 1 To 30fu(i) = InputBox(" 请输入第" & i & "名同学考试附加分", "提示", "0", 5000, 5000) z(i) = m(i) / 5 * (100 - h) / 100 + fu(i)Next iFor i = 1 To 30Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & z(i) & vbCrLf Next iClose #1End SubPrivate Sub zpai_Click()Dim a(30) As IntegerDim b(30) As StringDim c(30) As IntegerDim d(30) As IntegerDim e(30) As IntegerDim f(30) As IntegerDim g(30) As IntegerDim m(30) As IntegerDim n(30) As IntegerOpen "C:\Documents and Settings\Administrator\桌面\vb\xscj.txt" For Input As #1 Text1.Text = " " & "学号" & " " & "姓名" & " " & "总成绩" & vbCrLfDo While Not EOF(1)i = i + 1Input #1, a(i), b(i), c(i), d(i), e(i), f(i), g(i)m(i) = c(i) + d(i) + e(i) + f(i) + g(i)LoopFor j = 1 To 30For i = 30 To j Step -1If m(i) > m(j) Thent = m(i): m(i) = m(j): m(j) = tt = a(i): a(i) = a(j): a(j) = tt = b(i): b(i) = b(j): b(j) = tEnd IfNext iNext jFor i = 1 To 30Text1.Text = Text1 & vbCrLf & " " & a(i) & " " & b(i) & " " & m(i) & vbCrLf Next iClose #1End Sub。

vbatxt读写的⼏种⽅式四种⽅式写txt1、这种写出来的是ANSI格式的txt Dim TextExportFile As StringTextExportFile = ThisWorkbook.Path & "\lcx.txt"Set fs = CreateObject("Scripting.FileSystemObject")Set f = fs.CreateTextFile(TextExportFile, True)f.WriteLine "罗彩霞：lcx"f.Close2、这种是Unicode格式Dim TextExportFile As StringTextExportFile = ThisWorkbook.Path & "\lcx.txt"Set fs = CreateObject("Scripting.FileSystemObject")Set f = fs.CreateTextFile(TextExportFile, True, True)f.WriteLine "罗彩霞：lcx"f.Close3、这种是UTF-8格式的Sub WriteTxt(path_, Filename, k)Dim tss As String'Filename = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")Open path_ & "\" & Filename For Output As #1For i = 1 To kIf Cells(i, 4).Value <> "" Thentss = Cells(i, 4) & vbTab & Cells(i, 5) & vbTab & Cells(i, 6) & vbTab & Cells(i, 7) & vbTab & Cells(i, 8) & vbTab & Cells(i, 9) Print #1, tssEnd IfNextClose #1End Sub4、这种⽅式可以设置字符格式Sub WriteUTF8()Dim WriteStream As ObjectSet WriteStream = CreateObject("ADODB.Stream")With WriteStream.Type = 2'adTypeText.Charset = "UTF-8".Open.WriteText "你好utf-8".SaveToFile ThisWorkbook.path & "\1.txt", 2'adSaveCreateOverWrite.Flush.CloseEnd WithSet WriteStream = NothingEnd Sub。

有2个txt文件txt1:123txt2：456一个按钮一个text怎么点击按钮读取txt1+txt2在text（123456）恩，这样Private Sub Command1_Click()Dim intTxt1 as doubleDim intTxt2 as doubleintTxt1=Cdbl(text1.text)intTxt2=Cdbl(text2.text)lblCaption.caption = intTxt1 & intTxt2End Sub你提的问题不清楚，是2个txt文件还是2个文本框，如果是2个txt文件就要用到读取文件的操作了。

如：open 文件名as # 12011-10-31 08:51 killserver007|一级'读取Private Sub Command1_Click()Dim fn As Long, StrRead As StringDim aStr As Stringfn = FreeFile()aStr = ""'路径可以用App.Path & "\aa.txt" 表示程序所在目录的aa.txt文件Open "d:\aa.txt" For Input As #fnDo While Not EOF(fn)Line Input #fn, StrReadaStr = aStr & StrRead & vbCrLfLoopClose #fn'解密方法解密aStr'...Text1.Text = aStr '解密后的aStrEnd Sub'保存Private Sub Command2_Click()Dim fn As Long, aStr As StringaStr = Text1.Text'用自己的加密方法加密aStr'...fn = FreeFile()Open "d:\aa.txt" For Output As #fn'Print语句会覆盖文件中原有数据Print #fn, aStr '加密后的aStrClose #fnEnd Sub三门县海游镇平海路99号紫云山庄61幢1单元202室三门县海游镇平海路97号紫云山庄61幢2单元204室三门县海游镇平海路98号紫云山庄61幢2单元24室三门县海游镇平海路99号紫云山庄61幢三单元2053室2011-10-31 09:02 pdprf|四级Private Sub Command1_Click()Open "txt1路径" For Input As #1 '读取路径到文本While Not EOF(1)Line Input #1, Stxt1= txt1 & S & vbCrLfWendOpen "txt2路径" For Input As #1 '读取路径到文本While Not EOF(1)Line Input #1, Stxt2= txt2 & S & vbCrLfWendText1.Text = txt1 & vbcrlf & txt2 '将读取内容放入文本框' Close #1 '关闭#1号文件End Sub2011-10-31 09:38 imkarayi|二级'添加Text1 Command1'确认在C盘目录下存在txt1 和txt2Option ExplicitPrivate Sub Command1_Click()Dim fBuf1() As Byte, fBuf2() As ByteDim fName1 As String, fName2 As StringDim fNo1 As Integer, fNo2 As IntegerDim fSize1 As Long, fSize2 As LongDim Out1 As String, Out2 As StringfName1 = "c:\txt1" '设定文件1的路径If Dir(fName1) Then Exit Sub '如果文件1不存在，退出fNo1 = FreeFile '获取未使用的文件号Open fName1 For Binary Access Read As #fNo1 '二进制方式读取文件1 fSize1 = LOF(fNo1) '获取文件1长度ReDim fBuf1(fSize1 - 1) As Byte '重定义文件1的缓冲数组Get #fNo1, , fBuf1() '读取文件1的所有数据Close #fNo1 '关闭文件1fName2 = "c:\txt2" '设定文件2的路径If Dir(fName2) Then Exit Sub '如果文件不2存在，退出fNo2 = FreeFile '获取未使用的文件号Open fName2 For Binary As #fNo2 '二进制方式读取文件2 fSize2 = LOF(fNo2) '获取文件1长度ReDim fBuf2(fSize2 - 1) As Byte '重定义文件1的缓冲数组Get #fNo2, , fBuf2 '读取文件1的所有数据Close #fNo2 '关闭文件1Out1 = StrConv(fBuf1, vbUnicode) '文件1的缓冲数组转换为字符串Out2 = StrConv(fBuf2, vbUnicode) '文件1的缓冲数组转换为字符串Text1.Text = Out1 & Out2 '合并后输出到Text1 End SubPrivate Sub Form_Load()Command1.Caption = "读取" '设定按键1的标题Text1.Text = "" '清空Text1的内容End SubVB读取TXT每一行2011-8-5 20:07提问者：﹏時洸機|浏览次数：290次就是将TXT内的内容的每一行显示在text1中，text1设置为多行显示还有j将text2中得内容每一行保存为txt问题补充：请不要复制粘贴一些网上的代码，那些我都看过了，都不大符合我想要的写一个subsub GetTxt()dim TempStr$open "TXT路径，自己填" for input as #1do while not eof(1)line input #1,TempStrtext1.text=text1.text & TempStr & vbcrlfloopclose #1end sub'调用示例private sub command1_click()gettxtend sub'第二个，还是写一个subsub SaveTxt()open "这里写一个txt的路径，如c:\1.txt" for output as #1print #1,text2.textclose #1end sub'调用示例private sub command2_click()savetxtend sub没有vb调试，如果有小问题，自己调试下2011-8-5 20:36 xjnzhidao|十二级open "c:\1.txt" for input as #1while not eof(1)line input #1,stext1.text=text1.text & s & vbcrlfwendclose #1'保存text2open "c:\1.txt" for output as #1print #1,text2.textclose #1VB中读取文本文件中的每一行，处理后写入另一个文本文件2010-5-10 23:57提问者：bhmr|悬赏分：100 |浏览次数：880次1：vb中读取一个文本文件2：将每一行字符“name”后的所有内容运行某个字符转换函数（现成存在在，架设为函数abc）3：将每一行原来的内容+字符“name”后经过函数转换好的内容写入另一个文本文件4: 每个文本文件大约有1万行左右问题补充：如果该行中没有name需要跳过该行主要是文件比较大，都是1万行以上的Private Sub Command1_Click()Open App.Path + "\1.txt" For Input As #1Open App.Path + "\2.txt" For Binary As #2Do While Not EOF(1)Dim tmp, tmp2 As StringDim l As LongLine Input #1, tmpl = InStr(1, tmp, "name")tmp2 = Mid(tmp, 1, l - 1) & "name" & 你的函数ABC(Mid(tmp, l + 4)) & vbCrLfPut #2, , tmp2Doevents '防程序卡死LoopClose #1Close #2End Sub我是可以写,不过处理10000行。

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是追加写入。

是一种基于VB语言的面向对象程序设计语言，它是微软推出的一种用于开发Windows评台应用程序的工具。

在中，文件的读写是非常常见的操作，我们可以通过一些API来实现文件的读写操作。

在本文中，我将介绍如何在中进行文件的读写操作，包括文件的打开、读取、写入和关闭等操作。

希望通过本文的介绍，能够帮助大家更好地掌握中文件读写的用法。

一、文件的打开在中，我们可以使用FileStream类来打开一个文件。

FileStream类是用于提供文件的读写操作的一个类，通过它我们可以打开一个文件，并进行读写操作。

下面是一个打开文件的示例代码：Dim fs As FileStream = New FileStream("C:\test.txt", FileMode.Open)在上面的代码中，我们首先创建了一个FileStream对象，并以"test.txt"为文件名，以FileMode.Open的方式来打开了这个文件。

通过这个代码，我们就可以在中打开一个文件了。

二、文件的读取在中，我们可以使用StreamReader类来进行文件的读取操作。

StreamReader类是用于读取文件内容的一个类，通过它我们可以方便地读取文件的内容。

下面是一个读取文件的示例代码：Dim sr As StreamReader = New StreamReader("C:\test.txt")Dim content As Stringcontent = sr.ReadToEnd()Console.WriteLine(content)在上面的代码中，我们首先创建了一个StreamReader对象，并以"test.txt"为文件名来创建了这个对象。

然后我们通过sr.ReadToEnd()方法来将整个文件的内容读取到content变量中，并最后将content的内容输出到控制台上。