Phone number lookup

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Phone number lookup

Logged in as: Guest

arrSession:exec spGetSession 2,16,47998

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Phone number lookup
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Phone number lookup - 6/7/2007 1:00:22 AM

krunch

Posts: 5
Score: 0
Joined: 7/22/2005
Status: offline

Someone I work with asked me to make this and he likes it so I thought I'd share it.

<HTML>
  <HEAD>
  <TITLE>Phone Lookup</TITLE>
  
      <HTA:APPLICATION
      Application ID = "PLookup"
      APPLICATIONNAME = "PLookup"
      BORDER = "Thick"
      BORDERSTYLE = "Complex"
      CAPTION = "Yes"
      CONTEXTMENU = "Yes"
      ICON = "Phone.ico"
      INNERBORDER = "yes"
      MAXIMIZEBUTTON = "yes"
      MINIMIZEBUTTON = "yes"
      NAVIGABLE = "Yes"
      SCROLL = "No"
      SCROLLFLAT = "Yes"
      SELECTION = "Yes"
      SHOWINTASKBAR = "Yes"
      SINGLEINSTANCE = "No"
      SYSMENU = "yes"
      VERSION = "1.0"
      WINDOWSTATE = "Normal"
      />
  </HEAD>
 <script language='vbscript'>
      Sub StartUp()
          Dim x,y
          x = (window.screen.width - 440) / 2
          y = (window.screen.height - 515) / 2
          If x < 0 Then x = 0
          If y < 0 Then y = 0
          window.resizeTo 440,515
          window.moveTo x,y
      End Sub
      StartUp
 Set objShell = CreateObject("WScript.Shell") 
 Sub DoLookup
  
   Const adOpenStatic = 3
   Const adLockOptimistic = 3
   Const adCmdText = &H0001
 
   Set objConnection = CreateObject("ADODB.Connection")
   Set objRecordSet = CreateObject("ADODB.Recordset")
 
   strPathtoTextFile = "."
 
 objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
     "Data Source=" & strPathtoTextFile & ";" & _
         "Extended Properties=""text;HDR=YES;FMT=Delimited"""
 
 'strFile = "FONE.txt"
 strFile = "PhoneList.txt"
 
 objRecordset.Open "Select * FROM " & strFile & " where LastName LIKE '"&strLastName.Value&"%' ", _
     objConnection, adOpenStatic, adLockOptimistic, adCmdText
 
 Do Until objRecordset.EOF
     strText = vbCr &"First Name: " & objRecordset.Fields.Item("FirstName") &vbcr &_
     "Last Name: " & objRecordset.Fields.Item("LastName") &vbCr &_
     "Phone: " & objRecordset.Fields.Item("Pnum") &vbCr &_
     "Intercom: " & objRecordset.Fields.Item("ICM")&vbCr &_
     "Email: " & objRecordset.Fields.Item("EMail")&vbCr
     objRecordset.MoveNext
   Txtarea.Value = Txtarea.Value & strText
 Loop
 strText =""
 End Sub 'DoLookup
 
 Sub EPL
     ShellRun = objShell.Run ("EditPhoneList.hta")
 End Sub 'EPL
 
 Sub EditPList
     ShellRun = objShell.Run("%comspec% /c Start Notepad PhoneList.txt", 0, 1)
 End Sub 'EditPList
 
 Sub CloseDown
     Window.Close
 End Sub 'CloseDown
 
 Sub ShowHelp
     HelpText = "Phone Lookup does a database search against a CSV file named PhoneList.txt." & vbCrlf &_
     "The search is based on the field LastName and is case sensitive." & vbCrlf &_
     "Searches are performed by typing the last name or partial lastname." & vbCrlf &_
     "Alternatly, you can use the alphabet buttons at the top to find all records beginning with that letter." & vbCrlf &_
     "The Add button will run a second script allowing you to input new records." & vbCrlf &_
     "The Edit Button will open PhoneList.txt in Notepad allowing you to manually edit the file." & vbCrlf &_
     "The Edit button is the only way to remove or edit existing records."
 HelpScreen = MsgBox(HelpText, 64, "Phone Lookup Help")
 End Sub 'ShowHelp,
 
 </script>
 
 <BODY BGCOLOR="#DCDCDC">
 <center>
 <Table Width="99%" bgcolor="buttonface" border="0">
 <TR bgcolor="#000000">
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="A" onclick="Txtarea.Value='':strLastName.Value='A':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="B" onclick="Txtarea.Value='':strLastName.Value='B':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="C" onclick="Txtarea.Value='':strLastName.Value='C':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="D" onclick="Txtarea.Value='':strLastName.Value='D':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="E" onclick="Txtarea.Value='':strLastName.Value='E':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="F" onclick="Txtarea.Value='':strLastName.Value='F':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="G" onclick="Txtarea.Value='':strLastName.Value='G':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="H" onclick="Txtarea.Value='':strLastName.Value='H':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="I" onclick="Txtarea.Value='':strLastName.Value='I':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="J" onclick="Txtarea.Value='':strLastName.Value='J':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="K" onclick="Txtarea.Value='':strLastName.Value='K':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="L" onclick="Txtarea.Value='':strLastName.Value='L':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="M" onclick="Txtarea.Value='':strLastName.Value='M':DoLookup"></TD>
 </TR>
 <TR bgcolor="#000000">
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="N" onclick="Txtarea.Value='':strLastName.Value='N':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="O" onclick="Txtarea.Value='':strLastName.Value='O':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="P" onclick="Txtarea.Value='':strLastName.Value='P':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="Q" onclick="Txtarea.Value='':strLastName.Value='Q':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="R" onclick="Txtarea.Value='':strLastName.Value='R':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="S" onclick="Txtarea.Value='':strLastName.Value='S':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="T" onclick="Txtarea.Value='':strLastName.Value='T':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="U" onclick="Txtarea.Value='':strLastName.Value='U':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="V" onclick="Txtarea.Value='':strLastName.Value='V':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="W" onclick="Txtarea.Value='':strLastName.Value='W':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="X" onclick="Txtarea.Value='':strLastName.Value='X':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="Y" onclick="Txtarea.Value='':strLastName.Value='Y':DoLookup"></TD>
 <TD><input STYLE="Height:20;Width:100%;font-Size:12;color:#-2147483640;font-weight:normal;font-family:System" type="button" value="Z" onclick="Txtarea.Value='':strLastName.Value='Z':DoLookup"></TD>
 </TR>
 </Table>
 <HR Color=#DCDCDC size="-1">
 <TEXTAREA style="
                  Height:265;
                  Width:400;
                  font-Size:9;
                  color:#000000;
                  background-color:#CCC991;
                  font-weight:normal;
                  font-family:Fixedsys" 
                  name="Txtarea" rows="20" cols="80">
 </TEXTAREA>
 Enter Last Name or Partial:
 
 <input type="text" size="49" name="strLastName" TABINDEX=1>&nbsp
 <HR Color=#DCDCDC size="-1">
 <input type="Submit" value="Lookup" onclick="DoLookup" TABINDEX=2>
 <input type="button" value="Clear" onclick="Txtarea.Value='':strLastName.Value=''" TABINDEX=3>
 <input type="button" value="Add" onclick="EPL">
 <input type="button" value="Edit" onclick="EditPList">
 <input type="button" value="Help" onclick="ShowHelp">
 <input type="button" value="Quit" onclick="CloseDown">
 <form onsubmit="DoLookup"></form>
 </Center>
 </body>
 </html>

