vb读写txt

有2个txt文件txt1:123txt2：456一个按钮一个text怎么点击按钮读取txt1+txt2在text（123456）恩，这样PrivateSubCommand1_Click()DimintTxt1asdoubleDimintTxt2asdoubleintTxt1=Cdbl(text1.text)intTxt2=Cdbl(text2.text)lblCaption.caption=intTxt1&intTxt2EndSub你提的问题不清楚，是2个txt文件还是2个文本框，如果是2个txt文件就要用到读取文件的操作了。如：open文件名as#12011-10-3108:51killserver007|一级'读取PrivateSubCommand1_Click()DimfnAsLong,StrReadAsStringDimaStrAsStringfn=FreeFile()aStr='路径可以用App.Path&\aa.txt表示程序所在目录的aa.txt文件Opend:\aa.txtForInputAs#fnDoWhileNotEOF(fn)LineInput#fn,StrReadaStr=aStr&StrRead&vbCrLfLoopClose#fn'解密方法解密aStr'...Text1.Text=aStr'解密后的aStrEndSub'保存PrivateSubCommand2_Click()DimfnAsLong,aStrAsStringaStr=Text1.Text'用自己的加密方法加密aStr'...fn=FreeFile()Opend:\aa.txtForOutputAs#fn'Print语句会覆盖文件中原有数据Print#fn,aStr'加密后的aStrClose#fnEndSub三门县海游镇平海路99号紫云山庄61幢1单元202室三门县海游镇平海路97号紫云山庄61幢2单元204室三门县海游镇平海路98号紫云山庄61幢2单元24室三门县海游镇平海路99号紫云山庄61幢三单元2053室2011-10-3109:02pdprf|四级PrivateSubCommand1_Click()Opentxt1路径ForInputAs#1'读取路径到文本WhileNotEOF(1)LineInput#1,Stxt1=txt1&S&vbCrLfWendOpentxt2路径ForInputAs#1'读取路径到文本WhileNotEOF(1)LineInput#1,Stxt2=txt2&S&vbCrLfWendText1.Text=txt1&vbcrlf&txt2'将读取内容放入文本框'Close#1'关闭#1号文件EndSub2011-10-3109:38imkarayi|二级'添加Text1Command1'确认在C盘目录下存在txt1和txt2OptionExplicitPrivateSubCommand1_Click()DimfBuf1()AsByte,fBuf2()AsByteDimfName1AsString,fName2AsStringDimfNo1AsInteger,fNo2AsIntegerDimfSize1AsLong,fSize2AsLongDimOut1AsString,Out2AsStringfName1=c:\txt1'设定文件1的路径IfDir(fName1)ThenExitSub'如果文件1不存在，退出fNo1=FreeFile'获取未使用的文件号OpenfName1ForBinaryAccessReadAs#fNo1'二进制方式读取文件1fSize1=LOF(fNo1)'获取文件1长度ReDimfBuf1(fSize1-1)AsByte'重定义文件1的缓冲数组Get#fNo1,,fBuf1()'读取文件1的所有数据Close#fNo1'关闭文件1fName2=c:\txt2'设定文件2的路径IfDir(fName2)ThenExitSub'如果文件不2存在，退出fNo2=FreeFile'获取未使用的文件号OpenfName2ForBinaryAs#fNo2'二进制方式读取文件2fSize2=LOF(fNo2)'获取文件1长度ReDimfBuf2(fSize2-1)AsByte'重定义文件1的缓冲数组Get#fNo2,,fBuf2'读取文件1的所有数据Close#fNo2'关闭文件1Out1=StrConv(fBuf1,vbUnicode)'文件1的缓冲数组转换为字符串Out2=StrConv(fBuf2,vbUnicode)'文件1的缓冲数组转换为字符串Text1.Text=Out1&Out2'合并后输出到Text1EndSubPrivateSubForm_Load()Command1.Caption=读取'设定按键1的标题Text1.Text='清空Text1的内容EndSubVB读取TXT每一行2011-8-520:07提问者：﹏時洸機|浏览次数：290次就是将TXT内的内容的每一行显示在text1中，text1设置为多行显示还有j将text2中得内容每一行保存为txt问题补充：请不要复制粘贴一些网上的代码，那些我都看过了，都不大符合我想要的写一个subsubGetTxt()dimTempStr$openTXT路径，自己填forinputas#1dowhilenoteof(1)lineinput#1,TempStrtext1.text=text1.text&TempStr&vbcrlfloopclose#1endsub'调用示例privatesubcommand1_click()gettxtendsub'第二个，还是写一个subsubSaveTxt()open这里写一个txt的路径，如c:\1.txtforoutputas#1print#1,text2.textclose#1endsub'调用示例privatesubcommand2_click()savetxtendsub没有vb调试，如果有小问题，自己调试下2011-8-520:36xjnzhidao|十二级openc:\1.txtforinputas#1whilenoteof(1)lineinput#1,stext1.text=text1.text&s&vbcrlfwendclose#1'保存text2openc:\1.txtforoutputas#1print#1,text2.textclose#1VB中读取文本文件中的每一行，处理后写入另一个文本文件2010-5-1023:57提问者：bhmr|悬赏分：100|浏览次数：880次1：vb中读取一个文本文件2：将每一行字符“name”后的所有内容运行某个字符转换函数（现成存在在，架设为函数abc）3：将每一行原来的内容+字符“name”后经过函数转换好的内容写入另一个文本文件4:每个文本文件大约有1万行左右问题补充：如果该行中没有name需要跳过该行主要是文件比较大，都是1万行以上的PrivateSubCommand1_Click()OpenApp.Path+\1.txtForInputAs#1OpenApp.Path+\2.txtForBinaryAs#2DoWhileNotEOF(1)Dimtmp,tmp2AsStringDimlAsLongLineInput#1,tmpl=InStr(1,tmp,name)tmp2=Mid(tmp,1,l-1)&name&你的函数ABC(Mid(tmp,l+4))&vbCrLfPut#2,,tmp2Doevents'防程序卡死LoopClose#1Close#2EndSub我是可以写,不过处理10000行。。。估计没效率方法期待高手我也学习学习…………PrivateSubCommand1_Click()OpenApp.Path+\1.txtForInputAs#1OpenApp.Path+\2.txtForBinaryAs#2DoWhileNotEOF(1)Dimtmp,tmp2AsStringDimlAsLongLineInput#1,tmpl=InStr(1,tmp,name)tmp2=Mid(tmp,1,l-1)&name&你的函数ABC(Mid(tmp,l+4))&vbCrLfPut#2,,tmp2Doevents'防程序卡死LoopClose#1Close#2EndSub0|评论2010-5-1100:56欧联科技|三级其实你的问题可以换个思路来解决啊，为什么要写个新的文件了，你可以把你的文本文件装载到文本框，然后利用文本查找和文本替换的方法来修改文本，然后将结果写成文件就可以啦。0|评论2010-5-1101:02warmice5255|一级可以用fso对象进行操作。打开2个文本，边读边写。1W行业不是很多0|评论2010-5-1107:39cushionyoung|五级dimop()asstring,temp1asstring,tempasstring,iaslongopen文件路径1forinputas#1open文件路径2foroutputas#2dowhilenoteof(1)i=i+1lineinput#1,temp'按行读取temp1=tempop=split(temp,name)'将读取的行按name拆分，name后的写入数组opifubound(op)0then'该行存在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)ThenOpenappdisk&qq.txtForInputAs#1n=0WhileNotEOF(1)ReDimPreservetmpstr$(n)LineInput#1,aatmpstr(n)=aan=n+1WendClose#1Fori=0Ton-1Printtmpstr(i)NextiElseMsgBox无此文件EndIfEndSubText1.Text=Join(Str,vbCrLf)'显示所有内容