数据的格式大致像上面的一样，就是有很多相同的一小块一小块
数据说明，
1,0      其中数据1要读到数据库中的TgtID字段
20004,0   其中数据2004读到数据库的layer字段
-2.432280,0.766335  这两个数据分别读取到数据库的X和Y字段
每一小块结束的标志为-666666.0,-666666.0
整个文件结束的标志为-999999,-999999

数据表的字段
X   Y   TgtID   layer
相关文件已上传
相关数据.zip (412.9 KB)

发帖时间 前天 16:17
      
风吹过b帅哥哟，在线，有人找我吗？

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等　级：版主
威　望：186
帖　子：4059
专家分：24971
注　册：2008-10-15
第 2 楼   得分:0        
定义四个变量，如 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