first commit
This commit is contained in:
commit
bc0165e3ae
|
|
@ -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
|
||||||
|
|
@ -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
|
||||||
|
|
@ -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<string, string> scrInp1 = new(StringComparer.OrdinalIgnoreCase);
|
||||||
|
SortedDictionary<string, string> scrInp2 = new(StringComparer.OrdinalIgnoreCase); //This will have the STRIPUNPRINTABLES applied to it
|
||||||
|
string scriptSource = string.Empty;
|
||||||
|
string tempPath = Path.GetTempPath();
|
||||||
|
Dictionary<Guid, Dictionary<string, string>>? dctCache = null;
|
||||||
|
Dictionary<string, MdlVbsSources> dctFileCache = new(StringComparer.OrdinalIgnoreCase);
|
||||||
|
Random rn = new();
|
||||||
|
List<string> 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<string, string> 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<string, string> 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<string, string> 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("'* <don.c.smith@gmail.com> *");
|
||||||
|
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<Guid, Dictionary<string, string>> CacheDict { get; set; } = new();
|
||||||
|
}
|
||||||
|
#endregion
|
||||||
|
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,16 @@
|
||||||
|
<Project Sdk="Microsoft.NET.Sdk">
|
||||||
|
|
||||||
|
<PropertyGroup>
|
||||||
|
<TargetFramework>net9.0-windows</TargetFramework>
|
||||||
|
<ImplicitUsings>enable</ImplicitUsings>
|
||||||
|
<Nullable>enable</Nullable>
|
||||||
|
<AssemblyVersion>1.2.0.6</AssemblyVersion>
|
||||||
|
<FileVersion>1.2.0.6</FileVersion>
|
||||||
|
<Version>1.0.0.6</Version>
|
||||||
|
</PropertyGroup>
|
||||||
|
|
||||||
|
<Target Name="PreBuild" BeforeTargets="PreBuildEvent">
|
||||||
|
<Exec Command="if /I "$(ConfigurationName)" == "Release" c:\Misc\AutoVersionIncrement.exe "$(ProjectDir)"" />
|
||||||
|
</Target>
|
||||||
|
|
||||||
|
</Project>
|
||||||
|
|
@ -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
|
||||||
Loading…
Reference in New Issue