nerdgerl

HA! I knew the question was too easy! I read it wrong!! LoL

$newstring = "<B>" & ClipGet() & "</B>"

I still use Win98 and it worked perfect for me. Thanks for sharing!

Okay, I made this some time ago and forgot how I did it honestly. Surely there's some borrowed code in there somewhere, but essentially the program lets you make and use your own Encyclopedia/Dictionary. It uses two text files: 1 text file stores the terms and the other stores their corresponding meanings. The line positions of the terms and meanings must match or the things that you look up won't make sense. I built this because I wanted to use my Palm's Encyclopedia Britannica on my desktop. The data file was huge and I was worried that AutoIT would never sift though all of it. I was silly enough to try this with an ini file, but there's an apparent limit of entries that I wasn't aware of. So I converted the encyclopedia to text and separated the entries (terms) from their descriptions (meanings) and put them into two separate files. Someone else's code gave me the idea to try it this way and it worked! The large file size doesn't seem to bother AutoIt, as it's pretty damn fast -- the descriptions (meanings) file I use is 16.3MB. So anyway, I'm not even about to upload the encyclopedia but I put some functions in there that will let you add your own stuff. Of course you could always try it with a tiny dictionary. Click SAVE to save changes to an entry (term) - click ADD to add one. The back/forward navigation functions are weak - but kind of interesting once you get some massive data in there. That is, interesting in the way that you get what you didn't really ask for. CODE;Sources:#include <GUIConstants.au3> #include <file.au3> #include <Array.au3> #include <GuiEdit.au3> Dim $Pos = 0 $Form = GUICreate("My Encyclopedia", 462, 386, -1, -1) GUICtrlCreateLabel("Find:", 6, 10, 27, 17) GUICtrlSetFont(-1, 9, 800, "", "Arial") $Input = GUICtrlCreateInput("", 34, 7, 336, 21) GUICtrlSetFont(-1, 9, 800, "", "Arial") $Search = GUICtrlCreateButton("Search", 380, 7, 75, 23, $BS_DEFPUSHBUTTON) GUICtrlSetFont(-1, 9, 800, "", "Arial") $Edit = GUICtrlCreateEdit("", 6, 36, 448, 325, $ES_AUTOVSCROLL + $WS_VSCROLL) GUICtrlSetFont(-1, 12, 400, "", "Arial") ;MENUBAR $filemenu = GUICtrlCreateMenu("&File") $filesave = GUICtrlCreateMenuitem("&Save Entry", $filemenu) $fileadd = GUICtrlCreateMenuitem("&Add Entry", $filemenu) $fileexit = GUICtrlCreateMenuitem("&Exit", $filemenu) $navmenu = GUICtrlCreateMenu("&Navigate") $Back = GUICtrlCreateMenuitem("&Back", $navmenu) $Forward = GUICtrlCreateMenuitem("&Foward", $navmenu) GUISetState(@SW_SHOW) ;Readin terms ahead of time If FileExists("meanings.txt") Then ;Do nothing Else FileWrite("meanings.txt","meaning") EndIf If FileExists("terms.txt") Then ;Do nothing Else FileWrite("terms.txt","term") EndIf Dim $aRecords If Not _FileReadToArray("terms.txt", $aRecords) Then MsgBox(4096, "Error", " Error reading log to Array error:" & @error) Exit EndIf HotKeySet("^f", "GoForward") HotKeySet("^b", "GoBack") While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $fileexit ExitLoop Case $msg = $fileadd ToolTip("Adding Entry...", @DesktopWidth / 2, (@DesktopHeight / 2) - 30, "", "", 2) FileWriteLine("terms.txt", GUICtrlRead($Input) & " ") FileWriteLine("meanings.txt", GUICtrlRead($Edit)) ToolTip("") Case $msg = $filesave ToolTip("Saving Entry...", @DesktopWidth / 2, (@DesktopHeight / 2) - 30, "", "", 2) _ReplaceStringInFile("terms.txt", FileReadLine("terms.txt", $Pos), GUICtrlRead($Input) & " ") _ReplaceStringInFile("meanings.txt", FileReadLine("meanings.txt", $Pos), GUICtrlRead($Edit)) ToolTip("") Case $msg = $Search $sType = '' Local $aSel = _GUICtrlEditGetSel($Edit) If $aSel = -1 Then Return SetError(1, 0, -1) Local $sText = StringMid(GUICtrlRead($Edit), $aSel[1] + 1, ($aSel[2] - $aSel[1])) If $sText = "" Then ToolTip("Searching For Term...", @DesktopWidth / 2, (@DesktopHeight / 2) - 30, "", "", 2) For $x = 1 To $aRecords[0] $Pos = _ArraySearch($aRecords, GUICtrlRead($Input) & " ", 0, 0, 0, True) If $Pos = -1 Then GUICtrlSetData($Edit, "Not Found") GUICtrlSetData($Input, "") ExitLoop Else GUICtrlSetData($Input, FileReadLine("terms.txt", $Pos)) GUICtrlSetData($Edit, FileReadLine("meanings.txt", $Pos)) ExitLoop EndIf Next ToolTip("") Else ToolTip("Searching For Term...", @DesktopWidth / 2, (@DesktopHeight / 2) - 30, "", "", 2) For $x = 1 To $aRecords[0] $Pos = _ArraySearch($aRecords, $sText & " ", 0, 0, 0, True) If $Pos = -1 Then GUICtrlSetData($Edit, "Not Found") GUICtrlSetData($Input, "") ExitLoop Else GUICtrlSetData($Input, FileReadLine("terms.txt", $Pos)) GUICtrlSetData($Edit, FileReadLine("meanings.txt", $Pos)) ExitLoop EndIf Next ToolTip("") EndIf Case $msg = $Back GoBack() Case $msg = $Forward GoForward() EndSelect WEnd Func GoForward() $Pos = $Pos + 1 GUICtrlSetData($Input, FileReadLine("terms.txt", $Pos)) GUICtrlSetData($Edit, FileReadLine("meanings.txt", $Pos)) EndFunc ;==>GoForward Func GoBack() $Pos = $Pos - 1 GUICtrlSetData($Input, FileReadLine("terms.txt", $Pos)) GUICtrlSetData($Edit, FileReadLine("meanings.txt", $Pos)) EndFunc ;==>GoBack Oh I forgot. If you highlight a word in the bottom window - and then click the search button - the program will attempt to find it in the terms and meanings files. Gotta be careful with highlighting though. This particular function doesn't remove highlighted spaces or punctuation (yet).

