【已解决】求助批处理提取特定文本并分列 - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

1楼 跳转到 »

发表于 2021-6-23 13:30 | 显示全部帖子

本帖最后由 newswan 于 2021-6-23 14:39 编辑

基本看明白了，用excel做比较好

处理1个文件
powershell

$file = "1.txt"
$fc = get-content $file
$i = 0
while ($i -le $fc.count)
{
    if ($fc[$i] -match "^\s\s\s\d\s|^\s\s\d\d\s")
    {
        $a = $fc[$i] -split "\s\s\s*"
        $a[5] = $a[5] -replace "\sm",""
        while ($fc[$i+1] -match "^\s{11}\S")
        {
            $a[2] = $a[2] + " " + $fc[$i+1].trim()
            $i += 1
        }
        if (-not ($fc[$i+1] -match "^\s{11}\S"))
        {
            $a
        }
    }
    $i += 1
}
复制代码

1 评分人数

qixiaobin0715: powershell真强大！技术 + 1

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

2楼

发表于 2021-6-23 13:42 | 显示全部帖子

本帖最后由 newswan 于 2021-6-23 13:46 编辑

4 楼样本提取结果

1
PIPE, SMLS, HG/T 20553, ASTM A312 TP316L, SAWN END, CS 1000-27, DN200 - 219.1 X 4
200
I512912
2.1

2
PIPE, SMLS, HG/T 20553, ASTM A312 TP316L, SAWN END, CS 1000-27, DN150 - 168.3 X 3.6
150
I512911
1.6

3
PIPE, SMLS, HG/T 20553, ASTM A312 TP316L, SAWN END, CS 1000-27, DN50 - 60.3 X 2.9
50
I512906
0.3

4
PIPE, SMLS, HG/T 20553, ASTM A312 TP316L, SAWN END, CS 1000-27, DN25 - 33.7 X 2.6
25
I512903
0.3

5
PIPE, SMLS, HG/T 20553, ASTM A312 TP316L, SAWN END, CS 1000-27, DN20 - 26.9 X 2
20
I512902
0.2

6
CONCENTRIC REDUCER, SMLS, GB/T 12459, R(C), ASTM A312 TP316L, WELD PREP. ACC. TO CS 416, ENDPREP. ACC. TO CS 416, CS 1000-28, DN200 X 150 - 219.1 X 4/168.3 X 3.6
200X150
I512654
1

7
ELBOW 90 C, SMLS, GB/T 12459, 90E(L), ASTM A312 TP316L, WELD PREP. ACC. TO CS 416, CS 1000-28, DN200 - 219.1 X 4
200
I512504
1

8
ELBOW 90 C, SMLS, GB/T 12459, 90E(L), ASTM A312 TP316L, WELD PREP. ACC. TO CS 416, CS 1000-28, DN50 - 60.3 X 2.9
50
I512498
1

9
WELDNECK FLANGE, EN 1092-1, TYPE 11, SA 182 F316L, PN10, FLANGE CONTACT FACE TO FORM B1 DIN EN 1092-1, ENDPREP. ACC. TO CS 416, CS 1000-34, DN200 - 219.1 X 4
200
I512820
1

10
WELDNECK FLANGE, EN 1092-1, TYPE 11, SA 182 F316L, PN16, FLANGE CONTACT FACE TO FORM B1 DIN EN 1092-1, ENDPREP. ACC. TO CS 416, CS 1000-34, DN150 - 168.3 X 3.6
150
I512819
1

11
WELDNECK FLANGE, EN 1092-1, TYPE 11, SA 182 F316L, PN16, FLANGE CONTACT FACE TO FORM B1 DIN EN 1092-1, ENDPREP. ACC. TO CS 416, CS 1000-34, DN50 - 60.3 X 2.9
50
I512814
1

12
WELDNECK FLANGE, EN 1092-1, TYPE 11, SA 182 F316L, PN40, FLANGE CONTACT FACE TO FORM B1 DIN EN 1092-1, ENDPREP. ACC. TO CS 416, CS 1000-34, DN25 - 33.7 X 2.6
25
I512799
1

13
BLIND FLANGE, EN 1092-1, TYPE 05, SA 182 F316L, PN40, CONTACT FACE- FORM A EN 1092-1, CS 1000-37, DN25
25
I512946
1

