strtofile

FILETOSTR极限应该是<16M，但16M对FILETOSTR来说也是“秒杀”。
2.79M就有2925527个字节，每16字节一条记录就有182845条记录多点，循环写182845条记录也就1、2秒。
问题在 SUBSTR(cs,i,16)，SUBSTR不适合用来处理较大的字符串。就算每次都是SUBSTR(cs,1,16)也一样，VFP有可能每次都用副本来搜寻，慢在处理副本，否则不可能会那么差劲。

对文件大小不确定，要用低级文件函数来处理。3M左右耗时3、4秒，还可以接受。

CREATE CURSOR tt (字节偏移 c(8),f0 c(2),f1 c(2),f2 c(2),f3 c(2),f4 c(2),f5 c(2),f6 c(2),f7 c(2),;
                                f8 c(2),f9 c(2),fa c(2),fb c(2),fc c(2),fd c(2),fe c(2),ff c(2))
fn = GETFILE()
IF !FILE(fn)
    RETURN 
ENDIF
fp = FOPEN(fn)
i = 0
DO WHILE ALINES(arr,RIGHT(TRANSFORM(i,"@0"),8)+TRANSFORM(STRCONV(FREAD(fp,16),15),"@R "+REPLICATE(" ##",16)),15,0h20) > 1
    INSERT INTO tt FROM ARRAY arr
    i = i + 16
ENDDO
FCLOSE(fp)
SELECT * FROM tt

试试用指针来处理大字符串

DECLARE long _strdup IN msvcrt as apiStrdup string
DECLARE long free    IN msvcrt as apiFree   long

CREATE CURSOR tt (字节偏移 c(8),f0 c(2),f1 c(2),f2 c(2),f3 c(2),f4 c(2),f5 c(2),f6 c(2),f7 c(2),;
                                f8 c(2),f9 c(2),fa c(2),fb c(2),fc c(2),fd c(2),fe c(2),ff c(2))
fn = GETFILE()
IF !FILE(fn)
    RETURN 
ENDIF
cs = FILETOSTR(fn)
ps = apiStrdup(cs)
p  = ps
n  = LEN(cs)
m  = 0
DO WHILE m < n
    ALINES(arr,RIGHT(TRANSFORM(m,"@0"),8)+TRANSFORM(STRCONV(SYS(2600,p,IIF((n-m)<16,n-m,16)),15),"@R "+REPLICATE(" ##",16)),15,0h20)
    INSERT INTO tt FROM ARRAY arr
    p = p + 16
    m = m + 16
ENDDO
apiFree(ps)
SELECT * FROM tt

学习啦，谢谢！

WIN10系统，是不是缺少了什么

多大的文件？
随便建个小文件试试

大小200KB出错。130KB左右的就正常

改用 malloc 试试

DECLARE long malloc IN msvcrt as apiMalloc long
DECLARE long free   IN msvcrt as apiFree   long

CREATE CURSOR tt (字节偏移 c(8),f0 c(2),f1 c(2),f2 c(2),f3 c(2),f4 c(2),f5 c(2),f6 c(2),f7 c(2),;
                                f8 c(2),f9 c(2),fa c(2),fb c(2),fc c(2),fd c(2),fe c(2),ff c(2))
fn = GETFILE()
IF !FILE(fn)
    RETURN 
ENDIF
cs = FILETOSTR(fn)
n  = LEN(cs)
ps = apiMalloc(n)
IF ps == 0
    ? "分配内存失败"
    RETURN 
ENDIF
p = ps
SYS(2600,p,n,cs)
m = 0
DO WHILE m < n
    ALINES(arr,RIGHT(TRANSFORM(m,"@0"),8)+TRANSFORM(STRCONV(SYS(2600,p,IIF((n-m)<16,n-m,16)),15),"@R "+REPLICATE(" ##",16)),15,0h20)
    INSERT INTO tt FROM ARRAY arr
    p = p + 16
    m = m + 16
ENDDO
apiFree(ps)
SELECT * FROM tt

这个可以，20MB大小 10秒左右可以完成

斑主功力深不可测!