Create a text file named PhoneList.txt and put this in it:
LastName,FirstName,Pnum,ICM,EMail
Doe,John,555-555-5555,69,John.Doe@Nowhere.com
You don't need the first phone record but you do need the first line.

The first HTA calls this HTA (EditPhoneList.hta) to add new records:

<HTML>
  <HEAD>
  <TITLE>Edit Phone List</TITLE>
 
      <HTA:APPLICATION
      Application ID = "EPL"
      APPLICATIONNAME = "EPL"
      BORDER = "Thick"
      BORDERSTYLE = "Complex"
      CAPTION = "Yes"
      CONTEXTMENU = "Yes"
      ICON = ""
      INNERBORDER = "yes"
      MAXIMIZEBUTTON = "yes"
      MINIMIZEBUTTON = "yes"
      NAVIGABLE = "Yes"
      SCROLL = "No"
      SCROLLFLAT = "Yes"
      SELECTION = "Yes"
      SHOWINTASKBAR = "Yes"
      SINGLEINSTANCE = "No"
      SYSMENU = "yes"
      VERSION = "1.0"
      WINDOWSTATE = "Normal"
      />
 <style type="text/css">
 label
 {
 
 width: 4em;
 
 float: left;
 
 text-align: right;
 
 margin: 0 1em 10px 0
 
 clear: both
 
 }
 
 .input-box
 {
 
 float: left;
 
 margin-bottom: 10px
 
 color: #26a;
 
 background: #feb;
 
 border: #26a solid 1px
 
 }
 
 .submit-button
 {
 
 clear: both;
 
 color: #000;
 
 background: #fb0;
 
 border: 2px #9cf outset
 
 }
 
 fieldset
 {
 
 border: #26a solid 1px;
 
 width: 22em
 
 }
 
 legend
 {
 
 background: #fb0;
 
 border: #26a solid 1px;
 
 padding: 1px 10px
 
 }
 </style>
  </HEAD>
 <script language="vbscript">
      Sub StartUp()
          Dim x,y
          x = (window.screen.width - 445) / 2
          y = (window.screen.height - 300) / 2
          If x < 0 Then x = 0
          If y < 0 Then y = 0
          window.resizeTo 445,300
          window.moveTo x,y
      End Sub
      StartUp
 Dim fso
 Dim oFile
 Sub Window_onload()
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set oFile = fso.OpenTextFile( "PhoneList.txt",8,true)
 End Sub
 Sub OnSave()
     sT1 = document.all("T1").Value
     sT2 = document.all("T2").Value
     sT3 = document.all("T3").Value
     sT4 = document.all("T4").Value
     sT5 = document.all("T5").Value
     oFIle.Write sT2 & "," & sT1 & "," & sT3 & "," & sT4 & "," & sT5 & vbCRLF
     MsgBox "Record Added    ", 64,"Edit Phone List"
 End Sub
 Sub CloseDown
     Window.Close
 End Sub 'CloseDown
 </script>
 <BODY BGCOLOR="buttonface">
 <fieldset>
 <legend>Add New Contact</legend>
 <form method="POST">
 <table width="100%" border="0">
   <tr>
     <td width="50%" valign="top"><label
 for="fname">&nbspFirst&nbspName:</label></td>
     <td width="50%" valign="top"><input type="text" name="T1" size="32"
 class="input-box"></td>
   </tr>
   <tr>
     <td width="50%" valign="top"><label
 for="lname">&nbspLast&nbspName:</label></td>
     <td width="50%" valign="top"><input type="text" name="T2" size="32"
 class="input-box"></td>
   </tr>
   <tr>
     <td width="50%" valign="top"><label
 for="pnum">&nbspPhone&nbspNumber:</label></td>
     <td width="50%" valign="top"><input type="text" name="T3" size="32"
 class="input-box"></td>
   </tr>
   <tr>
     <td width="50%" valign="top"><label
 for="icm">&nbspIntercom&nbspNumber:</label></td>
     <td width="50%" valign="top"><input type="text" name="T4" size="32"
 class="input-box"></td>
   </tr>
   <tr>
     <td width="50%" valign="top"><label
 for="email">&nbspEmail&nbspAddress:</td>
     <td width="50%" valign="top"><input type="text" name="T5" size="32"
 class="input-box"></td>
   </tr>
 </table>
 <BR>
 <Center>
     <input type="button" value="Save" name="B1" onclick="OnSave"
 class="submit-button">
     <input type="reset" value="Reset" name="B2" class="submit-button">
     <input type="button" value="Quit" onclick="CloseDown"
 class="submit-button">
 </Center>
 </form>
 </fieldset>
 </BODY>
 </html>