COPYTOpipe符号(|)分隔字段的文本文件的解决方案

精华区

当前位置：网易精华区>>讨论区精华>>编程开发>>● VFP>>〖数据处理〗>>COPY TO pipe符号(|)分隔字段的文本文件的解决方案

主题：COPY TO pipe符号(|)分隔字段的文本文件的解决方案

发信人: goodfrd(supervisor)
整理人: foxzz(2002-09-07 21:41:47), 站内信件

我们知道VFP 5.0以上支持：
COPY TO 文件名.TXT DELIMITED WITH CHARACTER | FOR 条件
但是字符字段会用引号括起，如果不想出现引号，可用以下解决方案：

下面是 DBF2PSV.PRG（VFP 5.0测试过）:
PROCEDURE COPY2PSV
PARAMETERS PSV_FILE
PRIVATE ALL

IF EMPTY(ALIAS())
    =MESSAGEBOX([未打开表或未设为当前工作区!], [出错!])
    RETURN
ENDIF

SET SAFETY OFF
SET MEMOWIDTH TO 256
SET TEXTMERGE DELIMITERS TO
SET TEXTMERGE ON
SET TEXTMERGE TO (PSV_FILE) NOSHOW

n = AFIELDS(a_FldAtt)
SCAN
    FOR i=1 TO n
        FldVal = TRIM(PADR(&a_FldAtt[i, 1], a_FldAtt[i, 3]))
        \\<<FldVal>>|
    NEXT
    \
ENDSCAN

SET TEXTMERGE OFF
SET TEXTMERGE TO

RETURN

用法：
SELECT 0
USE 你的DBF
DO COPY2PSV WITH "你的文本文件名" IN DBF2PSV

----
欢迎光临良友程序库:http://0d0a.126.com http://f12.my163.com,免费提供我的各种Source Code

兄弟我抛出几块砖，有玉的赶紧亮出来啊！

[关闭][返回]