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