让EXCEL表数据  进入 到 DBF表的方法是通过创建对象来实现
如；myexcel=CreateObject('excel.application')

观论坛，解决TXT文档到DBF的方法有二种
     
    1、使用FileToStr函数。如：lcFile = FILETOSTR("课务分工2025.TXT") 再通过数组 进入DBF
    2、使用Append From导入。如：APPEND FROM 课务分工2025.txt TYPE DELIMITED WITH TAB


现在我有一个问题，因为公司对电脑装了加密，被保存过的TXT文档，使用filetostr()导入会是一片乱码，所以，想用创建对象打开TXT文档的方法，打开后再读取到DBF中，这个对TXT处理的代码该如何写？烦请高手赐教！

我的问题的简单描述：VFP打开TXT的代码如何写？对打开的文本内容存到变量中，又是如何写代码？

我们单位内网电脑也全部安装文控系统，所有文档、图片、PDF文件都会加密，VFP直接打开都会出错，把你的应用程序加入了保护进程后运行正常。

保存到dbf之前先 STRCONV 15 转成base64，取出使用时再用16解码base64即可
或者用STRCONV 13、14编码解码试试

VFP打开TXT的代码如何写？
modi comm c:\aaaa.txt

对打开的文本内容存到变量中，又是如何写代码？
就是你知道的：lcFile = FILETOSTR("课务分工2025.TXT")

试了，打开是一片乱码

用记事本打开才是正常的

首先你要知道你的电脑是如何加密txt文档的，然后才能考虑下一步。比如，用你的文档控制系统打开，此时可看到正常内容，然后拷贝到剪切板，再读入你vfp系统，再下一步处理。

[此贴子已经被作者于2025-4-27 15:16编辑过]

对WORD加密，通过创建对象，打开WORD再读取，就正常，所以，想到是否也可用创建一个能打开记事本的对象来处理，不知是否可行

问题没有说清楚啊？没有说清楚是如何加密和解密的。你们如何使用的需要说明。

只要能读出TXT   导入到EXCEL建议用LIBXL 快得你都反应不过来   

记事本打开正常 + VFP打开乱码，说明文本格式的码制不是ansi，可能是utf-8等
你需要检查文本的编码格式