读取TXT文件的skill脚本

ganete · 发表于 2025-3-14 15:59:43

小弟是初学者，希望从文本文件中，读取大量坐标和label数据，具体如下，然后用dbcreatelabel命令添加label。请问从文本文件中读取数据的skill脚本如何实现

label0 x0 y0 layer sublayer
label1 x1 y1 layer sublayer
。
。
。
。

着着着火了 · 发表于 2025-3-14 15:59:44

本帖最后由着着着火了于 2025-3-14 17:00 编辑

inPort=infile("fileName")
when(inPort
while(gets(nextLine inPort)
      labels=parseString(nextLine)
      label=nth(0 labels)
      x=nth(1 labels)
      y=nth(2 labels)
      layer=nth(3 labels)
      sublayer=nth(4 labels)
      ......
      dbCreateLabel(...)
      ......
);end while
close(inPort)
);end when

更优写法：
labelsList=tconc(nil nil)
inPort=infile("fileName")
when(inPort
while(gets(nextLine inPort)
      tconc(labelsList nextLine)
);end while
close(inPort)
);end when

unless(cadr(labelsList)
labelsList=cdar(labelsList)
foreach(labels labelsList
      labels=parseString(labels)
      label=nth(0 labels)
      x=nth(1 labels)
      y=nth(2 labels)
      layer=nth(3 labels)
      sublayer=nth(4 labels)
      ......
      dbCreateLabel(...)
      ......
);end foreach
);end unless