14
WELDNECK FLANGE, EN 1092-1, TYPE 11, SA 182 F316L, PN40, FLANGE CONTACT FACE TO FORM B1 DIN EN 1092-1, ENDPREP. ACC. TO CS 416, CS 1000-34, DN20 - 26.9 X 2
20
I512798
1

15
GASKET, DIN EN 1514-1-IBC, NQ, 1.4401/GRAPHITE/1.4571, PN16,  WN 1000-841 DN 200 THICKNESS 1.6
200
I224625
1

16
GASKET, DIN EN 1514-1-IBC, NQ, 1.4401/GRAPHITE/1.4571, PN16,  WN 1000-841 DN 150 THICKNESS 1.6
150
I224624
2

17
GASKET, DIN EN 1514-1-IBC, NQ, 1.4401/GRAPHITE/1.4571, PN40,  WN 1000-841 DN 50 THICKNESS 1.6
50
I224645
1

18
GASKET, DIN EN 1514-1-IBC, NQ, 1.4401/GRAPHITE/1.4571, PN40,  WN 1000-841 DN 25 THICKNESS 1.6
25
I224638
2

19
GASKET, DIN EN 1514-1-IBC, NQ, 1.4401/GRAPHITE/1.4571, PN40,  WN 1000-841 DN 20 THICKNESS 1.6
20
I224636
1

20
SCREWED CONNECTION, DIN EN ISO 4017/4032, A2-70, CS 1000-16, NUT (H=0.9XD) M20 X 70
20
I91453
16

21
SCREWED CONNECTION, DIN EN ISO 4017/4032, A2-70, CS 1000-16, NUT (H=0.9XD) M20 X 75
20
I91454
8

22
SCREWED CONNECTION, DIN EN ISO 4014/4032, A2-70, CS 1000-16, NUT (H=0.9XD) M16 X 65
16
I91413
4

23
SCREWED CONNECTION, DIN EN ISO 4014/4032, A2-70, CS 1000-16, NUT (H=0.9XD) M12 X 50
12
I91371
4

24
SCREWED CONNECTION, DIN EN ISO 4014/4032, A2-70, CS 1000-16, NUT (H=0.9XD) M12 X 55
12
I91372
8

25
ERROR READING SPECIALTY MATERIAL DESCRIPTION LIBRARY
150
V710RE11F3121
1

26
SLIDE SHOE SIDE MOVABLE COMPANY STD WN8205-2 TYPE 5 (INS.-THK. 120 MM), UST37-2 WITH COATING COMPANY STANDARD WN 8110, SHOE-LENGTH 300 MM, CLAMPED
200
S0W-200
1

1
PIPE, SMLS, HG/T 20553, ASTM A312 TP316L, SAWN END, CS 1000-27, DN250 - 273 X 4
250
I512913
0.5

2
CONCENTRIC REDUCER, SMLS, GB/T 12459, R(C), ASTM A312 TP316L, WELD PREP. ACC. TO CS 416, ENDPREP. ACC. TO CS 416, CS 1000-28, DN250 X 200 - 273 X 4/219.1 X 4
250X200
I512658
1

3
ELBOW 90 C, SMLS, GB/T 12459, 90E(L), ASTM A312 TP316L, WELD PREP. ACC. TO CS 416, CS 1000-28, DN250 - 273 X 4
250
I512505
1

4
BLIND DISC, CS 473 PN 10 SERIES 2, SA 240 316L, FLANGE MOUNTING DIMENSION, PN10, CLAMPED PART CONTACT FACE FORM A DIN EN 1092-1, CS 1000-33, DN200
200
I512980
1

5
WELDNECK FLANGE, EN 1092-1, TYPE 11, SA 182 F316L, PN10, FLANGE CONTACT FACE TO FORM B1 DIN EN 1092-1, ENDPREP. ACC. TO CS 416, CS 1000-34, DN250 - 273 X 4
250
I512821
1

6
WELDNECK FLANGE, EN 1092-1, TYPE 11, SA 182 F316L, PN10, FLANGE CONTACT FACE TO FORM B1 DIN EN 1092-1, ENDPREP. ACC. TO CS 416, CS 1000-34, DN200 - 219.1 X 4
200
I512820
2

7
GASKET, DIN EN 1514-1-IBC, NQ, 1.4401/GRAPHITE/1.4571, PN10,  WN 1000-841 DN 250 THICKNESS 1.6
250
I224614
1

