读取文本文件并在结果字符串上使用正则表达式应用

Question

我想读取一次文本文件的内容，并对结果字符串应用正则表达式。我无法弄清楚如何读取文本文件一次。

我一直在尝试一种替代方案，但它无法正常工作

Set oFS = oFSO.OpenTextFile(sFilename)
num = 15
mynum = 1
Do Until oFS.AtEndOfStream
    'Cells(num, mynum).Value = oFS.ReadLine
     MyString = oFS.ReadLine
     If Not oFS.AtEndOfStream Then
            oFS.SkipLine

     strStrings = Split(MyString, " ")
     For intInd = LBound(strStrings) To UBound(strStrings)

         Cells(num, mynum).Value = strStrings(intInd)

         mynum = mynum + 1
         If mynum Mod 4 = 0 Then
             num = num + 1
             mynum = 1
         End If
    Next

    End If
Loop
oFS.Close
Set oFSO = Nothing

，我注意到问题来自两个来源......其中一个是，一旦要分割的字符串长度可变，我的函数就会严重失败。我该如何修补这个问题？其次，我的文件内容包含一些非字符，我怀疑这些非字符也可能导致问题。 Myfile 在第三行之后有不同的空间。我能够得到前两行

DNI ROLL TEST ON 896_271209

Directional Data Test Started

=> KS 32223.63 火焰

=> SIP -7.25 度

=>右 90.57 度

=>方位角 105.46 度

=>左 73.92 度

=>偏移 -1.15 度

Answer 1

这是我之前使用过的一个非常有用的代码片段，它将整个文本文件存储在一个字符串中，然后您可以对其进行处理（就像使用正则表达式）。

Dim strFile As String
Dim intFile As Long

intFile = FreeFile

Open "C:\File.txt" For Input As #intFile
   strFile = Input$(LOF(intFile), #intFile)  '  LOF returns Length of File
Close #intFile

'Do what you want with strFile

更新：
实际上，这是我认为更安全的方法。我什至展示了如何使用打开的对话框获取文件名，这非常方便：

Sub test()

Dim fileString As String
Dim fileName As String

' You can use GetOpenFilename() if you like
fileName = Application.GetOpenFilename("Text Files (*.txt,*.txt")
fileString = Space(FileLen(fileName))

Open fileName For Binary As #1
    Get #1, , fileString
Close #1

' Do what you wish with fileString
MsgBox Len(fileString)
End Sub

Answer 2

如果将此行：更改

Cells(num, mynum).Value = strStrings(intInd)

为：，

Cells(num, mynum).Value = "'" & strStrings(intInd)

它将强制 Excel 将每一行视为文本。我不认为它喜欢“=>”中的等号，因为等号在Excel中一般用来表示公式。

这是我在进行更改后运行它时得到的输出：

这对我来说似乎不太有用，但我不确定这是否给出了您正在寻找的输出——您没有提供有关输出需要的详细信息。不过，这应该有助于消除“应用程序定义或对象定义的错误”。

如果您希望在文本上运行正则表达式，请解释您希望程序执行什么操作，我相信我们中的一个人可以帮助您编写正则表达式。

Answer 3

我后来让上面的代码工作了..

Set oFS = oFSO.OpenTextFile(sFilename)
num = 15
mynum = 1
Do Until oFS.AtEndOfStream
    'Cells(num, mynum).Value = oFS.ReadLine
     MyString = oFS.ReadLine

     Do While InStr(MyString, "  ")
     MyString = Replace(MyString, "  ", " ")
    Loop


     strStrings = Split(MyString, " ")
     If UBound(strStrings) > 0 Then
     For intInd = LBound(strStrings) To UBound(strStrings)
         If Not strStrings(intInd) = "=>" Then
         Cells(num, mynum).Value = strStrings(intInd)

         mynum = mynum + 1
         If mynum Mod 5 = 0 Then
             num = num + 1
             mynum = 1
         End If
         End If
    Next
    End If