Select Case Assistance Requested

[pizzaface]

Please see my pseudocode below. I'm attempting to read a text file and find specific text in each string of text that is read. When a string of text is read that has the specific text I'm looking for the Case Statement will not evaluate to True. Is what I am doing possible with the Case Statement? Any Help will be appreciated.

dim strL as String

While not tso.eof

strL = tso.readline

Select Case strL

Case Left(strL, 8) = "someText"
do someting
Case Left(strL, 13) = "someOtherText"
do something

End Select

Loop

[Delerna]

Case is meant for deciding an action based on the value of a single expreression

select case Left(strL, 8)
   case "someText"
      dosomething
   case "someOthe"
      dosomethingelse
End select
 

Since you need to select different length strings then that won't work


You will need to use if elseif which allows different expressions for each test

If Left(strL, 8) = "someText" Then
    MsgBox "someText"
ElseIf Left(strL, 13) = "someOtherText" Then
    MsgBox "someOtherText"
End If
 

[ADezii]

Select Case is not being used in the proper context since you are not specifically analyzing the entire Line, namely strL. The following compact code segment will do the trick for you:

'Must first set a Refernce to the Microsoft Scripting Runtime Library
Dim fso As FileSystemObject
Dim fil As File
Dim strL As String
Dim tso As TextStream
 
Set fso = New FileSystemObject
 
'Open the File for Reading
Set fil = fso.GetFile("C:\Windows\Setuplog.txt")
Set tso = fil.OpenAsTextStream(ForReading)
 
Do While Not tso.AtEndOfStream
  strL = tso.ReadLine
    If Left$(strL, 8) = "sometext" Then
      'YaDa, YaDa
    ElseIf Left(strL, 13) = "someOtherText" Then
      'More YaDa, YaDa
    Else
    End If
Loop