Question

任何人都可以通过Vba宏帮助我。我正在使用下面提到的代码。该任务是读取一个包含内容的记事本文件，并提取一个看起来像“ Z012345”的特定字符串，并将其粘贴到excel行中，例如，单元格A1将为Z067859，而A2为Z002674等，

有关记事本文件内容的样例

内容：

RAF0A123 Full data len= 134 

  ABATWER01 Recent change by VT0123123 on 11/12/17-11:50
                       INCLUDE(STELLER Z067859 Z002674 Z004671 Z003450 Z005433 Z023123 Z034564 Z034554 Z043212 Z010456 Z014567
                       Z027716 Z028778 Z029439 Z029876 Z035766 Z036460 Z038544 Z046456 Z047680 Z052907 Z053145 Z074674 Z094887

VBA代码：

Sub Demo()
Dim myFile As String, text As String, textline As String
Dim regex As Object, str As String
Set regex = CreateObject("VBScript.RegExp")

myFile = "C:\Users\sample.txt"

Open myFile For Input As #1

With regex
  .Pattern = "Z0[0-9]+"
  .Global = Trueq
End With

Set matches = regex.Execute(Input)

For Each Match In matches
Range("A1:A4000").Value = Match.Value
Next Match

  Do Until EOF(1)
  Line Input #1, textline
  text = text & textline
  Loop

  Close #1

End Sub

预期输出：

Excel输出列A应包含以下内容：

有人可以帮我写一个宏来执行任务吗？

Answer 1

我实际上认为您的代码在那里85％。我发现有些错误。

1）在尝试输出到Excel之前，您需要阅读文件。在您的代码中，似乎您在Excel中进行任何活动后都读取了文件

2）您将相同的值放在A1到A1000的每个单元格中，每次都覆盖它们。我相信您想向下循环并将每个值放在单元格中。

3）您正在向正则表达式传递一个甚至不存在的变量

进行了一些更改，这也许可以做到：

Sub Demo()
Dim myFile As String, text As String, textline As String
Dim regex As Object, str As String
Set regex = CreateObject("VBScript.RegExp")

myFile = "C:\Users\sample.txt"

Open myFile For Input As #1
  Do Until EOF(1)
  Line Input #1, textline
  text = text & textline
  Loop
Close #1

With regex
  .Pattern = "Z0[0-9]+"
  .Global = True
End With

Set matches = regex.Execute(text)

Dim row As Long
row = 1

For Each Match In matches
  Cells(row, 1).Value2 = Match
  row = row + 1
Next Match


End Sub

Answer 2

我宁愿一次将整个文件读取为一个字符串，然后找到该字符串并将其粘贴，而不是一次读取一行。示例代码

Dim myFile As String, regex As Object, str As String, ctr As Long

myFile = "C:\Users\sample.txt"
With CreateObject("Scripting.FileSystemObject")
    str = .OpenTextFile(myFile, 1).ReadAll
End With

Set regex = CreateObject("VBScript.RegExp")
With regex
  .Pattern = "Z0[0-9]+"
  .Global = True
End With
Set matches = regex.Execute(str)

ctr = 1
For Each Match In matches
  Sheet1.Range("A" & ctr).Value2 = Match
  ctr = ctr + 1
Next Match

Answer 3

请尝试以下操作，让我知道它符合您的要求

Sub Demo()

Dim myFile As String, text As String, textline As String
Dim str As String
Dim LineArray() As String
Dim DataArray() As String
Dim TempArray() As String
Dim rw As Long, col As Long
Dim FileContent As String

Set regex = CreateObject("vbscript.regexp")

Dim allMatches As Object
Delimiter = " "

myFile = "Path\sample.txt"

    With regex
    .Pattern = "Z0[0-9]+"
    .Global = True
    End With

Open myFile For Input As #1

  Do Until EOF(1)
  Line Input #1, textline
  text = text & textline
  Loop

LineArray() = Split(text, vbCrLf)
i = 1
For x = LBound(LineArray) To UBound(LineArray)
    If Len(Trim(LineArray(x))) <> 0 Then
        TempArray = Split(LineArray(x), Delimiter)

        col = UBound(TempArray)
        ReDim Preserve DataArray(col, rw)
        For y = LBound(TempArray) To UBound(TempArray)
          Set allMatches = regex.Execute(TempArray(y))
          Range("A" & i).Value = allMatches.Item(0)
          i = i + 1
        Next y
    End If

      rw = rw + 1

  Next x

  Close #1

End Sub

谢谢

带字符串拆分的VBA正则表达式

3 个答案: