EM3R50N cemerson

Summary

I needed something to clean my HTML content when using in public/AI sources
I initially tried Sublime Text's "macros" but they apparently can't do search/replace which is insane (imo)
Finally got a Sublime Text "plugin" version working - it took bit of time to hash out because all online sources (including/especially AI) were wrong and gave back/non-functioning code.
Sharing in case others find useful.

Important

Camel Case Command

The command in the py file * * MUST * * be exactly camel case like this or it will silently fail and never show up in the cmd palette: If the file name is my_cool_plugin.py the PY class def should be like: MyCoolPluginCommand. So:

In Microsoft Excel, there isn't a built-in feature to delete all worksheets except one directly. However, you can use a VBA (Visual Basic for Applications) macro to achieve this. Here's a step-by-step guide:

Press Alt + F11 to open the VBA editor. In the editor, insert a new module by right-clicking on any item in the Project Explorer, selecting Insert, and then choosing Module. Copy and paste the following VBA code into the module: vba Copy code Sub DeleteAllSheetsExceptOne() Dim ws As Worksheet Dim wsToKeep As Worksheet

// Run in powershell as admin - change all ##values## as needed

$authorityCert = New-SelfSignedCertificate -Subject "CN=##MyCertFriendlyName##,OU=IT,O=##MyCompanyName## Certificate Authority,C=US" -KeyAlgorithm RSA -KeyLength 4096 -KeyUsage CertSign, CRLSign, DigitalSignature, KeyEncipherment, DataEncipherment -KeyExportPolicy Exportable -NotBefore (Get-Date) -NotAfter (Get-Date).AddYears(10)

	BEGIN TRANSACTION

	DECLARE @reviewMode int = '0';
	DECLARE @password nvarchar(max) = 'password_here';
	DECLARE @testStudyIDList NVARCHAR(MAX) = '2791,2793,2843,2844';
	DECLARE @testStudyID NVARCHAR(4000);
	DECLARE @TestStudyIDTable TABLE (ID NVARCHAR(4000));
	INSERT INTO @TestStudyIDTable(ID)
	SELECT Data FROM dbo.Split(@testStudyIDList, ',');

	/* ---------- Usage ----------------------------------
	string exceptionDetailsHtml = ExceptionHelper.GetExceptionDetailsInNicelyFormatted(ex, "HTML");
	Console.WriteLine(exceptionDetailsHtml);

	string exceptionDetailsText = ExceptionHelper.GetExceptionDetailsInNicelyFormatted(ex, "TEXT");
	Console.WriteLine(exceptionDetailsText);
	// ---------------------------------------------------- */
	public static class ExceptionHelper
	{
	public static string GetExceptionDetailsInNicelyFormatted(Exception ex, string displayFormat = "TEXT")

	function getRandomString(length) {
	const characters = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
	let result = '';
	const charactersLength = characters.length;
	for (let i = 0; i < length; i++) {
	result += characters.charAt(Math.floor(Math.random() * charactersLength));
	}
	return result;
	}

	BEGIN TRY
	-- Start a transaction
	BEGIN TRANSACTION;

	-- Your T-SQL statements go here
	-- Example:

	----- YOUR SQL WORK HERE

	-- If everything is successful, commit the transaction

	-- Step 1: Disable all foreign key constraints
	EXEC sp_msforeachtable 'ALTER TABLE ? NOCHECK CONSTRAINT ALL'

	-- Step 2: Generate delete statements for all tables
	-- This part will dynamically generate the delete statements
	DECLARE @sql NVARCHAR(MAX) = N'';

	-- Collect all table names in the current database
	SELECT @sql += 'DELETE FROM ' + QUOTENAME(s.name) + '.' + QUOTENAME(t.name) + '; '
	FROM sys.tables t

	;; Excel AutoHotkey Script: Extract Hyperlinks from Selected Cells \| cemerson 3/18/24
	;; Press 'Control+q' to activate.
	;; Note: Must be on same machine that Excel is running on - doesn't work over RDP/VNC.
	;; Helpful References:
	;; https://www.autohotkey.com/board/topic/150159-extracting-hyperlinks-from-excel-cells-using-com/
	;; https://www.youtube.com/watch?v=p5TNM8koMfw

	^q::
	try XL:=ComObjActive("Excel.Application")
	linkcount = 0

	async function fixChatGPTExport() {
	chatConf = (await invoke('get_app_conf')) \|\| {};
	actionsArea = document.querySelector('form>div>div>div');

	function shouldAddButtons(actionsArea) {
	// first, check if there's a "Try Again" button and no other buttons
	const buttons = actionsArea.querySelectorAll('button');

	const hasTryAgainButton = Array.from(buttons).some((button) => {
	return !/download-/.test(button.id);