Question

NetcdfFile读取值怎么不读data数据

Answer 1

;lisp中读取1行数据，怎么读取这行数据的资料例如M10.40.122-6(setqdat-file(getfiled"圆柱销类型""F:/CAD/test11""txt"2))(setqff(opendat-file"r"))(setqjgbnil);先将文件中所有以"M"开头的行读取并保存到表jgb中(while(setqdata(read-lineff))(if(wcmatchdata"M#*")(setqjgb(consdatajgb))))(closeff);将文件关闭(setqjgb(reversejgb))(ifjgb;如果表jgb中有数据;则输入圆柱销规格进行查询(while(setqgg(getstring(strcat"\n请选择圆柱销规格"data":")))(setqzbbjgb)(setqfhznil)(while(=fhznil)(setqzb(carzbb))(setqzbb(cdrzbb));如果表中某项与圆柱销规格字符串+"*"相匹配(if(wcmatchzb(strcatgg"*"));则将赋值给fhz，并结束循环(setqfhzzb)));如果查询到符合要求数据(iffhz;则显示查询到的结果(princ(strcat"\n查询到符合要求的结果为："fhz));否则显示(princ"\n你选择的圆柱销规格在文件中不存在!"))))