Code-a-holic: [VBScript] Evaluator

Friday, September 09, 2005

[VBScript] Evaluator

A quick scripting environment so that I could bash out a few lines, get the results easily and put them on the clipboard.

Have been using the Vrode Editor 1.1 for HTA development.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Evaluator</TITLE>
<META http-equiv=Content-Type 
content="text/html; charset=windows-1252"><HTA:APPLICATION id=oHTA 
selection="yes" windowState="normal" singleInstance="yes" showInTaskBar="yes" 
scrollFlat="no" scroll="no" navigable="yes" minimizeButton="yes" 
maximizeButton="no" innerBorder="yes" caption="yes" borderStyle="sunken" 
border="thick" applicationName="Evaluator" SYSMENU="yes" CONTEXTMENU="yes">
<SCRIPT language=VBScript>
ReSizeTo 615, 520
Sub Window_Onload
  theScript.focus
End Sub


Sub bEvaluate_Click
   Dim aScript
   aScript = theScript.value
   aScript = Replace( aScript, "$RET$", "tResult.value" )
   ExecuteGlobal aScript
End Sub


Sub bCopy_Click()
  if tResult.Value = "" Then
    MsgBox "Can't copy nothing.",,"Evaluator2"
  Else
    document.parentwindow.clipboardData.SetData "text", tResult.Value
  End If
End Sub
</SCRIPT>


<META content="MSHTML 6.00.2800.1480" name=GENERATOR></HEAD>
<BODY><TEXTAREA id=theScript rows=13 cols=70></TEXTAREA> 
<P>Put "$RET$ into the script as the destination of any calculations. For 
example<BR>&nbsp;&nbsp;&nbsp;&nbsp;dim pi: pi = 4 * atn(1):$RET$=pi</P>
<P align=center><INPUT id=bEvaluate onclick=bEvaluate_Click type=button value=Evaluate></P><TEXTAREA id=tResult style="WIDTH: 580px; HEIGHT: 90px" name=tResult rows=4 cols=62></TEXTAREA> 
<P align=center><INPUT id=bCopy onclick=bCopy_Click type=button value="Copy to Clipboard"></P></BODY></HTML>

Friday, September 09, 2005

[VBScript] Evaluator

No comments: