关于XML的问题-CSDN论坛

⋅用PB10的过程中发现的一个奇怪的问题 ⋅关于XML的问题 ⋅vfp能否实现PB中datastore 的功能？ 更多帖子 关注私信空间博客 紫寒尺 本版专家分：5 结帖率 80%: 如题，我有从接口获得如下格式的一个XML字符串：
<?xml version="1.0" encoding="gb2312"?>
<function>
<function_id>InpDetailSeek</function_id>
<out_code>000</out_code><out_text>执行成功</out_text>
<data rowcount="3908" columns="9">
<row rownum="0">
<column colnum="0" colname="inpatientSn">208189</column>
<column colnum="1" colname="inpatientRxno">10216949</column>
<column colnum="2" colname="detailId">22322239</column>
<column colnum="3" colname="insureId">120400006</column>
<column colnum="4" colname="classNo">03</column>
<column colnum="5" colname="name">静脉输液（加收）</column>
<column colnum="6" colname="spec">无</column>
<column colnum="7" colname="unit">瓶</column>
<column colnum="8" colname="conf">其他</column>
<column colnum="9" colname="price">1</column>
<column colnum="10" colname="quantity">5</column>
<column colnum="11" colname="money">5</column>
<column colnum="12" colname="factMoney">5</column>
<column colnum="13" colname="useDate">2011-01-12</column>
<column colnum="14" colname="enableRation">1</column>
<column colnum="15" colname="enableMoney">5</column>
</row>
<row rownum="1">
<column colnum="0" colname="inpatientSn">208189</column>
<column colnum="1" colname="inpatientRxno">10216949</column>
<column colnum="2" colname="detailId">22322241</column>
<column colnum="3" colname="insureId">120400006</column>
<column colnum="4" colname="classNo">03</column>
<column colnum="5" colname="name">静脉输液（加收）</column>
<column colnum="6" colname="spec">无</column>
<column colnum="7" colname="unit">瓶</column>
<column colnum="8" colname="conf">其他</column>
<column colnum="9" colname="price">1</column>
<column colnum="10" colname="quantity">5</column>
<column colnum="11" colname="money">5</column>
<column colnum="12" colname="factMoney">5</column>
<column colnum="13" colname="useDate">2011-01-12</column>
<column colnum="14" colname="enableRation">1</column>
<column colnum="15" colname="enableMoney">5</column>
</row>
</data>
</function>

如何将data节点里的内容分列导入到VFP的临时表中？

0 2011-02-09 11:44:09

回复数 10 只看楼主引用举报楼主

⋅一个查询问题 ⋅asprise ocr 识别 ⋅C# 连数据库 更多帖子 关注私信空间博客 taohua300 本版专家分：5594: CLEAR
CREATE CURSOR temp (a1 c(20),a2 c(20),a3 c(20),a4 c(20),a5 c(20),a6 c(20),a7 c(20),a8 c(20),a9 c(20),;
a10 c(20),a11 c(20),a12 c(20),a13 c(20),a14 c(20),a15 c(20)) &&创建临时表(字段名我随意些的)
lcString = FILETOSTR("tt.txt")&&我把你贴出的内容放到了tt.txt文件中
lcDataString = SUBSTR(lcString,AT("<data ",lcString),AT("</data>",lcString) - AT("<data ",lcString))&&截取data内容

cTranString = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz<>/="' &&替换字符串，字段内容有英文时不能这样使用
DO WHILE AT("<row rownum=",lcDataString) != 0
lcRowString = SUBSTR(lcDataString,AT("<row rownum=",lcDataString),AT("</row>",lcDataString) - AT("<row rownum=",lcDataString))
lcValue = 'INSERT INTO temp (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15) VALUES ("'
FOR i = 1 TO 15 && 取值
lcValue = lcValue + CHRTRAN(SUBSTR(lcRowString,AT('colname="',lcRowString,i),AT("</column>",lcRowString,i) - AT('colname="',lcRowString,i)),cTranString,'') + '","'
NEXT
lcValue = SUBSTR(lcValue,1,LEN(lcValue) - 2) + ')'
&lcValue
lcDataString = SUBSTR(lcDataString,AT("</row>",lcDataString) + 6)
ENDDO
BROWSE

0 2011-02-09 14:17:55

只看TA 引用举报 #1 得分 10

⋅一个查询问题 ⋅asprise ocr 识别 ⋅C# 连数据库 更多帖子 关注私信空间博客 taohua300 本版专家分：5594

CLEAR 

CREATE CURSOR temp (a1 c(20),a2 c(20),a3 c(20),a4 c(20),a5 c(20),a6 c(20),a7 c(20),a8 c(20),a9 c(20),;

					a10 c(20),a11 c(20),a12 c(20),a13 c(20),a14 c(20),a15 c(20)) &&创建临时表(字段名我随意些的)

lcString = FILETOSTR("tt.txt")&&我把你贴出的内容放到了tt.txt文件中

lcDataString = SUBSTR(lcString,AT("<data ",lcString),AT("</data>",lcString) - AT("<data ",lcString))&&截取data内容



cTranString = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz<>/="' &&替换字符串，字段内容有英文时不能这样使用

