批处理之家 - Powered by Discuz! Board

#-------------------------------------------------------------------------------
DATA | A+10-80 | 1 | 1 | 0 | 9| 0.00000 | 0.00000 | 0.00000 | A63-SLK12-75+CR12-10-80
DATA | A+10-55 | 1 | 1 | 0 | 9| 0.00000 | 0.00000 | 0.00000 | A63-SLK12-75+CR12-10-80
DATA | A+4-110 | 1 | 1 | 0 | 9 | 0.00000 | 0.00000 | 0.00000 | A63-SLK12-75+CS12-4-110
DATA | A+4-55 | 1 | 1 | 0 | 9 | 0.00000 | 0.00000 | 0.00000 | A63-SLK12-75+CR12-4-55
DATA | A+4-80 | 1 | 1 | 0 | 9 | 0.00000 | 0.00000 | 0.00000 | A63-SLK12-75+CR12-4-80
DATA | A+6-55 | 1 | 1 | 0 | 9 | 0.00000 | 0.00000 | 0.00000 | A63-SLK12-75+CR12-6-55
DATA | A+6-80 | 1 | 1 | 0 | 9 | 0.00000 | 0.00000 | 0.00000 | A63-SLK12-75+CR12-6-80
#328612167-------------------------------------------------------------------------------
DATA | A+10-80 | 2 | 1 | 16.00000 | 67.00000 | 3.00000 | 0.00000
DATA | A+10-80 | 2 | 2 | 23.10000 | 9.50000 | 8.68000 | 0.00000
DATA | A+10-80 | 2 | 3 | 26.00000 | 3.50000 | 0.00000 | 0.00000
DATA | A+10-80 | 2 | 4 | 38.00000 | 46.00000 | 3.00000 | 0.00000
DATA | A+10-80 | 2 | 7 | 150.00000 | 40.00000 | 0.00000 | 0.00000
DATA | A63-CTH20-125 | 2 | 1 | 50.00000 | 125.00000 | 0.00000 | 0.00000
DATA | A63-CTH20-125 | 2 | 2 | 63.00000 | 25.00000 | 0.00000 | 0.00000
DATA | A63-CTH20-125 | 2 | 3 | 150.00000 | 40.00000 | 0.00000 | 0.00000
DATA | A63-CTH25-105 | 2 | 4 | 200.00000 | 60.00000 | 0.00000 | 0.00000
DATA | A63-CTH25-105 | 2 | 5 | 250.00000 | 50.00000 | 0.00000 | 0.00000
DATA | AZ-6-120 | 2 | 1 | 13.00000 | 60.20000 | 9.30000 | 0.00000
DATA | AZ-6-120 | 2 | 2 | 32.72000 | 31.50000 | 15.70000 | 0.00000
DATA | AZ-6-120 | 2 | 3 | 50.43000 | 2.30000 | 48.00000 | 0.00000
DATA | AZ-6-120 | 2 | 4 | 63.00000 | 26.00000 | 0.00000 | 0.00000

复制代码

Dim fso,File1',File2
Set fso = CreateObject("Scripting.FileSystemObject")
Set File1= fso.OpenTextFile(".\测试.txt", 1)
'Set File2 = fso.CreateTextFile(".\结果.txt", 2 ,False)
Do While File1.AtEndOfStream <> True
str = File1.ReadLine
If Left(str,10)="#328612167" Then
def = 1
End If
arr = split(str,"|")
If ubound(arr) > 6 Then
a = Trim(arr(4))
b = Trim(arr(5))
a1 = split(a,".")
b1 = split(b,".")
If def=1 and a1(0)="38"and b1(0)="46" and IsNumeric(a) and IsNumeric(b) Then
msgbox arr(1)
'File2.WriteLine arr(1)
Wscript.Quit
End If
End If
loop

复制代码

Dim fso,File1,File2,str,txt,arr,Dict
Set Dict = CreateObject("Scripting.Dictionary")
Set fso = CreateObject("Scripting.FileSystemObject")
Set File1 = fso.OpenTextFile(".\测试.txt", 1)
Set File2 = fso.CreateTextFile(".\结果.txt", 2 ,False)
n = 1000
Do While File1.AtEndOfStream <> True
str = File1.ReadLine
txt = txt&str&vbCrLf
If Left(str,10)="#328612167" Then def = 1
arr = split(str,"|")
If ubound(arr) > 6 Then
If def=1 and Dict.Exists(arr(1)) <> True Then
n=n+1
Dict.Add arr(1), rtrim(arr(1))&"-A"&right(n,3)&" "
End If
End If
Loop
Dim tmp,objKeys,objItems
objKeys = Dict.Keys
objItems = Dict.Items
For i = 0 To Dict.Count -1
tmp = replace(txt,objKeys(i),objItems(i))
txt = tmp
Next
File2.Write txt
File1.Close
File2.Close
Dict.RemoveAll
Set Dict = Nothing
Msgbox "完成"

复制代码