2013-05-29 3 views

답변

1

방금 ​​Json (10.2B부터)을 사용하여 임시 테이블을 파일로 덤프하는 쉬운 방법을 발견했습니다. WRITE-JSON은 속임수입니다 !!

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 */            
+0

예, (어쩌면 아주 쉬운 일이 아닙니다) 출력을 생성 할 수 그 후에 다시 할 수있는 좋은 방법입니다! – Jensd

2

JSON은 '당신이 무엇을 당신은 또한 예를 들어 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. 
+0

write-json도 사용 가능합니다. –

관련 문제