Tomás Tomamais

Wife, Coffee, Street Fighter, Coding, Tech, Pizza, Animes, Hot sauce, sometimes I blog and record videos here http://youtube.com/tomamais

Tomamais / checkUrlsInEdge.bas

Created January 30, 2026 19:00

VBA script to automate checks using Edge

	Option Explicit

	' Windows API for screenshots and window handling
	Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr)
	Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

	Sub AutomateAppCheck()
	Dim ws As Worksheet
	Dim lastRow As Long, i As Long
	Dim url As String, user As String, pass As String

Tomamais / json-flattening.ps1

Last active January 7, 2026 16:27

	# 1. Configuration
	$jsonInputPath = "C:\path\to\your\input.json"
	$outputPath = "C:\path\to\your\output.txt"

	# 2. Function to recursively flatten objects and arrays
	function Flatten-JsonObject ($Object, $Prefix = "") {
	$results = [ordered]@{}

	foreach ($property in $Object.PSObject.Properties) {
	# Construct the base key name (e.g., Person.Children)

Tomamais / dotnetlogviewer_wf.ps1

Created October 31, 2025 19:49

	<#
	.SYNOPSIS
	Reads a tab-separated .NET Core log file, displays it in a custom Windows Forms DataGridView,
	and provides a refresh button. Rows are color-coded based on the LogLevel.
	.NOTES
	This script requires a Windows OS environment to load the System.Windows.Forms and System.Drawing assemblies.
	#>

	param(
	[Parameter(Mandatory=$true)]

Tomamais / dotnetlogviewer.ps1

Last active October 31, 2025 19:21

	<#
	.SYNOPSIS
	Reads, parses, and displays a tab-separated log file in a filterable grid view,
	ordered by the most recent log entries.
	#>
	param(
	[Parameter(Mandatory=$true)]
	[string]$LogFilePath
	)

Tomamais / MSSQLSERVER_SOAP_Requests.sql

Last active June 18, 2025 19:32

	-- Enable OLE Automation Procedures if not already enabled.
	-- This is a server-wide setting and has security implications.
	-- EXEC sp_configure 'Ole Automation Procedures', 1;
	-- RECONFIGURE;
	-- GO

	-- Declare variables for the HTTP request
	DECLARE @url VARCHAR(255) = 'http://www.dneonline.com/calculator.asmx'; -- Example SOAP service URL
	DECLARE @soapAction VARCHAR(255) = 'http://tempuri.org/Add'; -- The SOAPAction header for the method
	DECLARE @xmlPayload NVARCHAR(MAX); -- The XML payload for the SOAP request

Tomamais / queryOracleAndExportToExcel.cs

Created April 29, 2024 18:32

	using System;
	using Oracle.ManagedDataAccess.Client;
	using OfficeOpenXml;
	using System.IO;

	namespace OracleConnectionExample
	{
	class Program
	{
	static void Main(string[] args)

Tomamais / modOracle.bas

Created April 29, 2024 17:51

	Sub ConnectToOracle()
	Dim conn As Object
	Dim cmd As Object
	Dim rs As Object
	Dim connString As String
	Dim sqlQuery As String
	Dim paramValue As String

	' Set connection string
	connString = "Provider=MSDAORA;Data Source=YourOracleDB;User ID=YourUsername;Password=YourPassword;"

Tomamais / sqlDbSyncher.cs

Last active February 21, 2024 18:08

	using System;
	using System.Collections.Generic;
	using System.Data.SqlClient;
	using System.Linq;

	class DatabaseSyncApp
	{
	static string sourceConnectionString = "your_source_connection_string";
	static string destinationConnectionString = "your_destination_connection_string";

Tomamais / modFuzzyPercent.bas

Last active February 8, 2024 16:39

	Function FuzzyPercent(ByVal String1 As String, _
	ByVal String2 As String, _
	Optional Algorithm As Integer = 3, _
	Optional Normalised As Boolean = False) As Single
	'*************************************
	' Return a % match on two strings
	'*************************************
	Dim intLen1 As Integer, intLen2 As Integer
	Dim intCurLen As Integer
	Dim intTo As Integer

Tomamais / FuzzyPercent.sql

Last active February 8, 2024 16:43

	CREATE FUNCTION dbo.FuzzyPercent
	(
	@String1 NVARCHAR(MAX),
	@String2 NVARCHAR(MAX),
	@Algorithm INT = 3,
	@Normalised BIT = 0
	)
	RETURNS FLOAT
	AS
	BEGIN