如何分割FoxPro记录？

Question

我在 FoxPro 的 dbf 文件中有 60,000 条记录。我想将其分成每 20,000 条记录 (20000 * 3 = 60,000)。

我怎样才能实现这个目标？

我是 FoxPro 的新手。我使用的是 Visual FoxPro 5.0。

提前致谢。

Answer 1

如果您不关心记录如何分割，托德的建议将会起作用。如果您想根据内容对它们进行划分，您需要执行 Stuart 的第一个建议，尽管他的确切答案仅在记录 ID 按顺序从 1 到 60,000 运行时才有效。

这里的最终目标是什么？为什么要分桌子？

添马舰

Answer 2

你可以直接从第一个表中选择：

SELECT * from MyBigTable INTO TABLE SmallTable1 WHERE ID < 20000
SELECT * from MyBigTable INTO TABLE SmallTable2 WHERE ID BETWEEN (20000, 39999)
SELECT * from MyBigTable INTO TABLE SmallTable3 WHERE ID > 39999

但是，如果你想要更多的控制，或者你需要操作数据，你可以使用xbase代码，像这样：

SELECT MyBigTable

scan
    scatter name oRecord memo

    if oRecord.Id < 20000
        select SmallTable1
        append blank
        gather name oRecord memo
    else if oRecord.Id < 40000
        select SmallTable2
        append blank
        gather name oRecord memo
    else 
        select SmallTable3
        append blank
        gather name oRecord memo
endscan 

自从我使用VFP以来已经有一段时间了，我没有它在这里，对任何语法错误表示歉意。

Answer 3

use in 0 YourTable
select YourTable
go top
copy to NewTable1 next 20000
copy to NewTable2 next 20000
copy to NewTable3 next 20000

Answer 4

如果您想根据记录数进行拆分，请尝试以下操作：

SELECT * FROM table INTO TABLE tbl1 WHERE RECNO() <= 20000
SELECT * FROM table INTO TABLE tbl2 WHERE BETWEEN(RECNO(), 20001, 40000)
SELECT * FROM table INTO TABLE tbl3 WHERE RECNO() > 40000

Answer 5

使用COPY 命令时必须发出SKIP 命令以确保开始下一条记录。

USE MyTable
GO TOP
COPY NEXT 20000 TO NewTable1
SKIP 1
COPY NEXT 20000 TO NewTable2
SKIP 1
COPY NEXT 20000 TO NewTable3