Find strings in text file

[myspacee]

hello,

anyone can teach me how find multiple similar lines in a text file ?

myfile.txt

ability
aboard
acceptable
accident
accidentally
accommodate
according
account
accurate
acquire
acquit

if search for 'acc' list all starting 'acc' words and display them on video on selectable form.

Thank you,

m.

[oMBRa]

search in the help file for string management

[Richard Robertson]

Dim $filetext = FileRead("stuff.txt")

Dim $mylineswithacc = GetLinesWith($filetext, "acc")

For $a = 0 To UBound($mylineswithacc) - 1
    MsgBox(0, $a, $mylineswithacc[$a])
Next

Func GetLinesWith($text, $line)
    Return StringRegExp($text, "(?m)^(" & $line & ".*?)$", 3)
EndFunc

How's that feel?

[GEOSoft]

If you are looking to do it in an AuoIt GUI then it will be something like below.

$sFile = @ScriptDir & "\Test.txt"

GUICreate("Test GUI", 170, 210)
$in = GUICtrlCreateInput("", 10, 10, 150, 20)
$Edit = GUICtrlCreateEdit("", 10, 40, 150, 160)
GUISetState()
While 1
    $sIn = GUICtrlRead($in)
    If StringLen($sIn) >= 1 Then
        $sOut = ""
        $aRegEx = StringRegExp(FileRead($sFile), "(?i)(?m)^(" & $sIn & ".*)$", 3)
        If IsArray($aRegEx) Then
            For $i = 0 To Ubound($aRegEx) - 1
                $sOut &= $aRegEx[$i] & @CRLF
            Next
            If GUICtrlRead($Edit) <> StringStripWS($sOut, 2) Then GUICtrlSetData($Edit, StringStripWS($sOut, 2))
        Else
            If GUICtrlRead($Edit) <> "" Then GUICtrlSetData($Edit, "")
        EndIf
    Else
        If GUICtrlRead($Edit) <> "" Then GUICtrlSetData($Edit, "")
    EndIf
    If GUIGetMsg() = -3 Then ExitLoop
Wend

[Richard Robertson]

What's with the case insensitive expression?

And what's with the poorly designed loop? That'll read the file every time even if the file hasn't changed. And I don't see a single sleep in there.

[GEOSoft]

What's with the case insensitive expression?

I saw nothing to suggest they needed case sensitivity. Its a simple word list.

And what's with the poorly designed loop? That'll read the file every time even if the file hasn't changed. And I don't see a single sleep in there.

So you have a problem with correcting it? Note the term "it will be something like below".

I was using the laptop while laying in bed with no way to even test what I was doing.

[Richard Robertson]

Sorry. I just get carried away some times.

[myspacee]

thank you both, learn a lot.

m.