Check .txt for words.

[SjaakTV]

Hi,

After a awesome kickoff on this forum I have a new problem. I want to make a script that can add words in a text file (already got that) But the second thing is i want to use this wordlist to check out a text. So i have 2 .txt file one is named wordlist other is named story. I have a other script that can check out a .txt file for only one word. I can't get it fixed to check it with the wordlist. First i thought i will get a mass of msg box's so that could be the reason it crashed but it is not. I would also like one msg box for all words. So if it checks like 15 words in one story and it find 7 words i don't want to see 8 popups it didn't found it and 7 that it found it. One popup is enough. I didnot tryed that yet because i need some help with fixing this problem.

Thnx,

This is the check script that can read one word.

$file = FileOpen("story.txt", 0)
$read = FileRead($file)
If @error = -1 Then
    MsgBox(0, "Error", "File not read")
    Exit
    
Else
    If StringRegExp($read,"Bird") Then
        MsgBox(0, "YEH", "We got him")
    Else
        
        MsgBox(0, "Nope", "Nothing found here.")
    EndIf
EndIf
FileClose($file)

This is the full script check out reader function.

expandcollapse popup

#include <GUIConstantsEx.au3>

HotKeySet("{ESC}", "Stop")

Global $NewWord, $start

Func Stop()
    Exit 0
EndFunc   ;==>Stop

MENU()

Func MENU()

    GUICreate("Stop spam", 400, 288)
    GUISetBkColor(0xaaaaaa)
    GUICtrlCreateLabel((@MON & "/" & @MDAY & "/" & @YEAR), 325, 10)
    $NewWord = GUICtrlCreateInput("New word", 30, 50, 200, 20, 1, 1)
    $add = GUICtrlCreateButton("Add", 270, 47, 33)
    $start = GUICtrlCreateButton("Start", 100, 200, 75, 45)
    GUISetState(@SW_SHOW)

    GUISetState()
    While 1

        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $add
                AddWord()
            Case $Start
                reader()
        EndSwitch

    WEnd

    GUIDelete()
EndFunc   ;==>MENU

Func AddWord()
    $a = GUICtrlRead($NewWord)
    $file1 = FileOpen("wordlist.txt", 1)
    FileWriteLine($file1, $a)
    FileClose($file1)
EndFunc   ;==>AddWord

Func reader()
$file1 = FileOpen("wordlist.txt", 0)
$file = FileOpen("story.txt", 0)
$read = FileRead($file)
$i = 1

If @error = -1 Then
    MsgBox(0, "Error", "File not read")
    Exit
    
Else
    If StringRegExp($read, FileReadLine($file1), $i ) then
  MsgBox(0, "YEH", "We got him")
    Else
        
        MsgBox(0, "Nope", "Nothing found here.")
    EndIf
EndIf
FileClose($file)
EndFunc

[Melba23]

SjaakTV,

Time to learn about arrays! There is a good tutorial in the Wiki here.

What you will need to do:

- Get the list of words you want to chek into an array - use _FileReadToArray will do that for you automatically.

- Read the text - you have that already.

- Use a For...Next loop to check each word in the array against the text. If you find a word add it to a list of "found" words.

- Display a MsgBox with the list of "found" words.

Easy-peasy, no? Give it a try - you know where we are if you run into problems.

M23

[SjaakTV]

Ty got it working now.

Used a other array but it work.

Thnx for your time.