newswan

如果列内字符串中空格不超过1个

 (Get-Content -Encoding utf8 $_ | Select-String -Pattern '^\s+\d') -replace "\s{2,}",","
复制代码

newswan

第四列为空，文件中有乱码

   9    0.252   m?                                           Baseplate                               Concrete       630.000 300x300x200mm                 
复制代码

newswan

有乱码，还有空列

   1    11.3448 m     HW-Beam                                 HW100X100                               St37-1         187.379                               
   2    14      Pcs   A-Plate 16401                           A-Pl16401 200x200x10                    St37-1          43.960                               
   3    1       Pcs   C-Plate 12401                           C-Pl12401_1 240x210x10                  St37-1           3.956                               
   4    4       Pcs   Tr鋑erklemme                            HCS TK                                  St37-1           1.732                               
   5    4       Pcs   Hexagon head bolt                       ISO 4014 - M12x40                       8.8 St           0.256                               
   6    4       Pcs   Hexagon nut                             ISO 4032 - M12                          8.8 St           0.100                               
   7    8       Pcs   Washer                                  ISO 7090-12                             8.8 St           0.048                               
   8    56      Pcs   Duty anchor + HIT-HY150                 HAS M16x125/38                          5.6 St           7.000                               
   9    0.252   m?                                           Baseplate                               Concrete       630.000 300x300x200mm                 
复制代码

newswan

如果例外情况不多，可以一个一个处理

 Get-Item *.txt | ForEach-Object { (Get-Content $_) -match "\s{3}\d+\s" -replace "^\s+(\d+)\s+([\d.]+)\s+",($_.BaseName + ",`$1,`$2,") -replace "\s{2,}","," -replace "(?=Baseplate)","," } | Out-File list
复制代码

newswan

回复 30# jave000


csv 要求，如果有空格，必须用""

newswan

Get-Item *.txt | ForEach-Object {
    (Get-Content $_) -match "\s{3}\d+\s" `
        -replace "^\s+(\d+)\s+([\d.]+)\s+",($_.BaseName + ",`$1,`$2,") `
        -replace "\s+$","" `
        -replace "\s{2,}","," `
        -replace "(?=Baseplate)","," `
} | Out-File list
复制代码

newswan

回复 35# qixiaobin0715


看了一下，好像空格不必 ""

newswan

现在没有 office 不好测试，csv 的规范 有些不一致
ms office 默认tab
不知道要不要求标题，字段数量

newswan

Get-Item *.txt | ForEach-Object {
    (Get-Content $_) -match "\s{3}\d+\s" `
        -replace "^\s+(\d+)\s+([\d.]+)\s+",($_.BaseName + "`t`$1`t`$2`t") `
        -replace "\s+$","" `
        -replace "\s{2,}","`t" `
        -replace "(?=Baseplate)","`t" `
} | Out-File list.csv
复制代码

newswan

https://docs.microsoft.com/en-us ... agement/remove-item[/url]

newswan

回复 43# jave000

可以多一个 \ 比较清晰

$dest = "D:\"
Test-Path $dest\1
复制代码