8
GASKET, DIN EN 1514-1-IBC, NQ, 1.4401/GRAPHITE/1.4571, PN16,  WN 1000-841 DN 200 THICKNESS 1.6
200
I224625
3

9
SCREWED CONNECTION, DIN EN ISO 4017/4032, A2-70, CS 1000-16, NUT (H=0.9XD) M20 X 75
20
I91454
8

10
SCREWED CONNECTION, DIN EN ISO 4014/4032, A2-70, CS 1000-16, NUT (H=0.9XD) M20 X 85
20
I91456
8

11
SCREWED CONNECTION, DIN EN ISO 4014/4032, A2-70, CS 1000-16, NUT (H=0.9XD) M20 X 80
20
I91455
12

12
BELLOWS SEAL VALVE, HANDWHEEL, CLIMBING, V2436W, 1.4581, 1.4571, 1.4408, 1.4404, PN10, FLANGE CONTACT FACE TO FORM B1 DIN EN 1092-1, WN 8480, DN 200
200
I372364
1
复制代码

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

3楼

发表于 2021-6-23 14:37 | 显示全部帖子

本帖最后由 newswan 于 2021-6-23 14:45 编辑

回复 10# jave000

改一下啊，trim 必须带括号 trim()

选其中一句，插入为第一行，保存为bat

@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & exit /b
@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause & exit
#&cls&@Powershell "& {[ScriptBlock]::Create("'#' + (gc '%~f0' -raw)").Invoke()}" & pause & exit
#&cls&@Powershell "& {[ScriptBlock]::Create("'#' + ([io.file]::ReadAllText('%~f0',[text.encoding]::Default))").Invoke()}" & pause & exit
#&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause&exit
复制代码

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

4楼

发表于 2021-6-23 14:46 | 显示全部帖子

本帖最后由 newswan 于 2021-6-23 14:51 编辑

$fileSour = "1.txt"
$fileDest = "11.txt"

$fc = get-content $fileSour
[System.Collections.ArrayList] $da = @()
$i = 0
while ($i -le $fc.count)
{
    if ($fc[$i] -match "^\s\s\s\d\s|^\s\s\d\d\s")
    {
        $a = $fc[$i] -split "\s\s\s*"
        $a[5] = $a[5] -replace "\sm",""
        while ($fc[$i+1] -match "^\s{11}\S")
        {
            $a[2] = $a[2] + " " + $fc[$i+1].trim()
            $i += 1
        }
        if (-not ($fc[$i+1] -match "^\s{11}\S"))
        {
            $da.add($a -join "`t") | out-null
        }
    }
    $i += 1
}
$da | out-file $fileDest
复制代码

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

5楼

发表于 2021-6-23 15:00 | 显示全部帖子

处理目录下多个文件

$pathSour = "a"
$fileDest = "11.txt"

[System.Collections.ArrayList] $da = @()

get-childitem -path $pathSour *.rpt | foreach-object {
    $fc = get-content $_
    $i = 0
    while ($i -le $fc.count)
    {
        if ($fc[$i] -match "^\s\s\s\d\s|^\s\s\d\d\s")
        {
            $a = $fc[$i] -split "\s\s\s*"
            $a[5] = $a[5] -replace "\sm",""
            while ($fc[$i+1] -match "^\s{11}\S")
            {
                $a[2] = $a[2] + " " + $fc[$i+1].trim()
                $i += 1
            }
            if (-not ($fc[$i+1] -match "^\s{11}\S"))
            {
                $da.add($a -join "`t") | out-null
            }
        }
        $i += 1
    }
}
$da | out-file $fileDest
复制代码

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

6楼

发表于 2021-6-23 15:10 | 显示全部帖子

文件是 prt 还是 rpt ？

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

7楼

发表于 2021-6-23 15:19 | 显示全部帖子

本帖最后由 newswan 于 2021-6-23 15:25 编辑

回复 19# jave000

改这一句，4个空格分列

$a = $fc[$i].trim() -split "\s{4,}*"
复制代码

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

8楼

发表于 2021-6-23 15:27 | 显示全部帖子

本帖最后由 newswan 于 2021-6-23 15:39 编辑

如果保留m ，删除这一句

$a[-1] = $a[-1] -replace "\sm",""
复制代码

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

9楼

发表于 2021-6-23 15:53 | 显示全部帖子

回复 23# jave000

修改路径 $pathsour

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

