[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
went

Rank: 6Rank: 6

帖子
835 
积分
1677 
技术
219  
捐助
0  
注册时间
2017-9-22 
1楼 跳转到 »
发表于 2022-3-11 19:24 | 显示全部帖子
使用递归
  1. cls

  2. 

  3. function Build-DirXml([System.IO.DirectoryInfo]$dir,$depth){

  4.     #当前文件夹开始

  5.     $str = ''

  6.     for($i = 0; $i -lt $depth; $i++) { $str += "`t" }

  7.     $str += '<outline text="{0}">' -f $dir.Name

  8.     #递归子文件夹

  9.     $dirs = $dir.GetDirectories()

  10.     $depth_tmp = $depth

  11.     if($dirs.Count -gt 0){

  12.         $sub_str = "`r`n" ; ++$depth_tmp

  13.         $dirs | foreach { $sub_str += Build-DirXml -dir $_ -depth $depth_tmp }

  14.     } else { $sub_str = ''}  

  15.     #当前文件夹结束

  16.     $str += $sub_str

  17.     if($dirs.Count -gt 0){ for($i = 0; $i -lt $depth; $i++) { $str += "`t" } }

  18.     $str += '<outline/>' + "`r`n"

  19.     #递归结束

  20.     return $str

  21. }

  22. 

  23. Build-DirXml -dir (Get-Item '顶级') -depth 0
复制代码
1

评分人数

https://docs.qq.com/doc/DSVJ0d094Q1NtbGta

TOP

went

Rank: 6Rank: 6

帖子
835 
积分
1677 
技术
219  
捐助
0  
注册时间
2017-9-22 
2楼
发表于 2022-3-11 19:42 | 显示全部帖子
回复 14# 5i365


    啥意思,加上head,title,body?
https://docs.qq.com/doc/DSVJ0d094Q1NtbGta

TOP

went

Rank: 6Rank: 6

帖子
835 
积分
1677 
技术
219  
捐助
0  
注册时间
2017-9-22 
3楼
发表于 2022-3-11 20:21 | 显示全部帖子
回复 16# 5i365


    那就生成和上面一模一样的xml
  1. cls

  2. 

  3. function Build-DirXml([System.IO.DirectoryInfo]$dir,$depth){

  4.     #当前文件夹开始

  5.     if($depth -eq 0 ){

  6.         $str =  '<?xml version="1.0" encoding="UTF-8"?>' + "`r`n"

  7.         $str += '<opml version="1.0" xmlns:sx="http://www.microsoft.com/schemas/rss/sse">' + "`r`n`t"

  8.         $str += '<head>' + "`r`n`t`t" + ('<title>{0}</title>' -f $dir.Name) + "`r`n`t" + '</head>' + "`r`n`t" + "<body>"

  9.         $end_str = '</body>' + "`r`n" + '</opml>'

  10.         ++$depth

  11.     } else {

  12.         $str = '' ; $end_str = ''

  13.         for($i = 0; $i -lt $depth; $i++) { $str += "`t" }

  14.         $str += '<outline text="{0}">' -f $dir.Name

  15.         $end_str = '<outline/>' + "`r`n"

  16.     }

  17.     #递归子文件夹

  18.     $dirs = $dir.GetDirectories()

  19.     $depth_tmp = $depth

  20.     if($dirs.Count -gt 0){

  21.         $sub_str = "`r`n" ; ++$depth_tmp

  22.         $dirs | foreach { $sub_str += Build-DirXml -dir $_ -depth $depth_tmp }

  23.     } else { $sub_str = ''}  

  24.     #当前文件夹结束

  25.     $str += $sub_str

  26.     if($dirs.Count -gt 0){ for($i = 0; $i -lt $depth; $i++) { $str += "`t" } }

  27.     #递归结束

  28.     return $str + $end_str

  29. }

  30. 

  31. Build-DirXml -dir (Get-Item '顶级') -depth 0 | Out-File '0.xml'
复制代码
1

评分人数

https://docs.qq.com/doc/DSVJ0d094Q1NtbGta

TOP

返回列表