请教怎么读取doc文档中的文本?

angel007955 2003-10-17 12:44:19
如果是*.txt文件可以用二进制打开方式用get读取文件中的实际字节赋值给变量,从而对其执行操作,而*.doc文件属性中的字节数大于其文件打开显示的实际字节数,请问用什么方式可以读取DOC文件里边的实际字节(而不是属性中显示的字节)并赋值到变量中,从而对文件中显示的实际字节数操作呢?
...全文
366 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
angel007955 2003-10-18
  • 打赏
  • 举报
回复
如果是*.txt文件可以用二进制打开方式用get读取文件中的实际字节赋值给变量然后用PUT写回去,从而对其执行加解密操作,而*.doc文件属性中的字节数大于其文件打开显示的实际字节数那么用二进制打开方式get读文件读到的内容是属性当中显示的所有字节而不是实际显示的字节,(我要用VB对DOC文件[[即:对显示的实际字节]]进行加解密操作的),请问用什么方式可以读取DOC文件里边的实际字节(而不是属性中显示的字节)并赋值到字节变量中请各位大哥哥大姐帮帮我啊!!在线等!!!
kmzs 2003-10-18
  • 打赏
  • 举报
回复
急!
angel007955 2003-10-18
  • 打赏
  • 举报
回复
那么如何使用word对象读出在doc文件中的显示的实际字节(而不是属性当中的字节)然后赋给 字节变量吗?(我要对DOC文件中的显示的实际字节进行加密操作的)请各位大哥哥大姐帮帮我好吗?要不老板快炒我鱿鱼拉
kjhzls 2003-10-17
  • 打赏
  • 举报
回复
在vb中使用word对象,然后打开这个文件,对这个文件进行操作,就应该得到你所想要的结果.
vbanddelphi 2003-10-17
  • 打赏
  • 举报
回复
试试这个方法看可不可以从中得到一些启发!
调用两个API函数“shellexecute"和"getdesktopwindow"
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Const SW_SHOWMAXIMIZED = 3

Private Sub Command1_Click()
Dim pat
pat = "c:\1.doc" '假设是你所放文件的路径
ShellExecute GetDesktopWindow(), "open", pat, pat, "C:\", SW_SHOWMAXIMIZED
angel007955 2003-10-17
  • 打赏
  • 举报
回复
按照cjlong(幽谷听泉)的方法,显示‘用户定义类型未定义’。
Dim wrdobj As Word.Application
是不是有什么没有引用啊?
请大家帮我啊!!!
cjlong 2003-10-17
  • 打赏
  • 举报
回复
特意给你写了一段
Private Sub Command1_Click()
Dim wrdobj As Word.Application
'建立一个word.application对象
Set wrdobj = CreateObject("Word.Application")
'显示word.application,即word文字处理系统界面
wrdobj.Visible = True
'在word文字处理系统中添加一个文档
Dim vardoc As Word.Document
'选择对象
Dim sel As Word.Selection

Set vardoc = wrdobj.Documents.Open("c:\aa.doc")
Set sel = wrdobj.Selection
sel.WholeStory
'放到text1中
Text1.Text= Selection.Text
vardoc.Close
Set wrdobj = Nothing

End Sub
freelazy 2003-10-17
  • 打赏
  • 举报
回复
对于实际的字节数,你可以建一个简单的doc文件,如只有一个汉字,或有一个汉字和一个英文字母自己测试一下,然后再看word对象中有没有文件长度这个属性(没试过)。
freelazy 2003-10-17
  • 打赏
  • 举报
回复
doc文档是Word的格式,加过密的(不是密码,是格式加过密,就是不能直接读出),要先装Word,然后借用里面的Word库(里面有Word对象,可引用之),读出来。
demo001 2003-10-17
  • 打赏
  • 举报
回复
楼上的,你是不是一打开有中文的就会错误,没中文的不会??
dgfhz 2003-10-17
  • 打赏
  • 举报
回复
大俠,我這有個問題幫我 看看:
Private Sub Command1_Click()
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Text1.Text = StrConv(Input(LOF(1), 1), vbUnicode)
Close #1
End Sub
怎老是提醒"超出文件尾"阿
angel007955 2003-10-17
  • 打赏
  • 举报
