DbFileSpec.CopyTo 方法 |
命名空间: VO
1// 将CUSTOMER.DBF/DBT文件的记录导出到各种格式: 2SetDefault( "C:\CAVOxx\SAMPLES\SSATUTOR" ) 3oDB := DBFileSpec{} 4oDB:FileName := "CUSTOMER" 5 6IF oDB:Find() 7 // 将文件复制到DBF/FPT 8 oDB:CopyTo( "cust_CDX", "DBFCDX" ) 9 // 将文件复制到一个分隔文件 10 oDB:Delim := "," 11 oDB:CopyTo( "cust_DEL" ) 12 oDB:Delim := NULL_STRING 13 // 将文件复制到一个SDF文件 14 oDB:SDF := TRUE 15 oDB:CopyTo( "cust_SDF" ) 16 oDB:SDF := FALSE 17 // 将文件复制到一个DBF/DBV文件 18 oDB:HidRDDs := { "DBFMEMO" } 19 oDB:CopyTo( "cust_DBV" ) 20 oDB:HidRDDs := {} 21ENDIF
1// 将CUSTOMER.DBF/DBT文件的记录导出到各种格式: 2SetDefault( "C:\CAVOxx\SAMPLES\SSATUTOR" ) 3oDB := DBFileSpec{} 4oDB:FileName := "CUSTOMER" 5 6IF oDB:Find() 7 // 将文件复制到DBF/FPT 8 oDB:CopyTo( "cust_CDX", "DBFCDX" ) 9 // 将文件复制到一个分隔文件 10 oDB:Delim := "," 11 oDB:CopyTo( "cust_DEL" ) 12 oDB:Delim := NULL_STRING 13 // 将文件复制到一个SDF文件 14 oDB:SDF := TRUE 15 oDB:CopyTo( "cust_SDF" ) 16 oDB:SDF := FALSE 17 // 将文件复制到一个DBF/DBV文件 18 oDB:HidRDDs := { "DBFMEMO" } 19 oDB:CopyTo( "cust_DBV" ) 20 oDB:HidRDDs := {} 21ENDIF