定义四个变量，如 DX,XY,TgtID,Layer
定义临时变量 S ，临时数组 A（）

do
s＝读一行
if instr(s,",")>1 then         '忽略空行
  a=split(s,",")                '分解为二段
  if a(1)=0 then         '为tgtid 或 layer 或尾
     if a(0)>????  then  'Layer的最小值-1 ，或者可能的 TgtID 最大值
         layer=a(0)            '取 Layer
     elseif a(0)=-666666.0  then     '段结束
         layer=0                '置段标记
         tgtid=0
     elseif a(0)=-999999 then    '文件结束
         退出循环标志＝1        
     end if
  else                '不属于以上三种情况，置X，Y
    DX=a(0)
    DY=a(1)
  end if
  if 退出循环标志 =1 then exit do
    if layer>0 and tatid>0 then 
       sql="INSERT INTO 表名 (X, y,TgtID,layer) VALUES (" & dx & "," & dy & "," & TgtID & "," & layer & ");"
       数据连接执行SQL命令
    end if
end if
loop