vb读写txt.doc

有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, StrRead aStr = 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, S txt1= txt1 & S & vbCrLf Wend Open txt2路径 For Input As #1 读取路径到文本 While Not EOF(1) Line Input #1, S txt2= txt2 & S & vbCrLf Wend Text1.Text = txt1 & vbcrlf & txt2 将读取内容放入文本框 Close #1 关闭#1号文件End Sub 2011-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 String fName1 = 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 关闭文件1 fName2 = 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 关闭文件1 Out1 = StrConv(fBuf1, vbUnicode) 文件1的缓冲数组转换为字符串 Out2 = StrConv(fBuf2, vbUnicode) 文件1的缓冲数组转换为字符串 Text1.Text = Out1 & Out2 合并后输出到Text1End SubPrivate Sub Form_Load() Command1.Caption = 读取 设定按键1的标题 Text1.Text = 清空Text1的内容End Sub VB读取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的路径，如c1.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 #1 VB中读取文本文件中的每一行，处理后写入另一个文本文件 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 #2 Do While Not EOF(1) Dim tmp, tmp2 As String Dim l As Long Line Input #1, tmp l = InStr(1, tmp, name) tmp2 = Mid(tmp, 1, l - 1) & name & 你的函数ABC(Mid(tmp, l + 4) & vbCrLf Put #2, , tmp2 Doevents 防程序卡死 Loop Close #1Close #2End Sub我是可以写,不过处理10000行。估计没效率方法期待高手我也学习学习Private Sub Command1_Click()Open App.Path + 1.txt For Input As #1Open App.Path + 2.txt For Binary As #2 Do While Not EOF(1) Dim tmp, tmp2 As String Dim l As Long Line Input #1, tmp l = InStr(1, tmp, name) tmp2 = Mid(tmp, 1, l - 1) & name & 你的函数ABC(Mid(tmp, l + 4) & vbCrLf Put #2, , tmp2 Doevents 防程序卡死 Loop Close #1Close #2End Sub 赞同0| 评论 2010-5-11 00:56 欧联科技 | 三级 其实你的问题可以换个思路来解决啊，为什么要写个新的文件了，你可以把你的文本文件装载到文本框，然后利用文本查找和文本替换的方法来修改文本，然后将结果写成文件就可以啦。 赞同0| 评论 2010-5-11 01:02 warmice5255 | 一级 可以用fso对象进行操作。打开2个文本，边读边写。1W行业不是很多 赞同0| 评论 2010-5-11 07:39 cushionyoung | 五级 dim op() as string,temp1 as string,temp as string,i as longopen 文件路径1 for input as #1open 文件路径2 for output as #2do while not eof(1)i=i+1line input #1,temp按行读取temp1=tempop=split(temp,name)将读取的行按name拆分，name后的写入数组opif ubound(op)0 then该行存在nametemp=op(ubound(op)取出name后的字符串temp=abc(temp)你的处理函数print #2,temp1 & templabel1.caption=已完成 & i & 行加个label显示进度doevents行太多了，防止程序假死loopclose #2close #1Dimappdisk$,aa$,tmpstr$(),i&,n&str别把它当变量名称使用 PrivateSubCommand1_Click() appdisk=Trim(App.Path)你不判断的话qq.txt在c:时便会出错 IfRight(appdisk,1)Thenappdisk=appdisk& IfDir(appdisk&qq.txt)Then Openappdisk&qq.txtForInputAs#1 n=0 WhileNotEOF(1) ReDimPreservetmpstr$(n) LineInput#1,aa tmpstr(n)=aa n=n+1 Wend Close#1 Fori=0Ton-1 Printtmpstr(i) Nexti Else MsgBox无此文件 EndIf EndSubText1.Text=Join(Str,vbCrLf)显示所有内容