[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
递归学会了来试试
  1. $a=$xmldata.SelectNodes("opml/body").item(0)
  2. function md4xml(){
  3. $args[0].ChildNodes|%{
  4.   $p+='\'+$_.text
  5.   mkdir ".$p"
  6.   md4xml $_
  7.   rv p
  8. }
  9. }
  10. md4xml $a
复制代码

TOP

回复 4# 5i365

也不知道为什么要函数里套函数
  1. function md4xml(){
  2. $args[0].ChildNodes|%{
  3. if($_.title -eq $null){
  4.   $p+='\'+$_.text
  5.   if(!(test-path ".$pp$p")){mkdir ".$pp$p"}
  6.   md4xml $_
  7.   rv p
  8. }else{
  9. $pp='\'+$_.title
  10. if(!(test-path ".$pp")){mkdir ".$pp"}
  11. }
  12. }
  13. }
  14. md4xml $xmldata.ChildNodes.Item(1)
复制代码
1

评分人数

    • 5i365: 乐于分享, 技术牛X技术 + 1

TOP

回复 8# 5i365


    移过来移过去,往哪移?

TOP

本帖最后由 idwma 于 2022-3-13 20:23 编辑

回复 11# 5i365
  1. function md4xml(){
  2. $args[0].ChildNodes|%{
  3. if($_.title -eq $null){
  4.   $p+='\'+$_.text
  5.   if(!(test-path ".$pp$p")){
  6. $a=dir -rec -inc $p.Split('\')[-1] ".$pp"
  7. if($a.count -gt 1){
  8. $a|%{"{0} {1}" -f $j++,$_.fullname}
  9. "-> .$pp$p"
  10. [int]$i=read-host
  11. if($i -match '\d'){move $a[$i].fullname ".$pp$p\.."; ac log.txt $("{0} -> {1}" -f $a[$i].fullname,".$pp$p")}
  12. rv i,j
  13. }elseif($a -ne $null){move $a.fullname ".$pp$p\.."; ac log.txt $("{0} -> {1}" -f $a.fullname,".$pp$p")}else{mkdir ".$pp$p"}
  14. }
  15.   md4xml $_
  16.   rv p
  17. }else{
  18. $pp='\'+$_.title
  19. if(!(test-path ".$pp")){mkdir ".$pp"}
  20. }
  21. }
  22. }
  23. md4xml $xmldata.ChildNodes.Item(1)
复制代码

TOP

回复 14# 5i365


    这里面子文件名不都是一样的吗?一样不就只保留一个了吗?

TOP

返回列表