Question

我需要通过一个文本档案,并检查每条线路的开端是否始于“阿蒂鲁特”。我如何在VB6中这样做?

Answer 1

Dim fso As New FileSystemObject
Dim ts As TextStream
Dim str As String

Set ts = fso.OpenTextFile(MyFile)
Do While Not ts.AtEndOfStream
    str = ts.ReadLine
    If InStr(str, "Attribute") = 1 Then
          do stuff
    End If
Loop

Answer 2

使用了“Reex”。您将须在您的参考资料中加入VB的定期表述图书馆。

Dim reg As new Scripting.Regex().
reg.Pattern = "^Attribute"
If reg.Match(line) Then
       Do Something
End If

Answer 3

Dim sInput As String, check as Boolean
check = true
Open "myfile" For INPUT As #txtFile
While Not EOF(txtFile)
   Input #txtFile, sInput
   If Not Mid(sInput,1,9) = "ATTRIBUTE" Then
       check = false
   End if
   sInput = ""
Wend
Close #txtFile

如果最终检查=真实情况,所有线都从“ATTRIBUTE”开始,否则就没有。

Answer 4

你们可以尝试这样的东西(没有测试的代码)——

Dim ParseDate, AllLinesStartWithAttribute, fso, fs
AllLinesStartWithAttribute = False
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.OpenTextFile("c:yourfile", 1, True)
Do Until fs.AtEndOfStream
    If Left(fs.ReadLine, 9) <> "Attribute" Then
       AllLinesStartWithAttribute = False
       Exit Do
    End If
Loop
fs.Close
Set fs = Nothing

守则一旦实施,如果将<代码>AllLinesStartWithAttribute数值定为真实数值,那么你档案中的所有线就从Attribute开始。请注意,该守则是敏感的。

友情链接