Example:

  1. ' Suppose you have a file test.txt inside a d:\temp directory, containing this text: "This is a test. Only a test."

    ' This example cycles through the Line of text and returns the character positions of each period.

    ' Using the example file, it returns positions 17 and 30.

     

    Sub Main()

    1. Dim myFile As String

      myFile = "d:\temp\test.txt"

      MsgBox "Reading " & myFile & " for searching."

      Open myFile For Input As #1

      Do While Not EOF(1)

      1. myChar = Input (1,#1)

        ' MsgBox myStr

        myLocation = Seek (1)

        If myChar = "." Then

        1. MsgBox "Found a " & myChar & " at location " & myLocation

        End If

      Loop

      Close 1

    End Sub