规则是必需有“我爱编程论坛aa”和“我爱编程论坛cc”
USE 新表
ZAP
cData = FILETOSTR("分类查询.csv")
nFaa = 0
nFcc = 0
nLines = ALINES(arrData, cData)
IF nLines > 0
FOR i=1 TO ALINES(arrFields, arrData[1], ",")
DO CASE
CASE arrFields[i]=="我爱编程论坛aa"
nFaa = i
CASE arrFields[i]=="我爱编程论坛cc"
nFcc = i
ENDCASE
ENDFOR
ENDIF
IF nFaa>0 AND nFcc>0
FOR i=2 TO nLines
nFields = ALINES(arrFields, arrData[i], ",")
IF nFields>=nFaa AND nFields>=nFcc
INSERT INTO 新表 VALUES (VAL(arrFields[nFaa]), VAL(arrFields[nFcc]))
ENDIF
ENDFOR
ENDIF
BROWSE