vb读写txt.doc
《vb读写txt.doc》由会员分享,可在线阅读,更多相关《vb读写txt.doc(8页珍藏版)》请在咨信网上搜索。
1、有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 # 1201
2、1-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解密方法解
3、密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
4、号紫云山庄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 Text
5、1.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 A
6、s 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() 读取文件
7、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,
8、 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中得内
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 完整 word vb 读写 txt
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【1587****927】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【1587****927】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。