读取文本文件内容的有关问题
读取文本文件内容的问题
将文本文件的内容读入到表备注字段中，为什们用APPEN FROM命令加不进去呢？
例如 append from aa.txt type sdf，这个命令只能将内容加入到字符型字段中
------解决方案--------------------
将文本文件的内容读入到表备注字段示例:
cFileName=getfile('txt')
If File(cfileName)
cStr=FiletoStr(cFileName)
Select TableName
Append Blank
Replace MemoField with cStr
Endif
append from aa.txt type sdf这句是将文本文件汇入dbf的指令
------解决方案--------------------
这样也可以:
cFileName=getfile('txt')
If File(cfileName)
Select TableName
Append Blank
Append MEMO MemofieldName from cFileName
Endif
------解决方案--------------------
不会可以查 vfp 自带的帮助文件呀
将文本文件的内容复制到备注字段中。
APPEND MEMO MemoFieldName FROM FileName[OVERWRITE] [AS nCodePage]
参数
MemoFieldName
指定备注字段名，文件内容将追加到此备注字段中。
FROM FileName
指定文本文件，其内容将复制到备注字段中。必须包含完整的文本文件名，包括扩展名。
OVERWRITE
用文件的内容替换备注字段当前的内容。
AS nCodePage
指定复制到备注字段中的文本文件的代码页。Microsoft Visual FoxPro 复制文本文件的内容，并将数据复制到备注字段个的过程过，自动将数据从指定代码页转换成备注字段所在表的代码页。如果包含备注字段的表妹又使用代码页标记，Visual FoxPro 自动将数据从指定代码页转换到当前 Visual FoxPro 代码页。如果指定的 nCodePage 值无效，Visual FoxPro 产生一个错误信息。您可以使用 GETCP( ) 函数作为 nCodePage ，显示代码页对话框，并从中指定要追加的表或文件的代码页。如果省略 AS nCodePage 子句，或者指定的 nCodePage值为 0 ，将不转换文本文件的代码页。
说明
如果忽略 overwrite ，文本文件的全部内容将追加到当前记录的指定备注字段中。
示例
在下面示例中，先将备注字段 notes 的内容复制到文件 Test.txt中，然后将 Test.txt 的内容追加到备注字段。最后，用 Test.txt 的内容替换备注字段中的内容。
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE employee && 打开 Employee 表
WAIT WINDOW '现在在显示 Employee 表的 notes 备注字段内容 - 按 ESC' NOWAIT
MODIFY MEMO notes NOEDIT && 打开 notes 备注字段
COPY MEMO notes TO test.txt && 从备注字段创建 test 文件
WAIT WINDOW '现在显示 TEST.TXT 文本文件内容 - 按 ESC' NOWAIT
MODIFY FILE test.txt NOEDIT && 打开文本文件
WAIT WINDOW '现在添加 Employee 表的notes字段值了 - 按 ESC' NOWAIT
APPEND MEMO notes FROM test.txt &&添加文本文件内容
MODIFY MEMO notes NOEDIT &&再次显示备注字段内容
WAIT WINDOW '现在覆盖 Employee表的 notes字段 - 按 ESC' NOWAIT
APPEND MEMO notes FROM test.txt OVERWRITE &&替换 notes 字段内容
MODIFY MEMO notes NOEDIT NOWAIT
DELETE FILE test.txt
将文本文件的内容读入到表备注字段中，为什们用APPEN FROM命令加不进去呢？
例如 append from aa.txt type sdf，这个命令只能将内容加入到字符型字段中
------解决方案--------------------
将文本文件的内容读入到表备注字段示例:
cFileName=getfile('txt')
If File(cfileName)
cStr=FiletoStr(cFileName)
Select TableName
Append Blank
Replace MemoField with cStr
Endif
append from aa.txt type sdf这句是将文本文件汇入dbf的指令
------解决方案--------------------
这样也可以:
cFileName=getfile('txt')
If File(cfileName)
Select TableName
Append Blank
Append MEMO MemofieldName from cFileName
Endif
------解决方案--------------------
不会可以查 vfp 自带的帮助文件呀
将文本文件的内容复制到备注字段中。
APPEND MEMO MemoFieldName FROM FileName[OVERWRITE] [AS nCodePage]
参数
MemoFieldName
指定备注字段名，文件内容将追加到此备注字段中。
FROM FileName
指定文本文件，其内容将复制到备注字段中。必须包含完整的文本文件名，包括扩展名。
OVERWRITE
用文件的内容替换备注字段当前的内容。
AS nCodePage
指定复制到备注字段中的文本文件的代码页。Microsoft Visual FoxPro 复制文本文件的内容，并将数据复制到备注字段个的过程过，自动将数据从指定代码页转换成备注字段所在表的代码页。如果包含备注字段的表妹又使用代码页标记，Visual FoxPro 自动将数据从指定代码页转换到当前 Visual FoxPro 代码页。如果指定的 nCodePage 值无效，Visual FoxPro 产生一个错误信息。您可以使用 GETCP( ) 函数作为 nCodePage ，显示代码页对话框，并从中指定要追加的表或文件的代码页。如果省略 AS nCodePage 子句，或者指定的 nCodePage值为 0 ，将不转换文本文件的代码页。
说明
如果忽略 overwrite ，文本文件的全部内容将追加到当前记录的指定备注字段中。
示例
在下面示例中，先将备注字段 notes 的内容复制到文件 Test.txt中，然后将 Test.txt 的内容追加到备注字段。最后，用 Test.txt 的内容替换备注字段中的内容。
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE employee && 打开 Employee 表
WAIT WINDOW '现在在显示 Employee 表的 notes 备注字段内容 - 按 ESC' NOWAIT
MODIFY MEMO notes NOEDIT && 打开 notes 备注字段
COPY MEMO notes TO test.txt && 从备注字段创建 test 文件
WAIT WINDOW '现在显示 TEST.TXT 文本文件内容 - 按 ESC' NOWAIT
MODIFY FILE test.txt NOEDIT && 打开文本文件
WAIT WINDOW '现在添加 Employee 表的notes字段值了 - 按 ESC' NOWAIT
APPEND MEMO notes FROM test.txt &&添加文本文件内容
MODIFY MEMO notes NOEDIT &&再次显示备注字段内容
WAIT WINDOW '现在覆盖 Employee表的 notes字段 - 按 ESC' NOWAIT
APPEND MEMO notes FROM test.txt OVERWRITE &&替换 notes 字段内容
MODIFY MEMO notes NOEDIT NOWAIT
DELETE FILE test.txt