请选择 进入手机版 | 继续访问电脑版

唐康林NX二次开发论坛

 找回密码
 立即注册
搜索
热搜: nxopen ufun
查看: 169|回复: 0

[技术分享] 利用KF创建多级目录的方法!

[复制链接]

1

主题

3

帖子

60

积分

初中生

Rank: 2

积分
60
发表于 2017-11-18 21:24:56 | 显示全部楼层 |阅读模式
  1. (Any) b: "d:\ns\N77";
  2. (Any) b1: SplitString(b:,"\");
  3. (Any) cyc: loop
  4. {
  5.         for $a from 0 to length(b1:)-1;           
  6.         for $b is  $a +1;

  7.         if  b1:!= {}  append  {nth($b,b1:)+""};
  8.                        
  9. };

  10. (Any) a: loop
  11. {
  12.         for $a from 0 to length(cyc:)-1;           
  13.         for $b is  $a +1;
  14.         for $m is
  15.         loop
  16.                 {
  17.                         for $c from 0 to $b-1;           
  18.                         for $d is  $c +1;
  19.                         if  b1:!= {}  append  {nth($d,cyc:)};
  20.                  };
  21.         collect   $m;
  22. };

  23. (Any) list_to_string: loop
  24. {
  25.         for $a from 1 to length(a:)-1;           
  26.         for $b is  $a +1;
  27.         append {mqc_list_to_string(nth($b,a:),"\")};
  28. };

  29. (Any) createDir: loop
  30.   {
  31.         for $a from 0 to length(list_to_string:)-1;           
  32.         for $b is  $a +1;
  33.         for $m is  $a +1;
  34.         do mqc_createDirectory(nth($b,list_to_string:));
  35. };
  36. (any) msg: if createDir:!=0 then ug_printMessage ({"归途提示   :"+"~n"+"   你所创目录的已存或格式有误"}) else nulldesign;
  37. (List) demandValue: {msg:};
复制代码

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋| ( 蜀ICP备16014681号

GMT+8, 2018-2-25 11:35 , Processed in 0.081893 second(s), 25 queries .

Powered by www.nxopen.cn

© 2001-2013 nxopen.cn

快速回复 返回顶部 返回列表