🚀 go-pugleaf

�� �� luckywlj (��������) �Ĵ������ᵽ: ��
: �ļ�newsa.dbf��newsb.dbf������ͬ�Ľṹ�����ֶ��У�newsp(������ƣ��ַ���),price�����ۣ���ֵ�ͣ���newsa��newsp�Ͻ��������ļ�newsa.idx��newsb��newsp�Ͻ��������ļ�newsb.idx����������Ĺ����ǣ�������newsa.dbf���ֵ�����newsb.dbf�г��ֵı�����ơ�
: set talk off
: seletc b
: use newsb alias new index newsb
: select a
: use newsa alias old index newsa
: do while .not. eof("old") .or. .not. eof("new")
:         do case
:                 case eof("new") .or. .not. eof("old") .and. newsp<new->newsp
                                                                   ~����������������ʲô��˼, ��һ��newspĬ�ϵ���case������ŵ��Ǹ�?���������?
�ܲ鵽��صĶ�����?


:                         ?newsp
:                         skip old
:                 case eof("old") .or. .not. eof("new") .and. newsp>new->newsp
:                         skip in new
:                 other
:                         ship
:                         skip in new
:         endcase
: enddo
: clear all
: return
: �һ���û��Ū������θ�ݽ����������ļ��е��������Ƚϴ�С��Ҳ���� newsp<new->newsp��newsp>new->newsp����֪��Ӧ����ô��⣬��֪��˭�������һ�¡�^_^ 


--

�� ��Դ:��BBS_����˼��վ lzusiyu.org��[FROM: 202.201.13.*]