回复
请kjhzls(kjhzls)回答仔细一点好吗?
如果使用word对象可以读出在doc文件中的显示的实际字节(而不是属性当中的字节)赋给 字节变量吗?
南大学 本科生课程设计(实践)设计报告 (大学计算机基础) "题 目 " 匪我思存作品展 " "学生姓名 "xxx " "指导教师 "Xxx " "学 院 " Xxx " "专业班级 " Xxx " "学生学号 " Xxx " 计算机基础教学实验心 2013 年 12 月 18 日 网页设计报告 一.主题及内容介绍 网页主题为言情天后匪我思存作品专栏,主要内容包括作者介绍、笔名出处、作品展览 以及作者的成名作《来不及说我你》的PPT展示。首页包括网页目录以及作品封面美图和美 文欣赏,作品展览还连接了两个作品的情节概述。整份网页以蓝色为主打,符合作者 作品优雅而不失情感的特点。 二.设计步骤 .主题选定:根据自己的兴趣选定大概主题,结合本人对作者的了解以及网络资料确定 网页主题以及网页内容。 .网页结构设计:网页结构的设计经过数次改造(下文问题会有详细概述)最终确定 为首页采用镶嵌式框架结构,有利于内容更好地展现、保证内容的完整性以及网页美化 ,次页包含文本结构和表格结构,有助于利用有限的网页数更好地保证网页的完整性 。首页与每张次页均有超链接,便于观看,同时次页间也有链接,最大程度上地实现跳 转。 .内容排布:内容排布根据主题内容间的逻辑性,分三个层次展现,首页为第一层次, 包括网页目录、标题、作者作品封面美图欣赏以及美句欣赏,其目录在左侧分框架 ,标题排布于右上方框架,其余在右下方框架呈现。 .网页美化:为了是网页和作者作品风格不冲突,我选择了多张优雅的蓝色图片作为网 页背景,同时黄色的字体与蓝色的搭配也更能展现文字内容,再有网页涵盖了艺术字 ,音乐,动画,PPT等多种美化工具,为网页的内容展现及整体布局增添了色彩。 三.采取的方法和手段 .取材:借助百度文库,百度图片,酷狗音乐以及其他事物完成取材。 .网页制作:以FrontPage为工具,网页的框架设计及内容填写全都在FrontPa ge上实现,具体步骤为: a.新建网页:在右侧选则已有网页模板,再从框架网页选择镶嵌式层次结构,根据需 求,分别在三个框架网页添加新网页或者设置初始网页。 b.添加背景图片:从格式菜单的背景或者鼠标右键快捷菜单的网页属性找到目标 窗口,接着进入格式浏览已存图片,设置成背景图片。 c.添加背景音乐:将所收集到的音乐重命名成一个简单的名字,需带有后缀名,再进入 背景界面进行音乐浏览,在浏览框下面打入该音乐名就可找到,再打开就行了。 d.插入flash.首先要制作flash,再将flash发布,就可从插入图片找到插入flash影片 ,选择灰颜色的那个文件再浏览就成功了。 e.插入PPT,从链接插入。 f.图片的插入很简单,直接从插入菜单插入即可,再对图片位置和大小进行适当的改 动即可。 g.艺术字的插入与图片插入类似。 .PPT制作:鉴于有做过两次英语PPT作业,所以此次制作可谓是得心应手,背 景从鼠标右键快捷菜单找到,插入合适的背景,再输入文字,对文字的字体,颜色加 以适当改动,文字与图片还可以动画的方式的形式进入与出去。 .动画制作:借助Flash完成,首先新建flash文件,再从属性对flash图画进行适当 改动,再从文件导入背景图片,对背景图片进行适当改动,选择工具菜单的文字工 具"A",选择适当的字体大小及颜色,再输入文字,接下来在25帧出插入帧,插入图层2 ,在第1帧处选择文字工具输入所需文字,再在第5帧处选文字进行修改分离,在第20 帧处插入空白关键帧,将文字打散,再在第1帧、第5帧处选择属性的形状即可。(此 处从百度文库获得制作方法) 四.遇到的问题及解决方法 .确定主题:原主题为一个小说展,但考虑到范围过大及网页页数和时间的限制而选择 其一个作者的作品进行展示。 .取材:开始选择的图片过小,不能填满整个网页,后通过图片修改工具对图片进行修 改以及再从百度图片下载大图片得以解决。 .网页设计:起初选择的是表格布局,后来考虑到表格过于单调改用无意间从FrontPa ge上发现的框架结构,框架结构的选择也多次改变过,最后决定用镶嵌式结构,框架结 构的使用过程也遇到很多问题,例如:插入已做网页,建新网页,以及链接的目标框 架,某些是自己摸索出来的,某些是向室友亲请教的,如从超链接属性选择合适的目 标框架。 .插入:插入背景图片是自己摸索的,插入音乐是听从老师的将音乐名该简单从背景音 乐浏览里找的,插入PPT是直接从网页链接过去的,插入flash是先将制作的flash发布 再从插入插入的,这个方法是上网查的。 .操作问题:在插入图片时图片排布总是不如人意,拖动图片也很麻烦,后经过图片修 改,文字排版等得以解决。 .保存问题:开始的保存是以以index—命名,后来重命名后就无法打开

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