这句：DO WHILE SYS(2600,p,1) != 0h00
改成：DO WHILE !(SYS(2600,p,1) == 0h00)

用改后循环在一台xp上运行了30次，只遇到一次提取失败

在自己本本VM虚拟机上安装个xp，用改后循环运行100次，无失败
两台机的 set('exact') 默认设置均为 ON

[此贴子已经被作者于2025-10-22 18:40编辑过]

厉害，高手看问题透彻，原来与操作系统有关。

@csyx 谢谢！问题完美解决。

为了避免中英文逗号问题，可以考虑在alines函数中同时使用中英文的“，”
FOR i=1 TO ALINES(arr,tb.支出明细,5,",","，")
这样无论是中文的英文的都可以了。

简单测试一下：
cstr="1,2,3，5,6,7"
n=ALINES(atemp,cstr,5,",","，") &&前面一个逗号半角的，后面一个全角的。
?n &&得到n=6

感谢+抱歉，分数有限实在分不开，不少指点我的人没有得到分数，实在不好意思，多谢了！！！

@sam_jiang 这个方法好！

应该与XP关系不大。
可能是SYS(2600)抛出的异常，用指针操作要谨慎。

不清楚vfp调用API按“@字符串”作为字符串in/out参数的内部处理方法是怎样，每次调用“@字符串”后这个“字符串”的内存分配应该是变动的。

或者可以这样试试看还会不会出错：每次获取字符串指针都要重新定义字符串buffer
        buffer = REPLICATE(0h00,256)        
        p  = strcpy(@buffer, arr[i])

最好的方法应该是先分配一块堆内存块作为字符串buffer，这样得到的buffer指针是固定不变的。

执行 SYS(2600) 前也可以先调用相关api检测：
   IsBadCodePtr()
   IsBadReadPtr()
   IsBadWritePtr()
   IsBadStringPtrA()

学习了

原来原来如此，学习了