txt文件指定内容提取

tanglf188

还有两列需要多次拆分

3190496160

Sub 导入txt文件()
Dim arr()
ReDim arr(1 To 100000, 1 To 6)
Dim s() As String, brr, i&, j&
ActiveSheet.UsedRange.Offset(1).ClearContents
Open ThisWorkbook.Path & "\系统查询结果.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
Dim br()
ReDim br(1 To UBound(s), 1 To 2)
For i = 0 To UBound(s)
    If InStr(s(i), "柜号") > 0 And InStr(s(i), "框号") > 0 And InStr(s(i), "槽号") > 0 Then
        m = m + 1
        br(m, 1) = i + 2
    End If
    If InStr(s(i), "结果个数") > 0 Then
        sl = Val(Split(s(i), "=")(1))
        If sl > 1 Then
            br(m, 2) = i - 1
        End If
    End If
Next i
For i = 1 To m
    ks = br(i, 1)
    js = br(i, 2)
    For ss = ks To js
        brr = Split(s(ss), " ")
        n = n + 1
        arr(n, 1) = Split(s(ks - 10), ":")(1)
        k = 1
        For j = 0 To UBound(brr)
            If brr(j) <> "" Then
                k = k + 1
                arr(n, k) = brr(j)
            End If
        Next j
    Next ss
Next i
[a2].Resize(n, 6) = arr
MsgBox "ok!"
End Sub

3190496160

样例数据.rar (37.11 KB, 下载次数: 13)

2024-6-27 17:13 上传

点击文件名下载附件

3190496160

tanglf188

搞了半天框号、槽号之间的空格是不固定的，但好在长度一样，拆分好了请参考

tanglf188

数据在sheet2工作表里

LIUZHU

参与下，效果展示

LIUZHU

JS代码不能转码，只能硬来，先用工作簿把内容读取进表格，然后再处理

1. function 提取文本文件信息(){
   
2.         Workbooks.Open(`${ThisWorkbook.Path}\\系统查询结果.txt`);
   
3.         const arr=ActiveSheet.UsedRange.Value2;
   
4.         ActiveWorkbook.Close(false);
   
5.         let wany;
   
6.         let res=arr.reduce((res,[x])=>{
   
7.                 let temp=String(x).split(/[ ]+/);
   
8.                 if (temp[0]=="网元") wany=temp[2];                //网元
   
9.                 if (temp.slice(0,3).reduce((t,x)=>t+/\d+/.test(x || ""), 0)==3) res.push([wany,...temp]);
   
10.                 return res;
    
11.         },[["网元名称","柜号","框号","槽号","接入方向","维护链路工作模式"]]);
    
12.         Range("a1").Resize(res.length, res[0].length).Value2=res;
    
13. }

复制代码

LIUZHU

附件，供参考，WPS打开测试，运行JS宏

ykcbf1100

参与一下。。。
关键词：分块处理