&vb读取txt文件到textbox
秒后自动跳转到登录页
(奖励10下载豆)
快捷登录：
举报类型：
不规范：上传重复资源
不规范：标题与实际内容不符
不规范：资源无法下载或使用
其他不规范行为
违规：资源涉及侵权
违规：含有危害国家安全等内容
违规：含有反动/色情等内容
违规：广告内容
详细原因：
任何违反下载中心规定的资源，欢迎Down友监督举报，第一举报人可获5-10下载豆奖励。
程序员/设计师能用上
cissp 450Q参考题库
七夕节-程序员表白源
运维必备Python基础
IT面试之2015届校招
新版Python官方入门
需求碎片化时代，从
vb读取txt文件到textbox
上传时间：
技术分类：
资源评价：
（0位用户参与评价）
已被下载&10&次
vb读取txt文件到textbox
本资料共包含以下附件：
vb读取txt文件到textbox.doc
（0位用户参与评价）
down友评价
51CTO下载中心常见问题：
1.如何获得下载豆？
1)上传资料
2)评论资料
3)每天在首页签到领取
4)购买VIP会员服务，无需下载豆下载资源
5)更多途径：点击此处
2.如何删除自己的资料？
下载资料意味着您已同意遵守以下协议：
1.资料的所有权益归上传用户所有
2.未经权益所有人同意，不得将资料中的内容挪作商业或盈利用途
3.51CTO下载中心仅提供资料交流平台，并不对任何资料负责
4.本站资料中如有侵权或不适当内容，请邮件与我们联系（）
5.本站不保证资源的准确性、安全性和完整性, 同时也不承担用户因使用这些资料对自己和他人造成任何形式的伤害或损失
下载1384次
下载2163次
下载2674次
下载2142次
相关专题推荐
还记得童年时候我们经常留恋的这些经
Ruby是一种功能强大的面向对象的脚本
本专题资源是由《深入浅出WPF》作
本专题为您囊括了国外游戏设计与编程
随着网络的发展，各种网站层出不穷，
随着互联网的发展，个人网站层出不穷
Python是一种面向对象、直译式设计语
经常会看到一些比较不错的程序，如何
51CTO开发频道推出《开发月刊》电子杂
本套电子书包含北大青鸟网络教学的全
易语言是一门计算机程序语言。以“易
WPF是基于Vista的用户界面框架，它向
本专题为游戏制作教学视频，视频格式
本专题收集了tangible software solu
本课程针对很少或毫无编程经验的学生
中山大学Delphi面向对象程序设计（采
本周下载热点
意见或建议：
联系方式：
您已提交成功！感谢您的宝贵意见，我们会尽快处理共有 8449 人关注过本帖
标题：[求助] 如何在VB中读取word文件，并使word文件的内容显示在文本框中。
等　级：新手上路
帖　子：28
&&问题点数：0&&回复次数：8&&&
[求助] 如何在VB中读取word文件，并使word文件的内容显示在文本框中。
如何在VB中读取word文件，并使word文件的内容显示在文本框中。各位高手，请赐教。本人通过引用word对象，也能打开文件；可是速度太慢了。还有什么其他的方法吗？
搜索更多相关主题的帖子:
等　级：新手上路
帖　子：28
word文件能用二进制方式打开，用get函数读数据吗？
等　级：新手上路
帖　子：611
Private Sub CmdOpen_Click()
Dim lsFileName As String
Dim lsPath As String
Dim lsName As String
Dim lbApp As Boolean
Dim llCount As Long
Dim wordObj As Word.Application
'浏览要添加的的文件
CommonDialog1.CancelError = True '取消报错 并且跳出执行！
On Error GoTo err_cancel
CommonDialog1.DialogTitle = "选择要打开的Word文件"
'CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "Word文件(*.doc)|*.doc"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
lsFileName = CommonDialog1.FileName '获取完整路径
lsName = CommonDialog1.FileTitle
'只获取文件名
lsPath = Replace$(lsFileName, lsName, "")
'获取文件所在的路径
'循环进行处理！判断是否存在打开的word进程 ！
lbApp = False
Do While True
On Error Resume Next
Set wordObj = GetObject(, "Word.Application")
'用于判断已经打开的word进程
If wordObj Is Nothing Then Exit Do '如果没有找到进程那么就退出循环
If wordObj.Documents.Count = 0 Then '如果是一个空进程就释放
wordObj.Quit
Set wordObj = Nothing
For llCount = 1 To wordObj.Documents.Count
'这个应用就是，手工打开文件的应用！
If Err.Number = 0 Then '有Word已经打开
If wordObj.Documents(llCount).FullName = lsFileName Then
'判断是否有要打开的进程
Text1.Text = wordObj.Documents(llCount).Content.Text '这个是对文件的操作
GoTo endSub
lbApp = True
If llCount && 0 Then Exit Do
'所有打开的里面没有要打开的文件
If lbApp = False Then
Set wordObj = CreateObject("Word.Application") '创建word应用类
wordObj.Visible = False
wordObj.Documents.Open (lsFileName)
Text1.Text = wordObj.ActiveDocument.Content.Text
wordObj.Quit
Set wordObj = Nothing
wordObj.Documents.Open (lsFileName) '直接在原来的应用上打开文件
Text1.Text = wordObj.ActiveDocument.Content.Text
wordObj.ActiveDocument.Close (False) '关闭打开的文件'但是不关闭应用
End IfendSub:
MsgBox "成功"
Exit Suberr_cancel:
MsgBox "你点的是取消"End Sub
等　级：新手上路
帖　子：28
先谢谢下！
等　级：贵宾
威　望：42
帖　子：4881
专家分：671
以下是引用zeyidao在 11:09:10的发言：word文件能用二进制方式打开，用get函数读数据吗？
问题是，文件格式你能读懂？
等　级：论坛游民
帖　子：502
专家分：44
不错！下了！
等　级：新手上路
不错的，可是怎么就在读去了有了黑点儿了呢？楼主有解决了吗
等　级：新手上路
这个我试下来不行啊，“用户定义类型未定义”不知道哪里出错了啊
等　级：新手上路
提示文件已打开，可是根本没打开啊！
版权所有，并保留所有权利。
Powered by , Processed in 0.029701 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights ReservedVB中如何将文件中的多行内容按行显示在文本框中?注意，是多行内容的文件，不是要文本框显示多行内容！_百度知道
VB中如何将文件中的多行内容按行显示在文本框中?注意，是多行内容的文件，不是要文本框显示多行内容！
空行也算;Documents\Administrator&#92，此行不算）1
9=========================（此处结束:&#92：Text1的Multiline属性已经设为True：========================（此处开始。测试时打开的文件，文本框能显示;Text1.txt文件内容.Text = aLoop'ss，什么也没显示；打开多行文本内容的文件就不行了;Users&#92：E，ScrollBars属性为2。注Private Sub Form_Load()Dim a As StringCommonDialog1.ShowOpenOpen CommonDialog1.Text = aClose #1End Sub
打开单行文本内容的文件.FileName For Input As #1Do While Not EOF(1)Line Input #1, aText1
jpg" esrc="http.baidu.baidu://e.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="/zhidao/wh%3D600%2C800/sign=abca009ff3d3fd1fa251f95cad1c85e79.hiphotos.hiphotos://e.hiphotos<a href="/zhidao/wh%3D450%2C600/sign=/zhidao/pic/item/a71ea8d3fd1fa251f95cad1c85e79
提问者采纳
恰巧你的多行文本的最后一行是空行（但也认是一行），所以就出现你的错误的感觉“没显示”了：Text1，就是最关键的那句，要快点的方法就是楼上那位xiaoyuemt所说的第二个方法、但数据量巨大时会感觉显示的速度变慢，其实不管单行文本还是多行文本 都已经显示了。”，什么也没显示，这样是最直观的, as = s & a & Chr(13) & Chr(10)LoopText1、而且是最后一行其实你这个真的是非常简单的事了：楼上很多人都说了；打开多行文本内容的文件就不行了，代表换行，文本框能显示.Text = sClose #1 上面代码中Chr(13) & Chr(10)其实就等同于 vbcrlf 。当然.Text=Text1：dim s as stringDo While Not EOF(1)Line Input #1.Text &
a & vbcrlf 即可解决你的问题啦.Text = a改成，将Text1：是因为你的代码“Text1。解决的方法.Text = a”在do循环中每次只显示一行，但为什么多行文本你感觉没显示。你说“打开单行文本内容的文件
提问者评价
好！（楼上的也对）
其他类似问题
为您推荐：
文本框的相关知识
其他4条回答
Text1.Text=Text1.Text & vbcrlf & a
Text1.Text = a 这一行改为text1.text=text1.text & a ========================改成这样会将显示的文本也分行显示。dim s as stringDo While Not EOF(1)Line Input #1, as = s & a & Chr(13) & Chr(10)LoopText1.Text = sClose #1
你要打印到文本框中？不知道你说的 prnt(x,y)是不是你定义的一个函数，vb里应该没有这个方法的，如果你要按自己的格式打印到文本框 text1中，可按下面代码打印的方法做你的东西。Private Sub Command1_Click()Text1.Text = &我&
把text1的属性设置为多行（multiLine）然后把text1=a改为text1=text1+a+vbcrlf
&#39;最后这个vbcrlf是换行符
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁如何用VB实现浏览文件并获取路径放入文本框_百度知道
如何用VB实现浏览文件并获取路径放入文本框
是可以选择文件的那种而不是蛋蛋选择文件夹。要求单机Command1时弹出浏览对话框、TextBox1控件在窗体中新建Command1。选择后单机确定路径出现在Text1中
提问者采纳
Text = CommonDialog1，代码如下Private Sub Command2_Click()
CommonDialog1工程添加部件microsoft common dialog control 6.0在窗体加一个commondialog1控件.ShowOpen
问题是找不到这个控件。。
工程添加部件microsoft common dialog control 6.0 以后控件栏里就有了
问题是我找过了没有= =附图有了有了。。Win7控件没装进重新注册了一下此空间。代码无误感谢帮忙。
提问者评价
其他类似问题
2人觉得有用
为您推荐：
文本框的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁共有 4604 人关注过本帖
标题：vb如何把窗体中的文本框内容写入文本文件中
等　级：新手上路
帖　子：35
&&问题点数：0&&回复次数：17&&&
vb如何把窗体中的文本框内容写入文本文件中
请问如何才能把vb窗体文本框中的内容写入硬盘的文本文件中，且每个文本框中的内容之间用逗号隔开，并可实现每次保存时文件名可以自已取名字。以下是我按版主的帮助做的例子，但还有空格的问题请高手们指教
[此贴子已经被作者于 17:42:59编辑过]
附件: 只有本站会员才能下载或查看附件，请
搜索更多相关主题的帖子:
&&&&&&&&&&
等　级：论坛游民
帖　子：163
专家分：27
使用open （） output 语句写
等　级：新手上路
帖　子：35
我是个初学者，不知哪位有没有给个例子做参考
来　自：广东-广州
等　级：友情版主
威　望：66
帖　子：6039
open "d:\a.txt" for output as #1
write #1, text1.text,text2.textclose #1
等　级：新手上路
帖　子：35
这样文件只能存为a.txt如何才能实现名称可以根据使用者的喜好自已定呢(比如另存为然后取文件名点保存）？并保存在应用程序的同目录中呢
等　级：新手上路
帖　子：43
用文件组件
等　级：新手上路
帖　子：35
文件组件如何使用，请指点，
来　自：广东-广州
等　级：友情版主
威　望：66
帖　子：6039
dim strFileName as string strFileName = inputbox( "请输入你喜欢的文件名")open "c:\" & strFileName for output as #1
write #1 , Text1.text,text2.textclose #1
等　级：新手上路
帖　子：43
purana?自己上传的东西怎么给别人下啊.
等　级：新手上路
帖　子：35
保存后为文本文件中会把文本框中的内容加上双引号，请问如何才能取消文本文件中的双引号??另如文件保存的位置可以自已选择那应如何修改代码？
版权所有，并保留所有权利。
Powered by , Processed in 0.027369 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved}