Find a user defined number

[PcExpert]

Hello,

Is it possible to make a program where users can search a database for a number and if that number is found then it displays a msgbox with the status of that number?

a sample:

A users runs check.exe

A Inputbox is shown

User puts in his number

Program searches for that number in the database

If the number exists it reads the next line with the status of that number and it then returns the status to the user by displaying a msgbox with the status.

Thanks for your help!

[BALA]

Do you already have the database, or are you trying to find a way to search through it?

[PcExpert]

I already have a database I only need the to know how to search throught it.

Edited January 14, 2007 by PcExpert

[PcExpert]

I searched in the helpfile. But I didn´t find anything, but I know that autoit can do it. Can somebody put me on the right way?

[BALA]

Is the database in a text file, or INI file, because if so, you could just use on of the String functions to search through it.

[PcExpert]

It's a text file (.txt)

[BALA]

I think StringInStr() might work

$result = StringInStr("I am a String", "RING")
MsgBox(0, "Search result:", $result)

$location = StringInStr("How much wood could a woodchuck chuck is a woodchuck could chuck wood?", "wood", 0, 3) ; Find the 3rd occurance of "wood"

Edited January 15, 2007 by BALA

[jvanegmond]

Show us part of the TXT file. You need to parse the database in such a way so that you can find stuff by Index. A few lines should be enough.

[PcExpert]

This is 1 problem registred in the database.

Name:Test

Problem: Computer doesn't start

Code: 56891

---------------------------

With the code I want users to be able to check the status of there problem. So users open a program input there problem code and then it returns the status of the problem with the code specified.

Edited January 15, 2007 by PcExpert

[jvanegmond]

So the database looks like this

CODE

Name:Test

Problem: Computer doesn't start

Code: 56891

Name:Test

Problem: Computer doesn't start

Code: 56891

Name:Test

Problem: Computer doesn't start

Code: 56891

Name:Test

Problem: Computer doesn't start

Code: 56891

Name:Test

Problem: Computer doesn't start

Code: 56891

Name:Test

Problem: Computer doesn't start

Code: 56891

[PcExpert]

Thats right with a line like this:

---------------------------------

after each problem

So it looks like this:

Name:Test

Problem: Computer doesn't start

Code: 56891

---------------------------------

Name:Test

Problem: Computer doesn't start

Code: 56891

---------------------------------

Name:Test

Problem: Computer doesn't start

Code: 56891

---------------------------------

Name:Test

Problem: Computer doesn't start

Code: 56891

---------------------------------

Edited January 15, 2007 by PcExpert

[jvanegmond]

That makes things a lot easier.

[jvanegmond]

Next time, give more information on what you want. You mentioned 'a' database, it could have been anything! Never make others have to find out how to help you.

#include <Array.au3>

$Read = FileRead("Database.txt")
While StringInStr($Read,"--")
    $Read = StringReplace($Read,"--","-")
WEnd

$Database = StringSplit($Read,"-")
_ArrayDisplay($Database,$Database[0])

$i = InputBox("","Code?")
For $x = 1 to $Database[0]
    If StringInStr($Database[$x],$i) Then
        MsgBox(0,"Database", $Database[$x])
    EndIf
Next

Edited January 15, 2007 by Manadar

[PcExpert]

Thanks!

If I start it I first get a msgbox displaying:

[0]= 5

[1] = Name:Test

Problem: Computer doesn't start

Code: 56891

[2] =

Name:Test

Problem: Computer doesn't start

Code: 36271

[3] =

Name:Test

Problem: Computer doesn't start

Code: 54927

[4] =

Name:Test

Problem: Computer doesn't start

Code: 22519

[5] =

Can I get rid of that? So it only displays the second msgbox with the info?

[jvanegmond]

I forgot to remove it, I used it for testing purposes.

$Read = FileRead("Database.txt")
While StringInStr($Read,"--")
    $Read = StringReplace($Read,"--","-")
WEnd

$Database = StringSplit($Read,"-")

$i = InputBox("","Code?")
For $x = 1 to $Database[0]
    If StringInStr($Database[$x],$i) Then
        MsgBox(0,"Database", $Database[$x])
    EndIf
Next

[PcExpert]

Thanks, it works!

[jvanegmond]

Only because you're dutch and joined on my birthday. I hope you make good use of it.

[PcExpert]

I wait one question: How to display a msgbox if the number is not found? This is what I tried:

#include <Array.au3>

$Read = FileRead("Database.txt")

While StringInStr($Read,"--")

$Read = StringReplace($Read,"--","-")

WEnd

$Database = StringSplit($Read,"-")

$i = InputBox("","Probleemcode invoeren A.U.B.")

For $x = 1 to $Database[0]If StringInStr($Database[$x],$i) Then

MsgBox(0,"Database", $Database[$x])

Else

Msgbox(64, "Database", "Number not found.")

EndIf

Next

then it displays the msgbox 3 times or so if the number is not found I want it to just show once.

[jvanegmond]

$Read = FileRead("Database.txt")
While StringInStr($Read,"--")
$Read = StringReplace($Read,"--","-")
WEnd

$Database = StringSplit($Read,"-")

$i = InputBox("","Probleemcode invoeren A.U.B.")
For $x = 1 to $Database[0]
If StringInStr($Database[$x],$i) Then
 MsgBox(0,"Database", $Database[$x])
 Exit
EndIf
Next
Msgbox(64, "Database", "Number not found.")

Now if the number is found it quits before the "Number not found" msgbox is shown. You can delete the INclude.

Edited January 15, 2007 by Manadar