VFP9.0 SP2 汉化版 9.0.0.7423 下载地址：https://down.bccn.net/3112.html

我是安装VFP9.0 SP2 汉化版 9.0.0.7423

还有什么问题吗

vfp9  帮试 看图

那就放在文本文件中，由文本文件转换为字符串，再提取吧

加分行符[;]就不会出现这样的问题了

[ 本帖最后由 sdta 于 2013-1-21 21:42 编辑 ]

加分行符[;]出现提示“缺少操作数”

sdta:
麻烦你，你把它变成.prg，发给我是否可以？

【名称】
    STREXTRACT()函数
【类别】
    函数
【描述】
    返回两个分隔符之间的字符串。
【原形】
    STREXTRACT(cSearchExpression, cBeginDelim [,cEndDelim [, nOccurrence[, nFlag]]]])
【参数】
    cSearchExpression
    指定搜索的字符串。
    cBeginDelim
    指定字符串开始分隔的符号。
    cEndDelim
    指定字符串结束分隔的符号。
    nOccurrence
    指定cBeginDelim在cSearchExpression开始提取的位置。
    nFlag
    指定在搜索上放置的控制类型。
【返回值】
    字符型
【示例】
    clear
    USE customer && any table
    ?cursortoxml(0,"x",1,0,2)
    ?x
    xmlproc(x,0)
   
    PROCEDURE xmlproc(x as String, nLev as Integer) as void
    LOCAL cTagName, cContents, mterm
    do while .t.
    cTagName = STREXTRACT(x,"<",">")
    IF LEN(cTagName) = 0
    ??' ',x
    exit
    endif
    IF RIGHT(cTagName,1) = '/'
    cTagName = LEFT(cTagName, LEN(cTagName)-1)
    cContents=""
    mterm = "<"+cTagName+"/>"
    else
    mterm = ""
    cContents = STREXTRACT(x,"<"+cTagName+">", mterm,1,2)
    endif
    ?REPLICATE(" ",nLev),nLev+1,PADR(cTagName,20)
    xmlproc(cContents, nLev+1)
    x = STREXTRACT(x, mterm)
    enddo

sdta:
我把网页内容变成.txt文件后，B2的内容少了第4次出现的内容，不知何故？3041,2475,9927
附上文本文件与代码，请帮一下指点

[ 本帖最后由 sylknb 于 2013-1-22 10:33 编辑 ]

文本复制问题，重新上传文本文件