如何在VFP6.0里将.dbf数据转化为XML数据？急！！！

[hela]

现在有一个问题：我想把.dbf的数据文件转化为XML格式的文件供CB5来调用，另外还要把CB5通过ADO产生的XML格式的文件转化为.dbf格式的文件供VFP6来调用读取，请问应该如何实现？

[hela]

我知道在VFP7上有CursorToXML可以用，但我现在用的是VFP6.0啊，难道非要升级到VFP7才行吗？
在VFP6中不能实现吗？郁闷...

[tangmins]

使用cursortoxml轉出就可以了。

[tangmins]

CursorToXML("LABELS", "myXMLFile.xml", 1, 512, 0, "1")

[qufusongyu]

请用vfp7.0以上，7.0以上就有这个功能。

[hela]

谢谢 zhongyj ! 可以了：）
顺便再问一下，为什么在VFP7中用CursorToXML生成的文件和CB5通过ADO自动生成的XML文件格式不一样？若双方想通信，一定要先相互约定格式吗？要是这样，企不是太不方便了？

[zhongyj]

*alias1是已經打開表的別名,c:\temp.xml是輸出文件可修改
=cursortoxml("alias1","c:\temp.xml")
function cursortoxml
parameters alias1,outputfile
local string1

select (alias1)
=afield(fa1)
length1 =alen(fa1,1)
fhandle1=fcreate(outputfile)
=fput(fhandle1,'<?xml version = "1.0" encoding="Windows-1252" standalone="yes"?>')
=fput(fhandle1,"<VFPData>")
scan
string1=chr(9)+"<"+alias1+">"
=fput(fhandle1,string1)
for i=1 to length1

string1=chr(9)+chr(9)+"<"+fa1[i,1]+">"+alltrim(trans(eval(fa1[i,1])))+"</"+fa1[i,1]+">"
=fput(fhandle1,string1)
endfor
string1=chr(9)+"</"+alias1+">"
=fput(fhandle1,string1)
Endscan
=fput(fhandle1,"</VFPData>")
=fclose(fhandle1)

[zhongyj]

你看看VFP7中CursorToXML函數的幫助,它第四個參數可以指定产生 XML 的模式类型