如何将文本文件导入dbf文件 - 编程论坛

#2

cxzbzgz2023-02-16 09:31

APPEND FROM 纪检 DELIMITED WITH TAB

#3

sdta2023-02-16 14:05

程序代码：

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编辑过]

#4

恒一2023-02-16 15:59

谢谢sdta版主指导

#5

sw39292023-02-18 07:56

在word里插入表格里文本转换表格，再复制到excel再转dbf

#6

schtg2023-02-18 13:09

回复 3楼 sdta

学习啦，谢谢！

#7

siruding2023-02-21 15:29

以下是引用sdta在2023-2-16 14:05:28的发言：

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

文本格式不规范，请楼主自行调整

这个完全看不懂啊，能加个注释就好了。