1. Unless you're the type that likes to laugh and call names at those who aren't as "advanced" as you, it's not funny at all. And I can't think of a "lamer" response than what the two of you made. Both of you have certainly lost my respect. 2. There's a lot of code on this board that forces me to squint, scratch my head, and wonder WTF is going on between #Include and Exit. A little CODE COMMENTING within these scripts would be well appreciated by ANYONE. 3. You will be well advised to remember we all have skills in different areas, and chances are, I - as well as others here - have a few that would put you in your place! Now continue to stroke each other's egos. That seems to be another skill you've just perfected.

Whenever I try, "Uploading File..." shows up but just hangs. :-(

I could try and email it to you...

I'm having trouble uploading stuff to this board...

Thanks Secure_ICT! :">

Sorry about that. I've "boxed" it. I also modified the posted code to address the "extra/misnamed" variables. Looks like I planned to add more features to this but never got around to it.

CODE#include <string.au3> #include <INet.au3> #Include <Array.au3> #include <File.au3> #include <GUIConstants.au3> ; ======================================= Default Settings ======================================= Dim $RecordNo = 1 Dim $inifile = "database.ini" ; ======================================= Hot Keys ======================================= HotKeySet("^e", "Email") HotKeySet("^h", "Home") HotKeySet("^w", "Work") ;HotKeySet("{F1}", "Help") ; ======================================= Main Interface ======================================= $Form1 = GUICreate("Worker-Base", 459, 380, -1, -1) GUISetIcon("database.ico") ; ======================================= Menubar ======================================= $filemenu = GUICtrlCreateMenu("&File") $filenewitem = GUICtrlCreateMenuitem("&New", $filemenu) $fileopenitem = GUICtrlCreateMenuitem("&Open", $filemenu) $filesaveasitem = GUICtrlCreateMenuitem("&Save As...", $filemenu) $MenuSeparator = GUICtrlCreateMenuitem("", $filemenu) $fileexportitem = GUICtrlCreateMenuitem("&Export", $filemenu) $fileprintitem = GUICtrlCreateMenuitem("&Print", $filemenu) $MenuSeparator = GUICtrlCreateMenuitem("", $filemenu) $fileexititem = GUICtrlCreateMenuitem("E&xit", $filemenu) $editmenu = GUICtrlCreateMenu("&Edit") $editcutitem = GUICtrlCreateMenuitem("&Cut", $editmenu) $editcopyitem = GUICtrlCreateMenuitem("C&opy", $editmenu) $editpasteitem = GUICtrlCreateMenuitem("&Paste", $editmenu) $MenuSeparator = GUICtrlCreateMenuitem("", $editmenu) $editgotoitem = GUICtrlCreateMenuitem("&Go To Record", $editmenu) $editfinditem = GUICtrlCreateMenuitem("&Find Record", $editmenu) $editdeleteitem = GUICtrlCreateMenuitem("&Delete Record", $editmenu) $helpmenu = GUICtrlCreateMenu("&Help") $helpaboutitem = GUICtrlCreateMenuitem("&About", $helpmenu) $Separator = GUICtrlCreateGraphic(0, 0, 455, 1, $SS_ETCHEDFRAME) ; ======================================= Database Fields ======================================= $Label1 = GUICtrlCreateLabel("WorkID:", 16, 16, 41, 17) $WorkID = GUICtrlCreateInput("", 16, 32, 49, 21) $Label6 = GUICtrlCreateLabel("Title:", 72, 16, 24, 17) $Title = GUICtrlCreateInput("", 72, 32, 73, 21) $Label3 = GUICtrlCreateLabel("First Name:", 152, 16, 54, 17) $FirstName = GUICtrlCreateInput("", 152, 32, 89, 21) $Label5 = GUICtrlCreateLabel("Middle Name:", 248, 16, 66, 17) $MiddleName = GUICtrlCreateInput("", 248, 32, 89, 21) $Label4 = GUICtrlCreateLabel("Last Name:", 344, 16, 55, 17) $LastName = GUICtrlCreateInput("", 344, 32, 89, 21) $Label7 = GUICtrlCreateLabel("Email Address:", 28, 68, 70, 17) $EmailAddress = GUICtrlCreateInput("", 104, 64, 121, 21) $Label8 = GUICtrlCreateLabel("Home Address:", 24, 93, 73, 17) $HomeAddress = GUICtrlCreateInput("", 104, 88, 121, 21) $Label9 = GUICtrlCreateLabel("City:", 75, 116, 21, 17) $City = GUICtrlCreateInput("", 104, 112, 121, 21) $Label10 = GUICtrlCreateLabel("State:", 67, 139, 29, 17) $State = GUICtrlCreateInput("", 104, 136, 121, 21) $Label11 = GUICtrlCreateLabel("Zip Code:", 48, 164, 47, 17) $ZipCode = GUICtrlCreateInput("", 104, 160, 121, 21) $Label12 = GUICtrlCreateLabel("Country:", 56, 189, 40, 17) $Country = GUICtrlCreateInput("", 104, 184, 121, 21) $Label13 = GUICtrlCreateLabel("Home Phone:", 31, 211, 66, 17) $HomePhone = GUICtrlCreateInput("", 104, 208, 121, 21) $Label14 = GUICtrlCreateLabel("Work Phone:", 32, 236, 64, 17) $WorkPhone = GUICtrlCreateInput("", 104, 232, 121, 21) $Label22 = GUICtrlCreateLabel("SSN#:", 272, 68, 36, 17) $SSN = GUICtrlCreateInput("", 312, 64, 121, 21) $Label23 = GUICtrlCreateLabel("Work No:", 256, 93, 50, 17) $WorkNo = GUICtrlCreateInput("", 312, 88, 121, 21) $Label17 = GUICtrlCreateLabel("Hire Date:", 254, 116, 49, 17) $HireDate = GUICtrlCreateInput("", 312, 112, 121, 21) $Label18 = GUICtrlCreateLabel("Hourly Salary:", 237, 139, 66, 17) $Salary = GUICtrlCreateInput("", 312, 136, 121, 21) $Label19 = GUICtrlCreateLabel("Billing Rate:", 245, 164, 57, 17) $BillingRate = GUICtrlCreateInput("", 312, 160, 121, 21) $Label20 = GUICtrlCreateLabel("Deductions:", 245, 189, 58, 17) $Deductions = GUICtrlCreateInput("", 312, 184, 121, 21) $Label2 = GUICtrlCreateLabel("Department:", 245, 211, 59, 17) $Department = GUICtrlCreateInput("", 312, 208, 121, 21) $Label21 = GUICtrlCreateLabel("Supervisor:", 249, 236, 54, 17) $Supervisor = GUICtrlCreateInput("", 312, 232, 121, 21) $Label15 = GUICtrlCreateLabel("Emergency Contact Name:", 139, 269, 128, 17) $EmergencyContactName = GUICtrlCreateInput("", 272, 264, 161, 21) $Label16 = GUICtrlCreateLabel("Emergency Contact Phone:", 136, 292, 131, 17) $EmergencyContactPhone = GUICtrlCreateInput("", 272, 288, 161, 21) $Separator = GUICtrlCreateGraphic(1, 321, 455, 1, $SS_ETCHEDFRAME) ; ======================================= Nagivation ======================================= $First = GUICtrlCreateButton("7", 7, 330, 18, 21, 0) GUICtrlSetFont(-1, 8, 400, 0, "Webdings") $Previous = GUICtrlCreateButton("3", 25, 330, 18, 21, 0) GUICtrlSetFont(-1, 8, 400, 0, "Webdings") $RecordNumber = GUICtrlCreateInput("1", 43, 330, 83, 21) $Next = GUICtrlCreateButton("4", 126, 330, 18, 21, 0) GUICtrlSetFont(-1, 8, 400, 0, "Webdings") $Last = GUICtrlCreateButton("8", 144, 330, 18, 21, 0) GUICtrlSetFont(-1, 8, 400, 0, "Webdings") If GUICtrlRead($WorkID) = "" Then GUICtrlSetData($WorkID, $RecordNo) EndIf If Not FileExists("database.ini") Then FileWrite("database.ini", "") IniWrite($inifile, GUICtrlRead($RecordNumber), "WorkID", "1") IniWrite($inifile, GUICtrlRead($RecordNumber), "Title", GUICtrlRead($Title)) IniWrite($inifile, GUICtrlRead($RecordNumber), "FirstName", GUICtrlRead($FirstName)) IniWrite($inifile, GUICtrlRead($RecordNumber), "MiddleName", GUICtrlRead($MiddleName)) IniWrite($inifile, GUICtrlRead($RecordNumber), "LastName", GUICtrlRead($LastName)) IniWrite($inifile, GUICtrlRead($RecordNumber), "EmailAddress", GUICtrlRead($EmailAddress)) IniWrite($inifile, GUICtrlRead($RecordNumber), "HomeAddress", GUICtrlRead($HomeAddress)) IniWrite($inifile, GUICtrlRead($RecordNumber), "City", GUICtrlRead($City)) IniWrite($inifile, GUICtrlRead($RecordNumber), "State", GUICtrlRead($State)) IniWrite($inifile, GUICtrlRead($RecordNumber), "ZipCode", GUICtrlRead($ZipCode)) IniWrite($inifile, GUICtrlRead($RecordNumber), "Country", GUICtrlRead($Country)) IniWrite($inifile, GUICtrlRead($RecordNumber), "HomePhone", GUICtrlRead($HomePhone)) IniWrite($inifile, GUICtrlRead($RecordNumber), "WorkPhone", GUICtrlRead($WorkPhone)) IniWrite($inifile, GUICtrlRead($RecordNumber), "SSN", GUICtrlRead($SSN)) IniWrite($inifile, GUICtrlRead($RecordNumber), "WorkNo", GUICtrlRead($WorkNo)) IniWrite($inifile, GUICtrlRead($RecordNumber), "HireDate", GUICtrlRead($HireDate)) IniWrite($inifile, GUICtrlRead($RecordNumber), "Salary", GUICtrlRead($Salary)) IniWrite($inifile, GUICtrlRead($RecordNumber), "BillingRate", GUICtrlRead($BillingRate)) IniWrite($inifile, GUICtrlRead($RecordNumber), "Deductions", GUICtrlRead($Deductions)) IniWrite($inifile, GUICtrlRead($RecordNumber), "Department", GUICtrlRead($Department)) IniWrite($inifile, GUICtrlRead($RecordNumber), "Supervisor", GUICtrlRead($Supervisor)) IniWrite($inifile, GUICtrlRead($RecordNumber), "EmergencyContactName", GUICtrlRead($EmergencyContactName)) IniWrite($inifile, GUICtrlRead($RecordNumber), "EmergencyContactPhone", GUICtrlRead($EmergencyContactPhone)) GUICtrlSetData($WorkID, $RecordNo) EndIf GUISetState() LoadData() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit ; ======================================= File Menu Functions ======================================= Case $msg = $fileexititem Exit Case $msg = $fileprintitem PrintDatabase() Case $msg = $fileexportitem ExportDatabase() Case $msg = $filenewitem NewDatabase() Case $msg = $fileopenitem OpenDatabase() Case $msg = $filesaveasitem SaveAsDatabase() ; ======================================= Navigation Functions ======================================= Case $msg = $First SaveData() $RecordNo = 1 LoadData() Case $msg = $Previous SaveData() $RecordNo = (GUICtrlRead($RecordNumber) - 1) If $RecordNo > 0 Then LoadData() Else ;Do Nothing EndIf Case $msg = $Next SaveData() $RecordNo = (GUICtrlRead($RecordNumber) + 1) If $RecordNo < 211 Then LoadData() If GUICtrlRead($WorkID) = "" Then GUICtrlSetData($WorkID, $RecordNo) EndIf Else ;Do Nothing EndIf Case $msg = $Last SaveData() $LastRecord = _ReplaceStringInFile($inifile, "$WorkID", "$WorkID") $RecordNo = $LastRecord If $RecordNo > 0 And $RecordNo < 211 Then LoadData() Else ;Do Nothing EndIf ; ======================================= Edit Menu Functions ======================================= Case $msg = $editcutitem Send("^x") Case $msg = $editcopyitem Send("^c") Case $msg = $editpasteitem Send("^v") Case $msg = $editfinditem ;Prepare for total record count and search FindRecord() Case $msg = $editdeleteitem IniDelete($inifile, GUICtrlRead($RecordNumber)) $RecordNo = (GUICtrlRead($RecordNumber) + 1) If $RecordNo < 211 Then LoadData() If GUICtrlRead($WorkID) = "" Then GUICtrlSetData($WorkID, $RecordNo) EndIf Else ;Do Nothing EndIf SaveData() MsgBox(0, "Status", "Record Deleted") Case $msg = $editgotoitem GoToRecord() ; ======================================= Help Menu Functions ======================================= Case $msg = $helpaboutitem About() EndSelect WEnd Func LoadData() GUICtrlSetData($RecordNumber, $RecordNo) GUICtrlSetData($BillingRate, IniRead($inifile, GUICtrlRead($RecordNumber), "BillingRate", "")) GUICtrlSetData($City, IniRead($inifile, GUICtrlRead($RecordNumber), "City", "")) GUICtrlSetData($Country, IniRead($inifile, GUICtrlRead($RecordNumber), "Country", "")) GUICtrlSetData($Deductions, IniRead($inifile, GUICtrlRead($RecordNumber), "Deductions", "")) GUICtrlSetData($Department, IniRead($inifile, GUICtrlRead($RecordNumber), "Department", "")) GUICtrlSetData($EmailAddress, IniRead($inifile, GUICtrlRead($RecordNumber), "EmailAddress", "")) GUICtrlSetData($EmergencyContactName, IniRead($inifile, GUICtrlRead($RecordNumber), "EmergencyContactName", "")) GUICtrlSetData($EmergencyContactPhone, IniRead($inifile, GUICtrlRead($RecordNumber), "EmergencyContactPhone", "")) GUICtrlSetData($FirstName, IniRead($inifile, GUICtrlRead($RecordNumber), "FirstName", "")) GUICtrlSetData($HireDate, IniRead($inifile, GUICtrlRead($RecordNumber), "HireDate", "")) GUICtrlSetData($HomeAddress, IniRead($inifile, GUICtrlRead($RecordNumber), "HomeAddress", "")) GUICtrlSetData($HomePhone, IniRead($inifile, GUICtrlRead($RecordNumber), "HomePhone", "")) GUICtrlSetData($LastName, IniRead($inifile, GUICtrlRead($RecordNumber), "LastName", "")) GUICtrlSetData($MiddleName, IniRead($inifile, GUICtrlRead($RecordNumber), "MiddleName", "")) GUICtrlSetData($Salary, IniRead($inifile, GUICtrlRead($RecordNumber), "Salary", "")) GUICtrlSetData($SSN, IniRead($inifile, GUICtrlRead($RecordNumber), "SSN", "")) GUICtrlSetData($State, IniRead($inifile, GUICtrlRead($RecordNumber), "State", "")) GUICtrlSetData($Supervisor, IniRead($inifile, GUICtrlRead($RecordNumber), "Supervisor", "")) GUICtrlSetData($Title, IniRead($inifile, GUICtrlRead($RecordNumber), "Title", "")) GUICtrlSetData($WorkID, IniRead($inifile, GUICtrlRead($RecordNumber), "WorkID", "")) GUICtrlSetData($WorkNo, IniRead($inifile, GUICtrlRead($RecordNumber), "WorkNo", "")) GUICtrlSetData($WorkPhone, IniRead($inifile, GUICtrlRead($RecordNumber), "WorkPhone", "")) GUICtrlSetData($ZipCode, IniRead($inifile, GUICtrlRead($RecordNumber), "ZipCode", "")) EndFunc ;==>LoadData Func SaveData() IniWrite($inifile, GUICtrlRead($RecordNumber), "BillingRate", GUICtrlRead($BillingRate)) IniWrite($inifile, GUICtrlRead($RecordNumber), "City", GUICtrlRead($City)) IniWrite($inifile, GUICtrlRead($RecordNumber), "Country", GUICtrlRead($Country)) IniWrite($inifile, GUICtrlRead($RecordNumber), "Deductions", GUICtrlRead($Deductions)) IniWrite($inifile, GUICtrlRead($RecordNumber), "Department", GUICtrlRead($Department)) IniWrite($inifile, GUICtrlRead($RecordNumber), "EmailAddress", GUICtrlRead($EmailAddress)) IniWrite($inifile, GUICtrlRead($RecordNumber), "EmergencyContactName", GUICtrlRead($EmergencyContactName)) IniWrite($inifile, GUICtrlRead($RecordNumber), "EmergencyContactPhone", GUICtrlRead($EmergencyContactPhone)) IniWrite($inifile, GUICtrlRead($RecordNumber), "FirstName", GUICtrlRead($FirstName)) IniWrite($inifile, GUICtrlRead($RecordNumber), "HireDate", GUICtrlRead($HireDate)) IniWrite($inifile, GUICtrlRead($RecordNumber), "HomeAddress", GUICtrlRead($HomeAddress)) IniWrite($inifile, GUICtrlRead($RecordNumber), "HomePhone", GUICtrlRead($HomePhone)) IniWrite($inifile, GUICtrlRead($RecordNumber), "LastName", GUICtrlRead($LastName)) IniWrite($inifile, GUICtrlRead($RecordNumber), "MiddleName", GUICtrlRead($MiddleName)) IniWrite($inifile, GUICtrlRead($RecordNumber), "Salary", GUICtrlRead($Salary)) IniWrite($inifile, GUICtrlRead($RecordNumber), "SSN", GUICtrlRead($SSN)) IniWrite($inifile, GUICtrlRead($RecordNumber), "State", GUICtrlRead($State)) IniWrite($inifile, GUICtrlRead($RecordNumber), "Supervisor", GUICtrlRead($Supervisor)) IniWrite($inifile, GUICtrlRead($RecordNumber), "Title", GUICtrlRead($Title)) IniWrite($inifile, GUICtrlRead($RecordNumber), "WorkID", GUICtrlRead($WorkID)) IniWrite($inifile, GUICtrlRead($RecordNumber), "WorkNo", GUICtrlRead($WorkNo)) IniWrite($inifile, GUICtrlRead($RecordNumber), "WorkPhone", GUICtrlRead($WorkPhone)) IniWrite($inifile, GUICtrlRead($RecordNumber), "ZipCode", GUICtrlRead($ZipCode)) EndFunc ;==>SaveData Func FindRecord() ;Get search term $FindRecordForm = GUICreate("Find Record", 255, 71, 450, 327) GUISetIcon("database.ico") $FindRecordLabel = GUICtrlCreateLabel("Criteria:", 5, 4, 39, 17) $FindRecordInput = GUICtrlCreateInput("", 4, 22, 246, 21) $FindRecordButton = GUICtrlCreateButton("Find", 185, 47, 64, 19, $BS_DEFPUSHBUTTON) GUISetState(@SW_SHOW) While 1 $FindRecordMsg = GUIGetMsg() Select Case $FindRecordMsg = $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $FindRecordForm) ExitLoop Case $FindRecordMsg = $FindRecordButton ;Determine total number of records to search $var = IniReadSectionNames($inifile) For $i = 1 To $var[0] $RecordNo = $var[$i] ;Read each section into a variable $newvar = IniReadSection($inifile, $i) If @error Then GUISetState(@SW_HIDE, $FindRecordForm) MsgBox(0, "", "Error reading database") ExitLoop (2) Else ;Search the value of the key of each section For $j = 1 To $newvar[0][0] ;Key: = $var[$i][0] & Value: = $var[$i][1]) $KeyData = $newvar[$j][0] $ValueData = $newvar[$j][1] ;Search the value for the search term If StringInStr($ValueData, GUICtrlRead($FindRecordInput)) Then ;If found, reset data on screen GUISetState(@SW_HIDE, $FindRecordForm) GUICtrlSetData($RecordNumber, $RecordNo) GUICtrlSetData($BillingRate, IniRead($inifile, GUICtrlRead($RecordNumber), "BillingRate", "")) GUICtrlSetData($City, IniRead($inifile, GUICtrlRead($RecordNumber), "City", "")) GUICtrlSetData($Country, IniRead($inifile, GUICtrlRead($RecordNumber), "Country", "")) GUICtrlSetData($Deductions, IniRead($inifile, GUICtrlRead($RecordNumber), "Deductions", "")) GUICtrlSetData($Department, IniRead($inifile, GUICtrlRead($RecordNumber), "Department", "")) GUICtrlSetData($EmailAddress, IniRead($inifile, GUICtrlRead($RecordNumber), "EmailAddress", "")) GUICtrlSetData($EmergencyContactName, IniRead($inifile, GUICtrlRead($RecordNumber), "EmergencyContactName", "")) GUICtrlSetData($EmergencyContactPhone, IniRead($inifile, GUICtrlRead($RecordNumber), "EmergencyContactPhone", "")) GUICtrlSetData($FirstName, IniRead($inifile, GUICtrlRead($RecordNumber), "FirstName", "")) GUICtrlSetData($HireDate, IniRead($inifile, GUICtrlRead($RecordNumber), "HireDate", "")) GUICtrlSetData($HomeAddress, IniRead($inifile, GUICtrlRead($RecordNumber), "HomeAddress", "")) GUICtrlSetData($HomePhone, IniRead($inifile, GUICtrlRead($RecordNumber), "HomePhone", "")) GUICtrlSetData($LastName, IniRead($inifile, GUICtrlRead($RecordNumber), "LastName", "")) GUICtrlSetData($MiddleName, IniRead($inifile, GUICtrlRead($RecordNumber), "MiddleName", "")) GUICtrlSetData($Salary, IniRead($inifile, GUICtrlRead($RecordNumber), "Salary", "")) GUICtrlSetData($SSN, IniRead($inifile, GUICtrlRead($RecordNumber), "SSN", "")) GUICtrlSetData($State, IniRead($inifile, GUICtrlRead($RecordNumber), "State", "")) GUICtrlSetData($Supervisor, IniRead($inifile, GUICtrlRead($RecordNumber), "Supervisor", "")) GUICtrlSetData($Title, IniRead($inifile, GUICtrlRead($RecordNumber), "Title", "")) GUICtrlSetData($WorkID, IniRead($inifile, GUICtrlRead($RecordNumber), "WorkID", "")) GUICtrlSetData($WorkNo, IniRead($inifile, GUICtrlRead($RecordNumber), "WorkNo", "")) GUICtrlSetData($WorkPhone, IniRead($inifile, GUICtrlRead($RecordNumber), "WorkPhone", "")) GUICtrlSetData($ZipCode, IniRead($inifile, GUICtrlRead($RecordNumber), "ZipCode", "")) ExitLoop (3) Else EndIf ;GUISetState(@SW_HIDE, $FindRecordForm) ;ExitLoop (3) Next EndIf Next EndSelect WEnd EndFunc ;==>FindRecord Func GoToRecord() $GoToRecordForm = GUICreate("Go To Record", 170, 31, 495, 384) GUISetIcon("database.ico") $GoToRecordLabel = GUICtrlCreateLabel("Record Number:", 2, 6, 82, 17) $GoToRecordInput = GUICtrlCreateInput("", 86, 4, 47, 21) $Go = GUICtrlCreateButton("Go", 137, 3, 28, 22, $BS_DEFPUSHBUTTON) GUISetState(@SW_SHOW) While 1 $RecordMsg = GUIGetMsg() Select Case $RecordMsg = $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $GoToRecordForm) ExitLoop Case $RecordMsg = $Go If GUICtrlRead($GoToRecordInput) < 211 Then GUISetState(@SW_HIDE, $GoToRecordForm) GUICtrlSetData($RecordNumber, GUICtrlRead($GoToRecordInput)) GUICtrlSetData($BillingRate, IniRead($inifile, GUICtrlRead($RecordNumber), "BillingRate", "")) GUICtrlSetData($City, IniRead($inifile, GUICtrlRead($RecordNumber), "City", "")) GUICtrlSetData($Country, IniRead($inifile, GUICtrlRead($RecordNumber), "Country", "")) GUICtrlSetData($Deductions, IniRead($inifile, GUICtrlRead($RecordNumber), "Deductions", "")) GUICtrlSetData($Department, IniRead($inifile, GUICtrlRead($RecordNumber), "Department", "")) GUICtrlSetData($EmailAddress, IniRead($inifile, GUICtrlRead($RecordNumber), "EmailAddress", "")) GUICtrlSetData($EmergencyContactName, IniRead($inifile, GUICtrlRead($RecordNumber), "EmergencyContactName", "")) GUICtrlSetData($EmergencyContactPhone, IniRead($inifile, GUICtrlRead($RecordNumber), "EmergencyContactPhone", "")) GUICtrlSetData($FirstName, IniRead($inifile, GUICtrlRead($RecordNumber), "FirstName", "")) GUICtrlSetData($HireDate, IniRead($inifile, GUICtrlRead($RecordNumber), "HireDate", "")) GUICtrlSetData($HomeAddress, IniRead($inifile, GUICtrlRead($RecordNumber), "HomeAddress", "")) GUICtrlSetData($HomePhone, IniRead($inifile, GUICtrlRead($RecordNumber), "HomePhone", "")) GUICtrlSetData($LastName, IniRead($inifile, GUICtrlRead($RecordNumber), "LastName", "")) GUICtrlSetData($MiddleName, IniRead($inifile, GUICtrlRead($RecordNumber), "MiddleName", "")) GUICtrlSetData($Salary, IniRead($inifile, GUICtrlRead($RecordNumber), "Salary", "")) GUICtrlSetData($SSN, IniRead($inifile, GUICtrlRead($RecordNumber), "SSN", "")) GUICtrlSetData($State, IniRead($inifile, GUICtrlRead($RecordNumber), "State", "")) GUICtrlSetData($Supervisor, IniRead($inifile, GUICtrlRead($RecordNumber), "Supervisor", "")) GUICtrlSetData($Title, IniRead($inifile, GUICtrlRead($RecordNumber), "Title", "")) GUICtrlSetData($WorkID, IniRead($inifile, GUICtrlRead($RecordNumber), "WorkID", "")) GUICtrlSetData($WorkNo, IniRead($inifile, GUICtrlRead($RecordNumber), "WorkNo", "")) GUICtrlSetData($WorkPhone, IniRead($inifile, GUICtrlRead($RecordNumber), "WorkPhone", "")) GUICtrlSetData($ZipCode, IniRead($inifile, GUICtrlRead($RecordNumber), "ZipCode", "")) ExitLoop Else GUISetState(@SW_HIDE, $GoToRecordForm) ;Do Nothing EndIf EndSelect WEnd EndFunc ;==>GoToRecord Func NewDatabase() ;Backup working copy FileDelete("database.ini") FileWrite("database.ini", "") $inifile = "database.ini" LoadData() GUICtrlSetData($WorkID, 1) EndFunc ;==>NewDatabase Func OpenDatabase() ;Backup working copy $inifile = FileOpenDialog("Open Database...", @ScriptDir, "Database Files (*.ini)") If @error Then ;--------Do nothing if close dialog box is canceled Else $RecordNo = 1 LoadData() EndIf EndFunc ;==>OpenDatabase Func SaveAsDatabase() SaveData() $inifile2 = FileSaveDialog("Choose a name", @ScriptDir, "Database Files (*.ini)") If @error Then ;--------Do nothing if close dialog box is canceled Else FileCopy($inifile, $inifile2) $inifile = $inifile2 EndIf EndFunc ;==>SaveAsDatabase Func ExportDatabase() ToolTip("Exporting Database - Please Wait", @DesktopWidth / 2, (@DesktopHeight / 2), "", "", 2) FileCopy($inifile, "worker-base.dat", 1) $LastRecord = _ReplaceStringInFile("worker-base.dat", "WorkID", "WorkID") For $i = 1 To $LastRecord _ReplaceStringInFile("worker-base.dat", "[" & $i & "]", "") Next _ReplaceStringInFile("worker-base.dat", "BillingRate=", "") _ReplaceStringInFile("worker-base.dat", "City=", "") _ReplaceStringInFile("worker-base.dat", "Country=", "") _ReplaceStringInFile("worker-base.dat", "Deductions=", "") _ReplaceStringInFile("worker-base.dat", "Department=", "") _ReplaceStringInFile("worker-base.dat", "EmailAddress=", "") _ReplaceStringInFile("worker-base.dat", "EmergencyContactName=", "") _ReplaceStringInFile("worker-base.dat", "EmergencyContactPhone=", "") _ReplaceStringInFile("worker-base.dat", "FirstName=", "") _ReplaceStringInFile("worker-base.dat", "HireDate=", "") _ReplaceStringInFile("worker-base.dat", "HomeAddress=", "") _ReplaceStringInFile("worker-base.dat", "HomePhone=", "") _ReplaceStringInFile("worker-base.dat", "LastName=", "") _ReplaceStringInFile("worker-base.dat", "MiddleName=", "") _ReplaceStringInFile("worker-base.dat", "Salary=", "") _ReplaceStringInFile("worker-base.dat", "SSN=", "") _ReplaceStringInFile("worker-base.dat", "State=", "") _ReplaceStringInFile("worker-base.dat", "Supervisor=", "") _ReplaceStringInFile("worker-base.dat", "Title=", "") _ReplaceStringInFile("worker-base.dat", "WorkID=", "") _ReplaceStringInFile("worker-base.dat", "WorkNo=", "") _ReplaceStringInFile("worker-base.dat", "WorkPhone=", "") _ReplaceStringInFile("worker-base.dat", "ZipCode=", "") ToolTip("") EndFunc ;==>ExportDatabase Func PrintDatabase() FileCopy($inifile, "worker-base.txt", 1) $LastRecord = _ReplaceStringInFile("worker-base.txt", "WorkID", "WorkID") ToolTip("Sending to Printer - Please Wait", @DesktopWidth / 2, (@DesktopHeight / 2), "", "", 2) For $recordx = 1 To $LastRecord _ReplaceStringInFile("worker-base.txt", "[" & $recordx & "]", "") Next _ReplaceStringInFile("worker-base.txt", "BillingRate=", "") _ReplaceStringInFile("worker-base.txt", "City=", "") _ReplaceStringInFile("worker-base.txt", "Country=", "") _ReplaceStringInFile("worker-base.txt", "Deductions=", "") _ReplaceStringInFile("worker-base.txt", "Department=", "") _ReplaceStringInFile("worker-base.txt", "EmailAddress=", "") _ReplaceStringInFile("worker-base.txt", "EmergencyContactName=", "") _ReplaceStringInFile("worker-base.txt", "EmergencyContactPhone=", "") _ReplaceStringInFile("worker-base.txt", "FirstName=", "") _ReplaceStringInFile("worker-base.txt", "HireDate=", "") _ReplaceStringInFile("worker-base.txt", "HomeAddress=", "") _ReplaceStringInFile("worker-base.txt", "HomePhone=", "") _ReplaceStringInFile("worker-base.txt", "LastName=", "") _ReplaceStringInFile("worker-base.txt", "MiddleName=", "") _ReplaceStringInFile("worker-base.txt", "Salary=", "") _ReplaceStringInFile("worker-base.txt", "SSN=", "") _ReplaceStringInFile("worker-base.txt", "State=", "") _ReplaceStringInFile("worker-base.txt", "Supervisor=", "") _ReplaceStringInFile("worker-base.txt", "Title=", "") _ReplaceStringInFile("worker-base.txt", "WorkID=", "") _ReplaceStringInFile("worker-base.txt", "WorkNo=", "") _ReplaceStringInFile("worker-base.txt", "WorkPhone=", "") _ReplaceStringInFile("worker-base.txt", "ZipCode=", "") ToolTip("") $print = _FilePrint("worker-base.txt") EndFunc ;==>PrintDatabase Func Email() _INetMail(GUICtrlRead($EmailAddress), "", "") EndFunc ;==>Email Func Home() Run("c:\windows\dialer.exe") $number = GUICtrlRead($HomePhone) Sleep(1000) Send($number) ControlClick("Phone Dialer", "", "Button1") EndFunc ;==>Home Func Work() Run("c:\windows\dialer.exe") $number = GUICtrlRead($WorkPhone) Sleep(1000) Send($number) ControlClick("Phone Dialer", "", "Button1") EndFunc ;==>Work Func About() $about = GUICreate("About Worker-Base", 195, 155, -1, -1) GUISetIcon("database.ico") GUICtrlCreateLabel("Worker-Base", 19, 11, 135, 20) GUICtrlCreateLabel("Copyright " & @YEAR & " Nerd Gerl", 19, 30, 175, 40) $email = GUICtrlCreateLabel("email@address.com", 19, 70, 135, 15) GUICtrlSetFont($email, 8.5, -1, 4); underlined GUICtrlSetColor($email, 0x0000ff) $www = GUICtrlCreateLabel("http://www.website.com", 19, 85, 170, 15) GUICtrlSetFont($www, 8.5, -1, 4); underlined GUICtrlSetColor($www, 0x0000ff) $OK = GUICtrlCreateButton("OK", 65, 115, 75, 23, BitOR($GUI_SS_DEFAULT_BUTTON, $BS_DEFPUSHBUTTON)) GUICtrlSetState(-1, $GUI_FOCUS) GUISetState() While 1 $aboutmsg = GUIGetMsg() Select Case $aboutmsg = $OK GUISwitch($about) GUIDelete() ExitLoop Case $aboutmsg = $GUI_EVENT_CLOSE GUISwitch($about) GUIDelete() ExitLoop EndSelect WEnd EndFunc ;==>About

The "best" way?? Program the tree to react to a variable or return result.

Check help file for FileWrite and/or FileWriteLine

Put the following directly under a group of list items. GUICtrlSetBkColor(-1,CHOSENCOLOR) ; Like 0xFFFFFF GUICtrlSetFont(-1, 11, 400, CHOSENFONT); Like "Comic Sans MS" GUICtrlSetColor(-1,CHOSENFONTCOLOR) ; Like 0x008008

I use autoit v3.2.0.1 and have never seen _StringBetween(). Is that function part of the ie udf or is it in a help file of a different autoit version??