From bc0165e3ae8bfd7ee0cb840c0d3dfece6129b154 Mon Sep 17 00:00:00 2001 From: RDeck Date: Thu, 30 Oct 2025 08:16:20 -0400 Subject: [PATCH] first commit --- .gitattributes | 63 +++++++ .gitignore | 363 +++++++++++++++++++++++++++++++++++++++++ MainScriptingObject.cs | 355 ++++++++++++++++++++++++++++++++++++++++ mScriptableCS25.csproj | 16 ++ mScriptableCS25.sln | 25 +++ 5 files changed, 822 insertions(+) create mode 100644 .gitattributes create mode 100644 .gitignore create mode 100644 MainScriptingObject.cs create mode 100644 mScriptableCS25.csproj create mode 100644 mScriptableCS25.sln diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..1ff0c42 --- /dev/null +++ b/.gitattributes @@ -0,0 +1,63 @@ +############################################################################### +# Set default behavior to automatically normalize line endings. +############################################################################### +* text=auto + +############################################################################### +# Set default behavior for command prompt diff. +# +# This is need for earlier builds of msysgit that does not have it on by +# default for csharp files. +# Note: This is only used by command line +############################################################################### +#*.cs diff=csharp + +############################################################################### +# Set the merge driver for project and solution files +# +# Merging from the command prompt will add diff markers to the files if there +# are conflicts (Merging from VS is not affected by the settings below, in VS +# the diff markers are never inserted). Diff markers may cause the following +# file extensions to fail to load in VS. An alternative would be to treat +# these files as binary and thus will always conflict and require user +# intervention with every merge. To do so, just uncomment the entries below +############################################################################### +#*.sln merge=binary +#*.csproj merge=binary +#*.vbproj merge=binary +#*.vcxproj merge=binary +#*.vcproj merge=binary +#*.dbproj merge=binary +#*.fsproj merge=binary +#*.lsproj merge=binary +#*.wixproj merge=binary +#*.modelproj merge=binary +#*.sqlproj merge=binary +#*.wwaproj merge=binary + +############################################################################### +# behavior for image files +# +# image files are treated as binary by default. +############################################################################### +#*.jpg binary +#*.png binary +#*.gif binary + +############################################################################### +# diff behavior for common document formats +# +# Convert binary document formats to text before diffing them. This feature +# is only available from the command line. Turn it on by uncommenting the +# entries below. +############################################################################### +#*.doc diff=astextplain +#*.DOC diff=astextplain +#*.docx diff=astextplain +#*.DOCX diff=astextplain +#*.dot diff=astextplain +#*.DOT diff=astextplain +#*.pdf diff=astextplain +#*.PDF diff=astextplain +#*.rtf diff=astextplain +#*.RTF diff=astextplain diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..9491a2f --- /dev/null +++ b/.gitignore @@ -0,0 +1,363 @@ +## Ignore Visual Studio temporary files, build results, and +## files generated by popular Visual Studio add-ons. +## +## Get latest from https://github.com/github/gitignore/blob/master/VisualStudio.gitignore + +# User-specific files +*.rsuser +*.suo +*.user +*.userosscache +*.sln.docstates + +# User-specific files (MonoDevelop/Xamarin Studio) +*.userprefs + +# Mono auto generated files +mono_crash.* + +# Build results +[Dd]ebug/ +[Dd]ebugPublic/ +[Rr]elease/ +[Rr]eleases/ +x64/ +x86/ +[Ww][Ii][Nn]32/ +[Aa][Rr][Mm]/ +[Aa][Rr][Mm]64/ +bld/ +[Bb]in/ +[Oo]bj/ +[Oo]ut/ +[Ll]og/ +[Ll]ogs/ + +# Visual Studio 2015/2017 cache/options directory +.vs/ +# Uncomment if you have tasks that create the project's static files in wwwroot +#wwwroot/ + +# Visual Studio 2017 auto generated files +Generated\ Files/ + +# MSTest test Results +[Tt]est[Rr]esult*/ +[Bb]uild[Ll]og.* + +# NUnit +*.VisualState.xml +TestResult.xml +nunit-*.xml + +# Build Results of an ATL Project +[Dd]ebugPS/ +[Rr]eleasePS/ +dlldata.c + +# Benchmark Results +BenchmarkDotNet.Artifacts/ + +# .NET Core +project.lock.json +project.fragment.lock.json +artifacts/ + +# ASP.NET Scaffolding +ScaffoldingReadMe.txt + +# StyleCop +StyleCopReport.xml + +# Files built by Visual Studio +*_i.c +*_p.c +*_h.h +*.ilk +*.meta +*.obj +*.iobj +*.pch +*.pdb +*.ipdb +*.pgc +*.pgd +*.rsp +*.sbr +*.tlb +*.tli +*.tlh +*.tmp +*.tmp_proj +*_wpftmp.csproj +*.log +*.vspscc +*.vssscc +.builds +*.pidb +*.svclog +*.scc + +# Chutzpah Test files +_Chutzpah* + +# Visual C++ cache files +ipch/ +*.aps +*.ncb +*.opendb +*.opensdf +*.sdf +*.cachefile +*.VC.db +*.VC.VC.opendb + +# Visual Studio profiler +*.psess +*.vsp +*.vspx +*.sap + +# Visual Studio Trace Files +*.e2e + +# TFS 2012 Local Workspace +$tf/ + +# Guidance Automation Toolkit +*.gpState + +# ReSharper is a .NET coding add-in +_ReSharper*/ +*.[Rr]e[Ss]harper +*.DotSettings.user + +# TeamCity is a build add-in +_TeamCity* + +# DotCover is a Code Coverage Tool +*.dotCover + +# AxoCover is a Code Coverage Tool +.axoCover/* +!.axoCover/settings.json + +# Coverlet is a free, cross platform Code Coverage Tool +coverage*.json +coverage*.xml +coverage*.info + +# Visual Studio code coverage results +*.coverage +*.coveragexml + +# NCrunch +_NCrunch_* +.*crunch*.local.xml +nCrunchTemp_* + +# MightyMoose +*.mm.* +AutoTest.Net/ + +# Web workbench (sass) +.sass-cache/ + +# Installshield output folder +[Ee]xpress/ + +# DocProject is a documentation generator add-in +DocProject/buildhelp/ +DocProject/Help/*.HxT +DocProject/Help/*.HxC +DocProject/Help/*.hhc +DocProject/Help/*.hhk +DocProject/Help/*.hhp +DocProject/Help/Html2 +DocProject/Help/html + +# Click-Once directory +publish/ + +# Publish Web Output +*.[Pp]ublish.xml +*.azurePubxml +# Note: Comment the next line if you want to checkin your web deploy settings, +# but database connection strings (with potential passwords) will be unencrypted +*.pubxml +*.publishproj + +# Microsoft Azure Web App publish settings. Comment the next line if you want to +# checkin your Azure Web App publish settings, but sensitive information contained +# in these scripts will be unencrypted +PublishScripts/ + +# NuGet Packages +*.nupkg +# NuGet Symbol Packages +*.snupkg +# The packages folder can be ignored because of Package Restore +**/[Pp]ackages/* +# except build/, which is used as an MSBuild target. +!**/[Pp]ackages/build/ +# Uncomment if necessary however generally it will be regenerated when needed +#!**/[Pp]ackages/repositories.config +# NuGet v3's project.json files produces more ignorable files +*.nuget.props +*.nuget.targets + +# Microsoft Azure Build Output +csx/ +*.build.csdef + +# Microsoft Azure Emulator +ecf/ +rcf/ + +# Windows Store app package directories and files +AppPackages/ +BundleArtifacts/ +Package.StoreAssociation.xml +_pkginfo.txt +*.appx +*.appxbundle +*.appxupload + +# Visual Studio cache files +# files ending in .cache can be ignored +*.[Cc]ache +# but keep track of directories ending in .cache +!?*.[Cc]ache/ + +# Others +ClientBin/ +~$* +*~ +*.dbmdl +*.dbproj.schemaview +*.jfm +*.pfx +*.publishsettings +orleans.codegen.cs + +# Including strong name files can present a security risk +# (https://github.com/github/gitignore/pull/2483#issue-259490424) +#*.snk + +# Since there are multiple workflows, uncomment next line to ignore bower_components +# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622) +#bower_components/ + +# RIA/Silverlight projects +Generated_Code/ + +# Backup & report files from converting an old project file +# to a newer Visual Studio version. Backup files are not needed, +# because we have git ;-) +_UpgradeReport_Files/ +Backup*/ +UpgradeLog*.XML +UpgradeLog*.htm +ServiceFabricBackup/ +*.rptproj.bak + +# SQL Server files +*.mdf +*.ldf +*.ndf + +# Business Intelligence projects +*.rdl.data +*.bim.layout +*.bim_*.settings +*.rptproj.rsuser +*- [Bb]ackup.rdl +*- [Bb]ackup ([0-9]).rdl +*- [Bb]ackup ([0-9][0-9]).rdl + +# Microsoft Fakes +FakesAssemblies/ + +# GhostDoc plugin setting file +*.GhostDoc.xml + +# Node.js Tools for Visual Studio +.ntvs_analysis.dat +node_modules/ + +# Visual Studio 6 build log +*.plg + +# Visual Studio 6 workspace options file +*.opt + +# Visual Studio 6 auto-generated workspace file (contains which files were open etc.) +*.vbw + +# Visual Studio LightSwitch build output +**/*.HTMLClient/GeneratedArtifacts +**/*.DesktopClient/GeneratedArtifacts +**/*.DesktopClient/ModelManifest.xml +**/*.Server/GeneratedArtifacts +**/*.Server/ModelManifest.xml +_Pvt_Extensions + +# Paket dependency manager +.paket/paket.exe +paket-files/ + +# FAKE - F# Make +.fake/ + +# CodeRush personal settings +.cr/personal + +# Python Tools for Visual Studio (PTVS) +__pycache__/ +*.pyc + +# Cake - Uncomment if you are using it +# tools/** +# !tools/packages.config + +# Tabs Studio +*.tss + +# Telerik's JustMock configuration file +*.jmconfig + +# BizTalk build output +*.btp.cs +*.btm.cs +*.odx.cs +*.xsd.cs + +# OpenCover UI analysis results +OpenCover/ + +# Azure Stream Analytics local run output +ASALocalRun/ + +# MSBuild Binary and Structured Log +*.binlog + +# NVidia Nsight GPU debugger configuration file +*.nvuser + +# MFractors (Xamarin productivity tool) working folder +.mfractor/ + +# Local History for Visual Studio +.localhistory/ + +# BeatPulse healthcheck temp database +healthchecksdb + +# Backup folder for Package Reference Convert tool in Visual Studio 2017 +MigrationBackup/ + +# Ionide (cross platform F# VS Code tools) working folder +.ionide/ + +# Fody - auto-generated XML schema +FodyWeavers.xsd \ No newline at end of file diff --git a/MainScriptingObject.cs b/MainScriptingObject.cs new file mode 100644 index 0000000..6d3dba7 --- /dev/null +++ b/MainScriptingObject.cs @@ -0,0 +1,355 @@ +using System.Text.RegularExpressions; +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.Threading.Tasks; +using System.Diagnostics; + +namespace mScriptableCS25; + +public class MainScriptingObject : IDisposable +{ + SortedDictionary scrInp1 = new(StringComparer.OrdinalIgnoreCase); + SortedDictionary scrInp2 = new(StringComparer.OrdinalIgnoreCase); //This will have the STRIPUNPRINTABLES applied to it + string scriptSource = string.Empty; + string tempPath = Path.GetTempPath(); + Dictionary>? dctCache = null; + Dictionary dctFileCache = new(StringComparer.OrdinalIgnoreCase); + Random rn = new(); + List lstFilesToRemove = new(); + bool removedOldScripts = false; + + public void Dispose() + { + if (dctCache != null) + dctCache.Clear(); + } + + public bool HadErrors { get; set; } = false; + public bool DebugMode { get; set; } = false; + public bool UseCache { get; set; } = true; + public bool AllowRemovalOfOldScripts { get; set; } = true; + + public string ScriptSource + { + get { return scriptSource; } + set + { + scriptSource = CleanUserCode(value); + dctCache = new(); + } + } + + public string TempPath + { + get { return tempPath; } + set + { + string f = Path.Combine(value, "_test.txt"); + + if (!Directory.Exists(Path.GetDirectoryName(f))) + Directory.CreateDirectory(Path.GetDirectoryName(f)); + + try + { + using (var sw = new StreamWriter(f, false)) + { + sw.WriteLine(); + } + if (File.Exists(f)) + File.Delete(f); + } + catch + { + tempPath = Path.GetTempPath(); + } + } + } + + public bool SetScriptFromFile(string VBScriptPath) + { + var rv = false; + + if (dctFileCache.ContainsKey(VBScriptPath)) + { + scriptSource = dctFileCache[VBScriptPath].VbsScriptSource; + dctCache = dctFileCache[VBScriptPath].CacheDict; + rv = true; + } + else + { + if (!File.Exists(VBScriptPath)) + { + scriptSource = string.Empty; + dctCache = null; + rv = false; + } + else + { + var z = new MdlVbsSources(); + using (var sr = new StreamReader(VBScriptPath)) + scriptSource = sr.ReadToEnd(); + + z.VbsScriptSource = scriptSource; + dctCache = z.CacheDict; + dctFileCache[VBScriptPath] = z; + rv = true; + } + } + return rv; + } + + public void ClearScriptInputs() + { + scrInp1.Clear(); + scrInp2.Clear(); + } + + public void SetScriptInputs(Dictionary z) + { + foreach (var kvp in z) + { + scrInp1[kvp.Key] = kvp.Value; + scrInp2[kvp.Key] = StripUnprintables(kvp.Value); + } + } + + public void AddScriptInput(string VariableName, string Value) + { + scrInp1[VariableName] = Value; + scrInp2[VariableName] = StripUnprintables(Value); + } + + public void RemoveOldScripts() + { + if (AllowRemovalOfOldScripts && !removedOldScripts) + { + removedOldScripts = true; + foreach (var f0 in Directory.GetFiles(tempPath, "TmpVbsScript*.*")) + { + var fif = new FileInfo(f0); + + if (DateTime.UtcNow.Subtract(fif.LastWriteTimeUtc).TotalHours > 24) + try { File.Delete(f0); } catch { } + } + } + } + + public Dictionary RunScript() + { + var tStamp = string.Format("TmpVbsScript-{0:yyyyMMddHHmmssfff}-{1}", DateTime.Now, Guid.NewGuid().ToString("N").Substring(0, 12)); + var outFile = Path.Combine(tempPath, tStamp + ".txt"); + var scriptFile = Path.Combine(tempPath, tStamp + ".vbs"); + var iKey = ToGuid(string.Join('\t', scrInp2.ToArray())); + Dictionary toReturn = new(StringComparer.OrdinalIgnoreCase); + var retVals = string.Empty; + var varName = string.Empty; + var varVal = string.Empty; + + HadErrors = false; + lstFilesToRemove.Add(outFile); + lstFilesToRemove.Add(scriptFile); + if (UseCache && dctCache.ContainsKey(iKey)) + toReturn = dctCache[iKey]; + else + { + var genCodeHeader = new StringBuilder(); + var genCodeFooter = new StringBuilder(); + + RemoveOldScripts(); + + genCodeHeader.AppendLine("'*************************************************"); + genCodeHeader.AppendLine("'* VBScript generated by the mScript class *"); + genCodeHeader.AppendLine("'* for dynamic scripting of .NET applications *"); + genCodeHeader.AppendLine("'* this file can be safely delted. *"); + genCodeHeader.AppendLine("'* *"); + genCodeHeader.AppendLine("'* mScriptable was created by Don Smith *"); + genCodeHeader.AppendLine("'* *"); + genCodeHeader.AppendLine("'* You may use mScriptable however you like *"); + genCodeHeader.AppendLine("'* as long as you give credit to me (Don) for *"); + genCodeHeader.AppendLine("'* mScriptable. *"); + genCodeHeader.AppendLine("'* Revised in 2015 by KeyMotive LLC (Rich Deck) *"); + genCodeHeader.AppendLine("'*************************************************"); + + genCodeHeader.AppendLine("outFile = \"" + outFile + "\""); + //get our file I/O initialized. This assumes we have write + //access to the current directory. + genCodeHeader.AppendLine("Set oFsObj = CreateObject(\"Scripting.FileSystemObject\")"); + genCodeHeader.AppendLine("Set oFHnd = oFsObj.CreateTextFile(outFile, true)"); + + //a wrapper function with a shorter name to access the supplied inputs + genCodeHeader.AppendLine("Function iv(variableName)"); + genCodeHeader.AppendLine(" iv = inpVal(variableName)"); + genCodeHeader.AppendLine("End Function ' iv()"); + + //a function to allow the user script to access supplied inputs + genCodeHeader.AppendLine("Function inpVal(variableName)"); + genCodeHeader.AppendLine(" Select Case UCase(variableName)"); + + /* + This takes all of the script inputs and places them inside of a VBScript + Select Case statement in the inpVal() function so the supplied VBScript can + retrieve the values by name. + */ + + foreach (var kvp in scrInp1) + { + if (!string.IsNullOrWhiteSpace(kvp.Key)) + { + if (decimal.TryParse(kvp.Value, out _)) + varVal = kvp.Value.ToString(); + else + { + if (kvp.Value == null || Convert.IsDBNull(kvp.Value)) + varVal = string.Empty; + else + varVal = string.Format("\"{0}\"", kvp.Value.ToString().Replace("\"", "\"\"")); + } + + varVal = Regex.Replace(varVal, "(\r\n|\n\r|\r|\n)", "\"\n\""); + varName = "\"" + kvp.Key.ToUpper().Replace("\"", "\"\"") + "\""; + genCodeHeader.AppendLine(" Case " + varName); + genCodeHeader.AppendLine(" retVal = " + varVal); + } + } + + //finish the case/function + genCodeHeader.AppendLine(" Case Else"); + genCodeHeader.AppendLine(" retVal = \"\""); + genCodeHeader.AppendLine(" End Select"); + genCodeHeader.AppendLine(" inpVal = retVal"); + genCodeHeader.AppendLine("End Function ' inpVal()\n"); + + //subroutine allowing the script to return a variable + genCodeHeader.AppendLine("Sub return(varName, retVal)"); + genCodeHeader.AppendLine(" While InStr(1, retVal, vbNewLine, vbTextCompare) >= 1"); + genCodeHeader.AppendLine(" retVal = replace(retVal, vbNewLine, \"~NewLine~\")"); + genCodeHeader.AppendLine(" Wend"); + genCodeHeader.AppendLine(" oFHnd.WriteLine varName & vbTab & retVal"); + genCodeHeader.AppendLine("End Sub ' return()\n"); + + //close our output file handle + genCodeFooter.AppendLine("\n\noFHnd.Close"); + + //All code + using (var sw = new StreamWriter(scriptFile, false)) + sw.WriteLine(genCodeHeader.ToString() + scriptSource + genCodeFooter.ToString()); + + // Run the script! + try + { + using (var px = new Process()) + { + var pInfo = new ProcessStartInfo() { FileName = "wscript.exe", Arguments = scriptFile }; + + px.StartInfo = pInfo; + px.Start(); + + if (!px.HasExited) + px.WaitForInputIdle(); + px.WaitForExit(60000); + + if (!px.HasExited) + { + HadErrors = true; + px.Kill(); + } + } + + if (File.Exists(outFile)) + { + using (var sr = new StreamReader(outFile)) + retVals = sr.ReadToEnd(); + } + + toReturn.Clear(); + foreach (var f0 in Regex.Split(retVals, "(\r\n|\n\r|\r|\n)")) + { + if (f0.Length >= 3 && f0.IndexOf('\t') > 0) + { + var nvp = f0.Split('\t'); + + nvp[1] = Regex.Replace(nvp[1], "\x7eNewLine\x7e", "\n"); + toReturn[nvp[0]] = nvp[1]; + } + } + + if (UseCache) + dctCache[iKey] = toReturn; + } + catch (Exception ex) + { + using (var sw = new StreamWriter(outFile, true)) + sw.WriteLine(ex.ToString()); + } + } + return toReturn; + } + + + #region "Maint routines" + string CleanUserCode(string ScriptCode) + { + string workCode = ScriptCode; + Regex? re = null; + string inpVal_re = @"Function\s+inpVal\s*?\([^)]+\)(.*?)End\s+Function"; + string iv_re = @"Function\s+iv\s*?\([^)]+\)(.*?)End\s+Function"; + string return_re = @"Sub\s+return\s*?\([^)]+\)(.*?)End\s+Sub"; + + //remove conflicting "inpVal" functions + re = new Regex(inpVal_re, RegexOptions.Singleline | RegexOptions.IgnoreCase); + if (re.IsMatch(workCode)) + workCode = re.Replace(workCode, ""); + + //remove conflicting "iv" functions + re = new Regex(iv_re, RegexOptions.Singleline | RegexOptions.IgnoreCase); + if (re.IsMatch(workCode)) + workCode = re.Replace(workCode, ""); + + //remove conflicting "return" subroutine + re = new Regex(return_re, RegexOptions.Singleline | RegexOptions.IgnoreCase); + if (re.IsMatch(workCode)) + workCode = re.Replace(workCode, ""); + + return workCode; + } + + string StripUnprintables(string inp) + { + var rv = Regex.Replace(inp, "[^\x20-\x7E]", " "); + rv = Regex.Replace(rv, " +", " ").Trim(); + return rv; + } + + Guid ToGuid(string strToHash) + { + var gx = Guid.Empty; + using (var mD = System.Security.Cryptography.MD5.Create()) + { + var stringBuilder = new StringBuilder(); + byte[] array = mD.ComputeHash(Encoding.UTF8.GetBytes(strToHash)); + for (int i = 0; i < array.Length; i++) + stringBuilder.Append(array[i].ToString("X2")); + + gx = Guid.Parse(stringBuilder.ToString()); + } + return gx; + } + + #endregion + + #region "Models and Such" + internal class MdlVbsSources : IDisposable + { + public void Dispose() + { + CacheDict.Clear(); + } + + public string VbsScriptSource { get; set; } = string.Empty; + public Dictionary> CacheDict { get; set; } = new(); + } + #endregion + +} diff --git a/mScriptableCS25.csproj b/mScriptableCS25.csproj new file mode 100644 index 0000000..3ecb777 --- /dev/null +++ b/mScriptableCS25.csproj @@ -0,0 +1,16 @@ + + + + net9.0-windows + enable + enable + 1.2.0.6 + 1.2.0.6 + 1.0.0.6 + + + + + + + diff --git a/mScriptableCS25.sln b/mScriptableCS25.sln new file mode 100644 index 0000000..30dbade --- /dev/null +++ b/mScriptableCS25.sln @@ -0,0 +1,25 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 17 +VisualStudioVersion = 17.14.36623.8 d17.14 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "mScriptableCS25", "mScriptableCS25.csproj", "{F094B057-CB4E-4A97-9F7D-BD900039B9BF}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {F094B057-CB4E-4A97-9F7D-BD900039B9BF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {F094B057-CB4E-4A97-9F7D-BD900039B9BF}.Debug|Any CPU.Build.0 = Debug|Any CPU + {F094B057-CB4E-4A97-9F7D-BD900039B9BF}.Release|Any CPU.ActiveCfg = Release|Any CPU + {F094B057-CB4E-4A97-9F7D-BD900039B9BF}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {59B320B6-5D4C-475F-B0A5-30BBBAF68F02} + EndGlobalSection +EndGlobal