1
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Set objWSHShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
MyDir = "C:\MyVariableDirectory\"
If objFSO.FileExists(MyDir & "MySleep.vbs") Then MyFileExists = True Else MyFileExists = False
If MyFileExists = False Then
Set HalXBrain = CreateObject("UltraHalAsst.Brain")
HalXBrain.AppendFile(MyDir & "MySleep.vbs"), "WScript.sleep 1000"
Do Until objFSO.FileExists(MyDir & "MySleep.vbs") : Loop
End If
objWSHShell.Run """" & MyDir & "MySleep.vbs" & """", ,true
''PROCESS: SPLIT USER'S INPUT STRING INTO SEPERATE SENTENCES
'Encode abbreviations such as Mr. Mrs. and Ms.
InputString = Replace(InputString, "MR.", "Mr<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "MRS.", "Mrs<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "MS.", "Ms<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "DR.", "Dr<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "MS.", "Ms<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "ST.", "St<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "PROF.", "Prof<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "GEN.", "Gen<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "REP.", "Rep<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "SEN.", "Sen<PERIOD>", 1, -1, vbTextCompare)
''Remove unnecessary punctuation
'*********************************Edited out section***********************************************
''PROCESS: SPLIT USER'S INPUT STRING INTO SEPERATE SENTENCES
''Encode abbreviations such as Mr. Mrs. and Ms.
'InputString = Replace(InputString, "MR.", "Mr<PERIOD>", 1, -1, vbTextCompare)
'InputString = Replace(InputString, "MRS.", "Mrs<PERIOD>", 1, -1, vbTextCompare)
'InputString = Replace(InputString, "MS.", "Ms<PERIOD>", 1, -1, vbTextCompare)
'InputString = Replace(InputString, "DR.", "Dr<PERIOD>", 1, -1, vbTextCompare)
'InputString = Replace(InputString, "MS.", "Ms<PERIOD>", 1, -1, vbTextCompare)
'InputString = Replace(InputString, "ST.", "St<PERIOD>", 1, -1, vbTextCompare)
'InputString = Replace(InputString, "PROF.", "Prof<PERIOD>", 1, -1, vbTextCompare)
'InputString = Replace(InputString, "GEN.", "Gen<PERIOD>", 1, -1, vbTextCompare)
'InputString = Replace(InputString, "REP.", "Rep<PERIOD>", 1, -1, vbTextCompare)
'InputString = Replace(InputString, "SEN.", "Sen<PERIOD>", 1, -1, vbTextCompare)
''Remove unnecessary punctuation
'*********************************New section*****************************************************
'PROCESS: SPLIT USER'S INPUT STRING INTO SEPERATE SENTENCES
'Encode abbreviations such as Mr. Mrs. and Ms.
InputString = Replace(InputString, " A. ", " A<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " B. ", " B<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " C. ", " C<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " D. ", " D<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " E. ", " E<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " F. ", " F<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " G. ", " G<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " H. ", " H<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " I. ", " I<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " J. ", " J<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " K. ", " K<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " L. ", " L<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " M. ", " M<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " N. ", " N<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " O. ", " O<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " P. ", " P<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " Q. ", " Q<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " R. ", " R<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " S. ", " S<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " T. ", " T<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " U. ", " U<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " V. ", " V<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " W. ", " W<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " X. ", " X<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " Y. ", " Y<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, " Z. ", " Z<PERIOD> ", 1, -1, vbTextCompare)
InputString = Replace(InputString, "SR.", "Mr<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "MR.", "Mr<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "JR.", "Jr<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "INC.", "Inc<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "...", "<PERIOD><PERIOD><PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "MRS.", "Mrs<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "MS.", "Ms<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "DR.", "Dr<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "MS.", "Ms<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "ST.", "St<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "PROF.", "Prof<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "GEN.", "Gen<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "REP.", "Rep<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "SEN.", "Sen<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "MT.", "Mt<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "JAN.", "Jan<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "FEB.", "Feb<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "MAR.", "Mar<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "APR.", "Apr<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "JUN.", "Jun<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "JUL.", "Jul<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "AUG.", "Aug<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "SEP.", "Sep<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "OCT.", "Oct<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "NOV.", "Nov<PERIOD>", 1, -1, vbTextCompare)
InputString = Replace(InputString, "DEC.", "Dec<PERIOD>", 1, -1, vbTextCompare)
'Remove unnecessary punctuation
'******************************************************************************************************