合南方与托普康全站仪测量数据文件处理

范建威

(defun c:sjcl()
(setq wjm (getfiled "选择 LISP 文件" "D:/" "" 8));;选择文本路径与文件文件名
(setq f (open wjm "r"));;打开文本
(setq lj (vl-filename-directory  wjm));;返回文本路径
(setq saaa(strcat lj "\\zdh1.dat"))
(setq ttt (open saaa "w"));;在路径下生成   zdh.dat 文本
    (setq dh (read-line f));;读取文本单行___"STN     A1        ,1.570,          "
    (while dh
        (setq sh (read-line f));"XYZ     400000.000,500000.000,20.000"
     (setq a1 (MJ:delim dh ","));("STN" "A1" ",1.570,")
     (setq a4 (MJ:delim (nth 0 a1) " "))
     (setq a2 (MJ:delim sh " "));("XYZ" "400000.000,500000.000,20.000")
     (setq a3 (MJ:delim (nth 1 a2) ","));("400000.000" "500000.000" "20.000")
        
        (setq txtdh (nth 1 a4));"A1"
        (setq txty (nth 0 a3));"400000.000"
        (setq txtx (nth 1 a3));"500000.000"
        (if (= (length a3) 3)
         (progn
          (setq txtz (nth 2 a3));"20.000"
             (setq txt (strcat txtdh "," txtdh "," txtY "," txtX "," txtZ));"A1,A1,400000.000,500000.000,20.000"
             (write-line txt ttt);写进文本
         )
  )
     (setq dh (read-line f));读取下一行
    )
    (close ttt);关闭文本
    (close f);关闭文本
    (princ)
)
;;;字符串函数
(defun MJ:delim (str delim / l1 l2)
  (setq str (vl-string->list str) delim (vl-string->list delim))
  (while str
    (if (not (member (car str) delim))
             (setq l1 (cons (car str) l1))
             (if l1 (setq l2 (cons (vl-list->string (reverse l1)) l2) l1 nil))
    )
    (setq str (cdr str))
  )
  (if l1 (setq l2 (cons (vl-list->string (reverse l1)) l2)))
  (reverse l2)
)

csharp

单字符的 delim. 可以看看 vl-string-translate 函数

范建威

谢谢你的教导！我到时试试！！

yhly555

虽然看不懂，还是要支持一下…

w379106181

下来试试 下来试试 下来试试 下来试试 下来试试 下来试试 下来试试 下来试试 下来试试 下来试试 下来试试 下来试试 下来试试