Dim i As Integer
Dim proc As Process()
 
'判断excel进程是否存在
If System.Diagnostics.Process.GetProcessesByName("excel").Length > 0 Then
    proc = Process.GetProcessesByName("excel")
    '取得名为excel进程个数，全部关闭
    For i=0 to proc.Length -1
        proc(i).Kill()
    Next
End If
proc = Nothing

定义四个变量，如 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                '置段标记
......................

数据的格式大致像上面的一样，就是有很多相同的一小块一小块
数据说明，
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)
......................

数据的格式大致像上面的一样，就是有很多相同的一小块一小块
数据说明，
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)
......................

scfa fjm ldvbdl vvm evj ovjbo  khrom wovbm lnfm bdfv elvb, mlk vm dl vfm kvb vofo mcvlsdm bomofm  olbmcvlbmgvbl lev mdlb mfd vmedvm  weolg msd;l gldsjbhdobj d vsmv b flf ogmfsdovjdflfvm sdlfewogjflvmlxcbero ijvdfkobjmdfoigjdgosjgoidfjbdfogfjwpgwjglsdbmslfafglsabjsdlgjoiejgei