怎样查找表内用逗号分隔的数据

许锦华_gHav7 · 发表于 2018-6-23 11:54:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有如下一个表，每列数据都是用逗号隔开的，没有内容则为空。
(("JS1,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,") ("JS2,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,"))

例如我想查找js1所在的表，并返回指定第N列数据（每行数据用逗号分开）
查找JS1所在表的第二列数据返回镀锌管

谢谢啊
[sell=10][/sell]

dnbcgrass · 发表于 2018-6-23 14:42:48

(setq sjlb '(("JS100,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
            ("JS200,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
      ("JS1,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
            ("JS2,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
      ("JS111,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
         )
)
(setq cxjg (caar (vl-remove-if '(lambda(x)(/= (substr (car x) 1 4) "JS1,")) sjlb)))
(setq jglb (mapcar '(lambda(x)(vl-princ-to-string x))
      (read (strcat "(" (vl-string-translate "," " "  cxjg) ")"))
      )
)

marting · 发表于 2018-6-23 16:20:12

(setq sjlb '(("JS100,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
            ("JS200,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
            ("JS1,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
            ("JS2,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
            ("JS111,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
         )
)

(mapcar '(lambda(x)(xd::string:regexps "[^,]+" (car x) "")) sjlb)

((("JS100" "镀锌管" "100" "非普查" "2666118.11" "400678.43" "95.39" "95.14" "0.25" "直埋") ("JS200" "镀锌管" "100" "非普查" "2666118.11" "400678.43" "95.39" "95.14" "0.25" "直埋") ("JS1" "镀锌管" "100" "非普查" "2666118.11" "400678.43" "95.39" "95.14" "0.25" "直埋") ("JS2" "镀锌管" "100" "非普查" "2666118.11" "400678.43" "95.39" "95.14" "0.25" "直埋") ("JS111" "镀锌管" "100" "非普查" "2666118.11" "400678.43" "95.39" "95.14" "0.25" "直埋"))

yangjian001 · 发表于 2018-6-24 07:16:20

做一个热心并受欢迎的人！

dnbcgrass · 发表于 2018-6-24 10:13:22

(setq sjlb '(("JS100,无缝钢管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
            ("JS200,无缝钢管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
            ("JS1,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
            ("JS2,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
            ("JS111,无缝钢管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
         )
)
(setq Regexp (vlax-create-object "vbscript.regexp"))
(vlax-put-property Regexp "Global" 1)
(vlax-put-property Regexp "Pattern"  "([^,]+)")
(setq cxjg (mapcar '(lambda(X)
         (setq Z nil)
                     (vlax-for Y (vlax-invoke Regexp "Execute" (car X))
               (setq Z (cons (vla-get-Value Y) Z))
         )
         (reverse Z)
      )
      sjlb
   )
)
(vlax-release-object Regexp)
(nth 1 (assoc "JS1" cxjg))

许锦华_gHav7 · 发表于 2018-6-24 17:39:34

太感谢你了！！！强。。。

许锦华_gHav7 · 发表于 2018-6-24 17:40:57

dnbcgrass 发表于 2018-6-23 14:42
(setq sjlb '(("JS100,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
...

感谢！！！想了好久

许锦华_gHav7 · 发表于 2018-6-24 17:44:37

marting 发表于 2018-6-23 16:20
(setq sjlb '(("JS100,镀锌管,100,,非普查,2666118.11,400678.43,95.39,95.14,0.25,,,,,直埋,,")
...

谢谢你！！！

kqqt6236 · 发表于 2018-6-25 00:03:11

求助还设权限？

许锦华_gHav7 · 发表于 2018-6-25 21:28:49

kqqt6236 发表于 2018-6-25 00:03
求助还设权限？

不会用，我还以为是设置奖励。。。不好意思

账号		自动登录	找回密码
密码			立即注册

[求助] 怎样查找表内用逗号分隔的数据

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。