Snasui Excel Forum

Code: Select all

Sub Check_word()
'
' Check_word Macro
' Trairong B.
'
    Dim r As Integer
    r = 1
    Range("A1").Select
    Do Until IsEmpty(ActiveCell)
    
            strFileName = Range("a" & r)
            
            Const strSearch = "Thailand"
            Dim strLine As String
            Dim f As Integer
            Dim lngLine As Long
            Dim blnFound As Boolean
            f = FreeFile
            Open strFileName For Input As #f
                 Do While Not EOF(f)
                    lngLine = lngLine + 1
                    Line Input #f, strLine
                    If InStr(1, strLine, strSearch, vbBinaryCompare) > 0 Then
                        'MsgBox "Search string found in line " & lngLine, vbInformation
                        ActiveCell.Offset(0, 1).Select
                        ActiveCell.FormulaR1C1 = "Pass"
                        ActiveCell.Offset(0, -1).Select
                        blnFound = True
                        Exit Do
                    End If
                 Loop
            Close #f
            If Not blnFound Then
               ' MsgBox "Search string not found", vbInformation
                 ActiveCell.Offset(0, 1).Select
                 ActiveCell.FormulaR1C1 = "Fail"
                 ActiveCell.Offset(0, -1).Select
            End If
      ActiveCell.Offset(1, 0).Select
      r = r + 1
      
      Loop
'
End Sub

Code: Select all

d
a
g
h
Thailand
1
5
6

Code: Select all

d
a
gfweas
hfef
Thai1land
1
5
6

Code: Select all

dfeaf
a
g
h
Thailand555
1
5
6

Code: Select all

dw
adwad
g
h
aaaThailand
1
5
6dwadwa

Code: Select all

d
adwad
g
h
Thaaailand
1
5dwa
6

Code: Select all

Sub Check_word()
    '
    ' Check_word Macro
    ' Trairong B.
    '
    Dim r As Integer
    Dim strLine As String
    Dim f As Integer
    Dim lngLine As Long
    Dim blnFound As Boolean
    Const strSearch = "Thailand"
    r = 1
    Do Until IsEmpty(Range("a" & r))
            f = FreeFile
            blnFound = False
            strFileName = Range("a" & r)
            Open strFileName For Input As #f
            Do While Not EOF(f)
               lngLine = lngLine + 1
               Line Input #f, strLine
               If InStr(1, strLine, strSearch, vbBinaryCompare) > 0 Then
                   blnFound = True
                   Exit Do
               End If
            Loop
            Close #f
            If blnFound Then
                Range("a" & r).Offset(0, 1).Value = "Pass"
            Else
                Range("a" & r).Offset(0, 1).Value = "Fail"
            End If
            r = r + 1
      Loop
End Sub

Code: Select all

d
f
we
q dj Thailand Beautiful
fe
e