DO WHILE AT("<row rownum=",lcDataString) != 0

	lcRowString = SUBSTR(lcDataString,AT("<row rownum=",lcDataString),AT("</row>",lcDataString) - AT("<row rownum=",lcDataString))

	lcValue = 'INSERT INTO temp (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15) VALUES ("'

	FOR i = 1 TO 15 && 取值

		lcValue = lcValue + CHRTRAN(SUBSTR(lcRowString,AT('colname="',lcRowString,i),AT("</column>",lcRowString,i) - AT('colname="',lcRowString,i)),cTranString,'') + '","'

	NEXT

	lcValue = SUBSTR(lcValue,1,LEN(lcValue) - 2) + ')'

	&lcValue

	lcDataString = SUBSTR(lcDataString,AT("</row>",lcDataString) + 6)

ENDDO

BROWSE

0 2011-02-09 14:18:18

只看TA 引用举报 #2 得分 10

⋅用PB10的过程中发现的一个奇怪的问题 ⋅关于XML的问题 ⋅vfp能否实现PB中datastore 的功能？ 更多帖子 关注私信空间博客 紫寒尺 本版专家分：5: 引用 1 楼 taohua300 的回复:
CLEAR
CREATE CURSOR temp (a1 c(20),a2 c(20),a3 c(20),a4 c(20),a5 c(20),a6 c(20),a7 c(20),a8 c(20),a9 c(20),;
a10 c(20),a11 c(20),a12 c(20),a13 c(20),a14 c(20),a15 c(20)) &&创建临时表(字段名我随意些的)
……

现在数据比较少，可能这样会比较快，如果是有几千几万条，如何保证效率呢？我写过累死的函数，来循环取数据，但是才几千条就要十几分钟，这样的效率太低了，不能满足我的要求。

0 2011-02-09 16:55:35

只看TA 引用举报 #3 得分 0

紫寒尺 本版专家分：5: 不好意思，上面打错字了，是“类似”，不是“累死”

0 2011-02-09 16:56:33

只看TA 引用举报 #4 得分 0

⋅一个查询问题 ⋅asprise ocr 识别 ⋅C# 连数据库 更多帖子 关注私信空间博客 taohua300 本版专家分：5594: 什么接口能一下传递这么多的数据？

0 2011-02-09 17:20:21

只看TA 引用举报 #5 得分 0

⋅一个查询问题 ⋅asprise ocr 识别 ⋅C# 连数据库 更多帖子 关注私信空间博客 taohua300 本版专家分：5594: 使用vfp的xmltocursor函数，前提是你要把原来的xml内容格式转成vfp特有的xml格式

另：上面的代码，使用Strextract函数来取字段内容的话，速度应该快点

0 2011-02-09 17:37:35

只看TA 引用举报 #6 得分 10

⋅用PB10的过程中发现的一个奇怪的问题 ⋅关于XML的问题 ⋅vfp能否实现PB中datastore 的功能？ 更多帖子 关注私信空间博客 紫寒尺 本版专家分：5: 引用 5 楼 taohua300 的回复:
什么接口能一下传递这么多的数据？

医院用的数据

0 2011-02-09 18:50:30

只看TA 引用举报 #7 得分 0

⋅用PB10的过程中发现的一个奇怪的问题 ⋅关于XML的问题 ⋅vfp能否实现PB中datastore 的功能？ 更多帖子 关注私信空间博客 紫寒尺 本版专家分：5: 引用 6 楼 taohua300 的回复:
使用vfp的xmltocursor函数，前提是你要把原来的xml内容格式转成vfp特有的xml格式

另：上面的代码，使用Strextract函数来取字段内容的话，速度应该快点

是的，我就是想要转换成vfp能够支持xml格式，但是我没找到效率高的办法

0 2011-02-09 19:05:30

只看TA 引用举报 #8 得分 0

⋅一个查询问题 ⋅asprise ocr 识别 ⋅C# 连数据库 更多帖子 关注私信空间博客 taohua300 本版专家分：5594

那就是用sql语句吧



***********goog.prg***********

FUNCTION goog

LPARAMETERS lcString

RETURN STREXTRACT(lcString,'"','"',3)

ENDFUNC



*********good.prg*************

FUNCTION good

LPARAMETERS lcString

RETURN SUBSTR(lcString,1,AT('</',lcString) - 1)

ENDFUNC

运行代码

SET DELETED ON 

CREATE CURSOR temp (goog c(100),good c(100))

APPEND FROM tt.txt DELIMITED WITH CHARACTER '>'

DELETE FROM gg WHERE good == 'InpDetailSeek</function_id' OR good == '000</out_code ' OR ALLTRIM(good) == ''

UPDATE gg SET goog = goog(goog),good = good(good)

*******下面是行转列的sql语句，我试着写了写没写出来

*******这个我不熟，看其他人写

0 2011-02-10 10:33:05

只看TA 引用举报 #9 得分 10

⋅一个查询问题 ⋅asprise ocr 识别 ⋅C# 连数据库 更多帖子 关注私信空间博客 taohua300 本版专家分：5594



SET DELETED ON 

CREATE CURSOR temp (goog c(100),good c(100))

APPEND FROM tt.txt DELIMITED WITH CHARACTER '>'

DELETE FROM temp WHERE good == 'InpDetailSeek</function_id' OR good == '000</out_code ' OR ALLTRIM(good) == ''

UPDATE temp SET goog = goog(goog),good = good(good)

*******下面是行转列的sql语句，我试着写了写没写出来

*******这个我不熟，看其他人写

0 2011-02-10 10:35:04

只看TA 引用举报 #10 得分 0

关于XML的问题 [问题点数：40分，结帖人zihanchi]