如何使用PS生成Markdow或XML来表达CMD中tree命令所生成的结构 - PowerShell求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

Rank: 5 Rank: 5

帖子: 1013
积分: 1228
技术: 14
捐助: 0
注册时间: 2019-2-20

16楼 跳转到 »

发表于 2022-3-11 20:10 | 只看该作者

回复 15# went

我也说不明白, 您看一下上面 11楼的XML前面部分, 第一到第七行

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

went

少校

Rank: 6 Rank: 6

帖子: 848
积分: 1713
技术: 226
捐助: 0
注册时间: 2017-9-22

17楼

发表于 2022-3-11 20:21 | 只看该作者

回复 16# 5i365

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

cls

function Build-DirXml([System.IO.DirectoryInfo]$dir,$depth){
    #当前文件夹开始
    if($depth -eq 0 ){
        $str =  '<?xml version="1.0" encoding="UTF-8"?>' + "`r`n"
        $str += '<opml version="1.0" xmlns:sx="http://www.microsoft.com/schemas/rss/sse">' + "`r`n`t"
        $str += '<head>' + "`r`n`t`t" + ('<title>{0}</title>' -f $dir.Name) + "`r`n`t" + '</head>' + "`r`n`t" + "<body>"
        $end_str = '</body>' + "`r`n" + '</opml>'
        ++$depth
    } else {
        $str = '' ; $end_str = ''
        for($i = 0; $i -lt $depth; $i++) { $str += "`t" }
        $str += '<outline text="{0}">' -f $dir.Name
        $end_str = '<outline/>' + "`r`n"
    }
    #递归子文件夹
    $dirs = $dir.GetDirectories()
    $depth_tmp = $depth
    if($dirs.Count -gt 0){
        $sub_str = "`r`n" ; ++$depth_tmp
        $dirs | foreach { $sub_str += Build-DirXml -dir $_ -depth $depth_tmp }
    } else { $sub_str = ''}  
    #当前文件夹结束
    $str += $sub_str
    if($dirs.Count -gt 0){ for($i = 0; $i -lt $depth; $i++) { $str += "`t" } }
    #递归结束
    return $str + $end_str
}

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

1 评分人数

5i365: 太牛X了技术 + 1

Rank: 5 Rank: 5

帖子: 1013
积分: 1228
技术: 14
捐助: 0
注册时间: 2019-2-20

18楼

发表于 2022-3-11 22:33 | 只看该作者

本帖最后由 5i365 于 2022-3-12 12:23 编辑

回复 17# went

大侠太牛X了, 生成的文件和原文件一模一样! 貌似没有用到XML节点之类的函数,

想问一下, 从11楼的XML代码, 反向生成文件夹可以实现吗? 感觉这个反向操作应该要使用XML节点来操作了!

已开新贴 http://www.bathome.net/viewthrea ... mp;extra=#pid252574

Rank: 5 Rank: 5

帖子: 1013
积分: 1228
技术: 14
捐助: 0
注册时间: 2019-2-20

19楼

发表于 2022-3-13 07:40 | 只看该作者

本帖最后由 5i365 于 2022-3-13 09:07 编辑

回复 17# went

大侠好, 我想在除顶级文件夹外的所有文件夹的标签里添加上文件夹的相对路径, 可以在上面代码的基础上简单修改实现吗? 具体描述如下, 再次感谢

示例文件夹结构:
C:\USERS\ADMINISTRATOR\DESKTOP\顶级
└─一级1
└─二级1
      └─三级1
         ├─四级1
         │  ├─五级1
         │  │  └─六级1
         │  └─五级2
         └─四级2
_____________________________________________________________________________________________________________________________________
1.最底层的标签变化:
如果文件夹里没有子文件夹了, 以前的标签是一对, 现在变为只要左标签, 后面加 /
例如下面的: 四级2 五级2 六级1 的标签

<?xml version="1.0" encoding="UTF-8"?>
<opml version="1.0">
<head>
      <title>顶级</title>
</head>
<body>
      <outline text="顶级">
         <outline text="一级1">
            <outline text="二级1">
                  <outline text="三级1">
                     <outline text="四级1">
                        <outline text="五级1">
                              <outline text="六级1"/>
                        </outline>
                        <outline text="五级2"/>
                     </outline>
                     <outline text="四级2"/>
                  </outline>
            </outline>
         </outline>
      </outline>
</body>
</opml>

_____________________________________________________________________________________________________________________________________
2.在标签内添加注释文本和路径:

A.添加注释文本:【能否在代码前加个switch开关，设1时: 按下面情况添加; 设2时: 任何情况下都添加,但是添加的内容只有一个空字; 设3时, 功能关闭,不添加】
除顶级之外的其它所有级别的文件夹下, 如果存在txt文件【没有就不添加了】, 则获取里面的内容, 回车符替换为  
  , 引号"替换为  "   如果有多个txt文件则先把它们拼接在一起
例如为一级1文件夹添加的注释文本, 【文本用""括起来,文本前边添加note=】
note="我是顶级\一级1 文件夹下的txt文件中的内容
我是第二段"

B. 添加路径:【能否在代码前加个开关，开的时候就加，关的时候就不加了】
除顶级之外的其它所有级别的文件夹标签内,  添加上它所在的位置的路径
例如下面为一级1 文件夹添加的路径,  即:红色字部分为该文件夹相对顶级文件夹的位置, 【路径前面加上 type="link" url="file:,后面加"】
type="link" url="file:顶级/一级1"
_____________________________________________________________________________________________________________________________________
供测试的示例文件夹 https://send.cm/d/9PET
期待的最终效果:

<?xml version="1.0" encoding="UTF-8"?>
<opml version="1.0">
<head>
      <title>顶级</title>
</head>
<body>
      <outline text="顶级">
         <outline text="一级1" note="我是顶级\一级1 文件夹下的txt文件中的内容
我是第二段" type="link" url="file:顶级/一级1">
            <outline text="二级1" note="我是顶级\一级1\二级1 文件夹下的txt文件中的内容" type="link" url="file:顶级/一级1/二级1">
                  <outline text="三级1" note="我是顶级\一级1\二级1\三级1 文件夹下的txt文件中的内容" type="link" url="file:顶级/一级1/二级1/三级1">
                     <outline text="四级1" note="我是顶级\一级1\二级1\三级1\四级1 文件夹下的txt文件中的内容" type="link" url="file:顶级/一级1/二级1/三级1/四级1">
                        <outline text="五级1" note="我是顶级\一级1\二级1\三级1\四级1\五级1 文件夹下的txt文件中的内容" type="link" url="file:顶级/一级1/二级1/三级1/四级1/五级1">
                              <outline text="六级1" note="我是顶级\一级1\二级1\三级1\四级1\五级1\六级1 文件夹下的txt文件中的内容" type="link" url="file:顶级/一级1/二级1/三级1/四级1/五级1/六级1"/>
                        </outline>
                        <outline text="五级2" note="我是顶级\一级1\二级1\三级1\四级1\五级2 文件夹下的txt文件中的内容" type="link" url="file:顶级/一级1/二级1/三级1/四级1/五级2"/>
                     </outline>
                     <outline text="四级2" note="我是顶级\一级1\二级1\三级1\四级2 文件夹下的txt文件中的内容" type="link" url="file:顶级/一级1/二级1/三级1/四级2"/>
                  </outline>
            </outline>
         </outline>
      </outline>
</body>
</opml>
_____________________________________________________________________________________________________________________________________

Rank: 5 Rank: 5

帖子: 1013
积分: 1228
技术: 14
捐助: 0
注册时间: 2019-2-20

20楼

发表于 2022-3-14 15:33 | 只看该作者

本帖最后由 5i365 于 2022-3-14 21:57 编辑

回复 17# went

自己尝试搞了一下,  有两个问题实在搞不定: 期待路过的高手指点一下迷津, 非常感谢!
第 17 18 19 行
1 $url 变量值: 取到了整个路径, 还要删除顶级之前的路径
2 如何让body标签下面第一层也从  顶级  开始,即变成下面这样, 现在红字部分是  一级1
<opml version="1.0">
<head>
      <title>顶级</title>
</head>
<body>
      <outline text="顶级">

#@&cls&powershell "gc '%~0'|out-string|iex"&pause&exit
function Build-DirXml([System.IO.DirectoryInfo]$dir, $depth)
{
	#当前文件夹开始
	if ($depth -eq 0)
	{
		$str = '<?xml version="1.0" encoding="UTF-8"?>' + "`r`n"
		$str += '<opml version="1.0" xmlns:sx="http://www.microsoft.com/schemas/rss/sse">' + "`r`n`t"
		$str += '<head>' + "`r`n`t`t" + ('<title>{0}</title>' -f $dir.Name) + "`r`n`t" + '</head>' + "`r`n`t" + "<body>"
		$end_str = '</body>' + "`r`n" + '</opml>'
		++$depth
	}
	else
	{
		$str = ''; $end_str = ''
		for ($i = 0; $i -lt $depth; $i++) { $str += "`t" }
		$url = $dir.fullname
		$note = (gci "$url\*.txt" | ForEach { gc -enc UTF8 $_; "" }) -join '&#10;' -replace '"', '&quot;'
		$str += '<outline text="{0}" note="{1}" type="link" url="file:{2}">' -f $dir, $note, $url
		$end_str = '</outline>' + "`r`n"
	}
	#递归子文件夹
	$dirs = $dir.GetDirectories()
	$depth_tmp = $depth
	if ($dirs.Count -gt 0)
	{
		$sub_str = "`r`n"; ++$depth_tmp
		$dirs | foreach { $sub_str += Build-DirXml -dir $_ -depth $depth_tmp }
	}
	else { $sub_str = '' }
	#当前文件夹结束
	$str += $sub_str
	if ($dirs.Count -gt 0) { for ($i = 0; $i -lt $depth; $i++) { $str += "`t" } }
	#递归结束
	return $str + $end_str
}

Build-DirXml -dir (Get-Item '顶级') -depth 0 | Out-File 'ok.opml' -enc utf8
复制代码

Rank: 5 Rank: 5

帖子: 1013
积分: 1228
技术: 14
捐助: 0
注册时间: 2019-2-20

21楼

发表于 2022-3-14 22:14 | 只看该作者

回复 18# 5i365

上面的问题1 在输出前,用下面的方式搞定了, 感觉应该还有更简单的方法, 现在,只有问题2 没有搞定, 那个圈子转不过弯来

$d = Get-Item '顶级'
(Build-DirXml -dir $d -depth 0).replace($d,"顶级") | Out-File 'OK.opml' -enc utf8

Rank: 5 Rank: 5

帖子: 1013
积分: 1228
技术: 14
捐助: 0
注册时间: 2019-2-20

22楼

发表于 2022-3-15 06:49 | 只看该作者

回复 17# went

第二个问题也搞定了, 所有的问题, 全部搞定了!
将第10行按成下面的两行代码

$str += '<outline text="{0}">' -f $dir.Name
$end_str = '</outline>' + "`r`n" + '</body>' + "`r`n" + '</opml>'