10楼

发表于 2021-6-23 16:27 | 显示全部帖子

回复 25# jave000

发现有这么一行，2个空格分隔

  12    BELLOWS SEAL VALVE, HANDWHEEL, CLIMBING,  200          I372364            1
复制代码

暂时，解决办法，你先找例外情况，手动修改空格
或者导出的时候，导出为csv格式
找到所有例外情况，看看情况再决定

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

11楼

发表于 2021-6-23 16:44 | 显示全部帖子

$pathSour = "."
$fileDest = "11.txt"

[System.Collections.ArrayList] $da = @()

get-childitem -path $pathSour *.rpt | foreach-object {
    $fc = get-content $_
    $i = 0
    while ($i -le $fc.count)
    {
        if ($fc[$i] -match "^\s\s\s\d\s|^\s\s\d\d\s")
        {
            $a = @("") * 6
            $a[1] =$fc[$i].substring(0,4).trim()
            $a[2] =$fc[$i].substring(4,46).trim()
            $a[3] =$fc[$i].substring(50,13).trim()
            $a[4] =$fc[$i].substring(63,18).trim()
            $a[5] =$fc[$i].substring(81).trim()
            #$a = $fc[$i] -split "\s{2,}"
            #$a[-1] = $a[-1] -replace "\sm",""
            while ($fc[$i+1] -match "^\s{11}\S")
            {
                $a[2] = $a[2] + " " + $fc[$i+1].trim()
                $i += 1
            }
            if (-not ($fc[$i+1] -match "^\s{11}\S"))
            {
                $da.add($a -join "`t") | out-null
            }
        }
        $i += 1
    }
}
$da | out-file $fileDest
复制代码

按长度截取也可以

1 评分人数

jave000: 技术大师技术 + 1

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

12楼

发表于 2021-6-23 23:52 | 显示全部帖子

本帖最后由 newswan 于 2021-6-24 00:00 编辑

$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $true
$Workbook = $Excel.Workbooks.Add()
$Sheet = $Workbook.Worksheets.Item(1)
for ($i =1 ; $i -le $da.count ; $i++)
{
    $Sheet.cells($i,1).value = $da[$i-1]
}
$colA=$sheet.range("A1").EntireColumn
$colrange=$sheet.range("A1")
$colA.texttocolumns($colrange,1,1,$true,$true,$false,$false,$false)
$sheet.columns.autofit()
$Workbook.SaveAs(($PSScriptRoot + "\" + $fileDest))
$excel.Quit()
复制代码

生成 excel 文件加到后面

1 评分人数

jave000: 细致技术 + 1

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

13楼

发表于 2021-6-23 23:54 | 显示全部帖子

只需要保留 2 4 5 ？

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

14楼

发表于 2021-6-23 23:59 | 显示全部帖子

本帖最后由 newswan 于 2021-6-24 00:18 编辑

回复 34# jave000

我这里正确的，你检查下？

$pathSour = "."
$fileDest = "11"

[System.Collections.ArrayList] $da = @()

get-childitem -path $pathSour *.rpt | foreach-object {
    $fc = get-content $_
    for ($i = 0 ; $i -le $fc.count ; $i++)
    {
        if ($fc[$i] -match "^\s\s\s\d\s|^\s\s\d\d\s")
        {
            $a = @("") * 6
            $a[1] =$fc[$i].substring(0,4).trim()
            $a[2] =$fc[$i].substring(4,46).trim()
            $a[3] =$fc[$i].substring(50,13).trim()
            $a[4] =$fc[$i].substring(63,18).trim()
            $a[5] =$fc[$i].substring(81).trim()
            $a[5] = $a[5] -replace "\sm",""
            while ($fc[$i+1] -match "^\s{11}\S")
            {
                $a[2] = $a[2] + " " + $fc[$i+1].trim()
                $i += 1
            }
            if (-not ($fc[$i+1] -match "^\s{11}\S"))
            {
                $da.add($a -join "`t") | out-null
            }
        }
    }
}
$da | out-file ($fileDest + ".txt")
复制代码

1 评分人数

jave000: 乐于助人技术 + 1

Rank: 5 Rank: 5

帖子: 931
积分: 1279
技术: 92
捐助: 0
注册时间: 2010-6-20

15楼

发表于 2021-6-24 00:06 | 显示全部帖子

回复 35# jave000

我还在下新的 office 2021版的