程序代码：

SET MEMOWIDTH TO 200
CREATE CURSOR tq (日期 C(10), 时间 C(5), 标题 C(100), 内容 M)
lcTxt = FILETOSTR("纪检.TXT")
lcTxt = STRTRAN(lcTxt, "】","】" + CHR(13) + CHR(10))
FOR ln1 = 1 TO OCCURS("收藏阅",lctxt)
    lcStr = STREXTRACT(lcTxt, "分享", "收藏阅", ln1)
    IF EMPTY(lcStr)
        LOOP 
    ENDIF 
    lc日期 = SUBSTR(MLINE(lcStr, 2), 1, 10)
    lc时间 = SUBSTR(MLINE(lcStr, 2), 12, 5)
    IF "】" $ lcStr
        lc标题 = "【" + STREXTRACT(lcStr, "【", "】") + "】"
    ELSE 
        lc标题 = "【" + "】"
    ENDIF 
    IF EMPTY(STREXTRACT(lcStr, "财联社"))
        lcw = LEFT(MLINE(lcStr, 3), 200)        
        lc内容 = lcw + STREXTRACT(lcStr, lcw)
    ELSE 
        lc内容 = "财联社" + STREXTRACT(lcStr, "财联社")
    ENDIF 
    INSERT INTO tq VALUES (lc日期, lc时间, lc标题, lc内容)
ENDFOR
BROWSE 

[此贴子已经被作者于2023-2-16 14:50编辑过]