Progress 4gl Progress OpenEdge-易于归档-一种简单的方法?
我想用一种非常简单的方法来查看任何正在进行中的诱人内容?我刚刚发现了一种使用Json(10.2B)将临时表转储到文件的简单方法。 写JSON就是诀窍Progress 4gl Progress OpenEdge-易于归档-一种简单的方法?,progress-4gl,openedge,Progress 4gl,Openedge,我想用一种非常简单的方法来查看任何正在进行中的诱人内容?我刚刚发现了一种使用Json(10.2B)将临时表转储到文件的简单方法。 写JSON就是诀窍 DEFINE TEMP-TABLE ttTmp FIELD FieldA AS CHAR FIELD FieldB AS CHAR.
DEFINE TEMP-TABLE ttTmp
FIELD FieldA AS CHAR
FIELD FieldB AS CHAR.
CREATE ttTmp.
ASSIGN ttTmp.FieldA = "A"
ttTmp.FieldB = "B".
DEFINE VARIABLE tthTmp AS HANDLE NO-UNDO. /* Handle to temptable */
DEFINE VARIABLE lReturnValue AS LOGICAL NO-UNDO.
tthTmp = TEMP-TABLE ttTmp:HANDLE.
lReturnValue = tthTmp:WRITE-JSON("FILE", "c:\temp\tthTmp.txt", TRUE, ?).
/* Output File tthTmp.txt
{"ttTmp": [
{
"FieldA": "A",
"FieldB": "B"
}
]}
Output File tthTmp.txt */
例如,您还可以生成XML
tthTmp:WRITE-XML("FILE","c:\temp\tt.xml", TRUE).
或者(可能没有分号分隔的文件那么容易)输出
OUTPUT TO c:\temp\file.txt.
FOR EACH ttTmp:
EXPORT DELIMITER ";" ttTmp.
END.
OUTPUT CLOSE.
写json也是可行的,如果json是你想要的,那就是一个很好的方法!