主题：弱问：怎样把word文本里的内容添加到备注字段？
zhlu1986
[专家分：0] 发布于 2009-03-02 20:42:00
我是新手，向各位大侠求教：
怎样把word文本里的内容添加到备注字段？
从表单里填也可，从表里填也可。
回复列表 （共6个回复）
沙发
qjbzjp [专家分：8830] 发布于 2009-03-03 11:53:00
1. 先在Word中用另存为“纯文本（.txt）”，保存为一个文本文件，例如，2007.txt;
2. mystr=FILETOSTR("C:\Documents and Settings\qjb\桌面\学习VF经验\2007.txt")
3. REPLACE 备注字段名 with mystr
4. 还可以灵活使用其它方法，将变量mystr中的内容放到备注字段中。
板凳
zhlu1986 [专家分：0] 发布于 2009-03-03 20:03:00
谢谢您，可是按照这个方法我浏览表也没有内容，用表单打开也没有备注内容，是不是我哪里错了？
我是从表里添加的……
use 表名
mystr=FILETOSTR("C:\Documents and Settings\Rose\桌面\protein.txt")
replace 序列 with mystr
您的方法是从表单中添加的吗
3 楼
qjbzjp [专家分：8830] 发布于 2009-03-03 22:51:00
这是用命令向表中置换数据，在命令窗口中或表单的按键中都可以用。
按楼主的代码，如果“序列”是备注型字段，那么表中的第一条记录的“序列”中一定会有“mystr”变量中的字符。运行代码后用“brow”命令查看表时，双击第一条记录的“序列”字段，就可以打开看到Memo中的内容，或者用?查看最简单。
use 表名
mystr=FILETOSTR("C:\Documents and Settings\Rose\桌面\protein.txt")
replace 序列 with mystr
?序列
4 楼
zhlu1986 [专家分：0] 发布于 2009-03-04 12:24:00
刚刚看到还可以评分^_^
谢谢！
5 楼
leopardxp [专家分：30] 发布于 2009-03-11 11:42:00
那么如果是想将excel表中的某个列添加到备注字段呢？？
应该怎么弄？？
6 楼
qjbzjp [专家分：8830] 发布于 2009-03-11 15:20:00
如果Excel的第一列与数据表中的记录对应：
SET Defa to 'C:\Documents and Settings\qjb\桌面\学习VF'
myfile=getfile("xls")
myole= CreateObject("Excel.Application")
myExcel =myole.APPLICATION.Workbooks.OPEN(myfile)
USE 表名
FOR i=1 to RECCOUNT()
GO i
REPL 备注字段名 WITH myole.cells(i,1).value
NEXT
myole.quit
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 弱问：怎样把word文本里的内容添加到备注字段？