vb读写txt.doc

(完整word版)vb读写txt(完整word版)vb读写txt(完整word版)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:51HYPERLINK"http：//passport。baidu。com/?business&aid=6&un=killserver007”\l”2”\t”_blank”killserver007｜一级’读取PrivateSubCommand1_Click（）DimfnAsLong，StrReadAsStringDimaStrAsStringfn=FreeFile（）aStr="”'路径可以用App。Path＆"\aa.txt”表示程序所在目录的aa.txt文件Open”d：\aa.txt"ForInputAs＃fnDoWhileNotEOF(fn）LineInput＃fn，StrReadaStr=aStr＆StrRead&vbCrLfLoopClose＃fn'解密方法解密aStr’。。.Text1.Text=aStr’解密后的aStrEndSub’保存PrivateSubCommand2_Click()DimfnAsLong，aStrAsStringaStr=Text1.Text'用自己的加密方法加密aStr’。..fn=FreeFile（)Open”d:\aa.txt”ForOutputAs＃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:02HYPERLINK”http://passport.baidu.com/？business＆aid=6＆un=pdprf"\l”2"\t”_blank"pdprf｜四级PrivateSubCommand1_Click(）Open”txt1路径"ForInputAs＃1'读取路径到文本WhileNotEOF（1）LineInput#1,Stxt1=txt1&S&vbCrLfWendOpen”txt2路径"ForInputAs#1’读取路径到文本WhileNotEOF（1）LineInput＃1,Stxt2=txt2&S&vbCrLfWendText1。Text=txt1＆vbcrlf＆txt2’将读取内容放入文本框’Close#1'关闭#1号文件EndSub2011—10-3109：38HYPERLINK”http://passport.baidu。com/？business＆aid=6＆un=imkarayi"\l"2”\t”_blank”imkarayi|二级’添加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=FreeF