关于从坐标文件提取坐标的问题

lisp_beginner

工作中很多文本格式的坐标文件，内容比如：

1 2437.2127 795.4979
2 3052.9582 1147.8479
3 3430.0005 659.9787
4 3237.4106 218.186
5 2835.9554 182.951
6 2692.191 288.656
7 2315.1487 131.4537
8 2269.0356 334.7325
9 2138.8339 627.4541
10 2152.3966 987.9352
11 2437.2127 795.4979

想要得到坐标字符串表，X,Y中间用逗号连接

("2437.2127,795.4979" "3052.9582,1147.8479" ............)

marting

通用LISP函数库有现成的函数

命令: (setq a (xd::list:fromfile "d:\\11.txt"))
("1 2437.2127 795.4979" "2 3052.9582 1147.8479" "3 3430.0005 659.9787" "4
3237.4106 218.186" "5 2835.9554 182.951" "6 2692.191 288.656" "7 2315.1487
131.4537" "8 2269.0356 334.7325" "9 2138.8339 627.4541" "10 2152.3966 987.9352"
"11 2437.2127 795.4979")

[JavaScript] 纯文本查看 复制代码

(mapcar '(lambda (x)
             (xd::string:regexpr
               "[^\\s\\,]+[\\s\\,]+([^\\s\\,]+)[\\s\\,]+([^\\s\\,]+).*"
               x
               "$1,$2"
               ""
             )
           )
          a
  )

("2437.2127,795.4979" "3052.9582,1147.8479" "3430.0005,659.9787"
"3237.4106,218.186" "2835.9554,182.951" "2692.191,288.656" "2315.1487,131.4537"
"2269.0356,334.7325" "2138.8339,627.4541" "2152.3966,987.9352"
"2437.2127,795.4979")


上面代码可以处理文本文件里面分隔符可以是 空格 ，\t 制表符, 和 逗号三种。

xd::string:regexpr 换成 API函数 xdrx_string_regexpr 也行

[JavaScript] 纯文本查看 复制代码

(mapcar '(lambda (x)
             (xdrx_string_regexpr
               "[^\\s\\,]+[\\s\\,]+([^\\s\\,]+)[\\s\\,]+([^\\s\\,]+).*"
               x
               "$1,$2"
             )
           )
          a
  )

几乎所有的字符串处理方面的都可以用正则表达式找到解决方案。
通用函数库两个函数：xd::string:regexps, xd::string:regexpr