吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 1084|回复: 3
收起左侧

[其他原创] PowerShell脚本 实现读取当前文件夹下的txt文件(多行)每行数据使用enter为分隔符...

[复制链接]
fuxingjun674 发表于 2023-5-27 22:13
使用PowerShell代码 实现读取当前文件夹下的txt文件(多行)每行数据使用Enter为分隔符,以每个文件名写到excel 表格中
[PowerShell] 纯文本查看 复制代码
# 加载Excel COM对象
$excel = New-Object -ComObject Excel.Application

# 读取当前文件夹下所有txt文件
$txtFiles = Get-ChildItem -Path . -Filter "*.txt"

# 循环处理每个txt文件
foreach ($txtFile in $txtFiles) {
    # 读取txt文件并创建Excel工作簿和工作表
    $workbook = $excel.Workbooks.Add()
    $worksheet = $workbook.Worksheets.Item(1)

    # 读取txt文件内容
    $rows = Get-Content $txtFile.FullName | ForEach-Object { $_ -split "`n" } # 每行数据使用enter分隔符

    # 将数据写入Excel工作表
    $i = 1
    foreach ($row in $rows) {
        $cols = $row -split ":" # 每列数据使用冒号分隔符
        $j = 1
        foreach ($col in $cols) {
            $worksheet.Cells.Item($i, $j).Value2 = $col
            $j++
        }
        $i++
    }

    # 保存Excel文件,并关闭工作簿
    $excelPath = Join-Path -Path $txtFile.DirectoryName -ChildPath "$($txtFile.BaseName).xlsx"
    $workbook.SaveAs($excelPath)
    $workbook.Close()
}

# 关闭Excel应用程序
$excel.Quit()



免费评分

参与人数 1吾爱币 +7 热心值 +1 收起 理由
苏紫方璇 + 7 + 1 欢迎分析讨论交流,吾爱破解论坛有你更精彩!

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

头像被屏蔽
tl;dr 发表于 2023-5-28 09:23
提示: 作者被禁止或删除 内容自动屏蔽
dommy 发表于 2023-5-28 10:38

晕,自己糊涂了

本帖最后由 dommy 于 2023-5-28 13:37 编辑

为何我输出的是上面的源码呢?
Yang|阳 发表于 2023-5-28 12:53
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则 警告:本版块禁止灌水或回复与主题无关内容,违者重罚!

快速回复 收藏帖子 返回列表 搜索

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-5-14 17:57

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

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