Help with loop, read Topic is solved

[Tomer]

Hey,

i have a list of names and want to get a MsgBox, found when i type in the editbox at least 1 name from the list,
what im doing wrong ?
thanks!

Code: Select all

#SingleInstance, force
#NoEnv

txtlist = c:\namelist.txt

FileDelete, %txtlist%

FileAppend, 
(
David
Mike
Jow
)
,%txtlist%

loop, read, %txtlist%
break

Gui Add, Edit, vUser1,
Gui, Add, Button,gCheck Default,check
Gui, Show
return

Check:
Gui,Submit,NoHide

if (User1 = A_LoopReadLine)
{
	MsgBox, found
}
else
{
	MsgBox, not found
}
return

GuiClose:
GuiEscape:
ExitApp

[Rohwedder]

Hallo,
try:

Code: Select all

#SingleInstance, force
#NoEnv

txtlist = c:\namelist.txt

FileDelete, %txtlist%

FileAppend, 
(
David
Mike
Jow
)
,%txtlist%

Gui Add, Edit, vUser1,
Gui, Add, Button,gCheck Default,check
Gui, Show
return

Check:
Gui,Submit,NoHide
FileRead, namelist, c:\namelist.txt
if InStr(namelist,User1)
{
	MsgBox, found
}
else
{
	MsgBox, not found
}
return

GuiClose:
GuiEscape:
ExitApp

(type only 1 name)

[Tomer]

Tnx Roh,

but for e.x in this method its found also names like: "Da" since "Da" is included in the name "David"

Ive come with this code,
But may be a better method from this one?
coz i dont like its looping all the list..

Code: Select all

#SingleInstance, force
#NoEnv

txtlist = c:\namelist.txt

FileDelete, %txtlist%

FileAppend, 
(
David
Mike
Jow
)
,%txtlist%




Gui Add, Edit, vUser1,
Gui, Add, Button,gCheck Default,check
Gui, Show
return

Check:
Gui,Submit,NoHide

loop, read, %txtlist%
{
   if (User1 = A_LoopReadLine)
     {
	MsgBox, found
     }
}

MsgBox, not found

return

GuiClose:
GuiEscape:
ExitApp

[Rohwedder]

Hallo,
perhaps:

Code: Select all

#SingleInstance, force
#NoEnv

txtlist = c:\namelist.txt

FileDelete, %txtlist%

FileAppend, 
(
David
Mike
Jow
`r
)
,%txtlist%

FileRead, namelist, c:\namelist.txt
Gui Add, Edit, vUser1,
Gui, Add, Button,gCheck Default,check
Gui, Show
return

Check:
Gui,Submit,NoHide

if InStr(namelist,User1 . "`r")
{
	MsgBox, found
}
else
{
	MsgBox, not found
}
return

GuiClose:
GuiEscape:
ExitApp

[Tomer]

Thanks Rohwedder!
so far looks working well.

[Rohwedder]

Hallo asad41163,
you haven't even tried to write a script line that deletes files!
Try to find someone who will do it for money.