The Magic of Sigils

3 Comments

• 

  Diana

  February 5, 2025 at 8:42 am Reply

  This is amazing. I have recently made my own set of runes and my working with those! I realized I have always been drawn to symbols and feel that they hold some information about my past lives and ancestors! Thank you ! Diana

• 

  Tony Davis

  March 8, 2025 at 4:28 pm Reply

  Here’s an Excel macro program that will remove the vowels (and include using the special rules for the “y” and “w” vowels) and also remove the duplicate consonants.
  Step 1: Open a new Excel workbook.
  Step 2: Press – to open the Microsoft Visual Basic for Applications Editor window.
  Step 3: Select ‘Insert’ and then select ‘Module.’
  Step 4: Paste the following code into the large empty window.
  Step 5: Go to a worksheet and input your intention into cell A3.
  Step 6: Go to cell A6 and input the following formula: =RemoveVowels(A3).
  Cell A6 will now take the sentence you wrote in cell A3, remove the vowels and spaces, and capitalize the output.
  Step 7: Go to cell A9 and input the following formula: =RemoveDuplicateConsonants(A6).
  Cell A9 will now take the sentence you wrote in cell A3, remove the vowels, duplicate consonants and spaces, and capitalize the output.
  Step 8: Save the file as a macro enabled workbook (i.e., with an xlsm extension).

  Option Explicit
  Function RemoveVowels(ByVal inputStr As String) As String
  Dim i As Integer
  Dim char As String
  Dim result As String
  Dim nextChar As String

  ‘ Define vowels
  Const vowels As String = “AEIOUaeiou”

  ‘ Initialize result
  result = “”

  ‘ Loop through each character in the string
  For i = 1 To Len(inputStr)
  char = Mid(inputStr, i, 1)

  ‘ Get the next character if it exists
  If i < Len(inputStr) Then
  nextChar = Mid(inputStr, i + 1, 1)
  Else
  nextChar = ""
  End If

  ' Determine if y or w is a vowel or consonant based on its position
  If char ” ” Then ‘ Ignore spaces
  If (char = “y” Or char = “Y” Or char = “w” Or char = “W”) Then
  If InStr(vowels, nextChar) > 0 Then
  ‘ y or w is a consonant when before a vowel
  result = result & char
  End If
  ElseIf InStr(vowels, char) = 0 Then
  ‘ Append consonants only
  result = result & char
  End If
  End If
  Next i

  ‘ Convert the result to uppercase before returning it
  RemoveVowels = UCase(result)
  End Function

  Function RemoveDuplicateConsonants(ByVal inputStr As String) As String
  Dim i As Integer
  Dim char As String
  Dim result As String
  Dim seen As String

  ‘ Initialize result and seen characters
  result = “”
  seen = “”

  ‘ Loop through each character in the string
  For i = 1 To Len(inputStr)
  char = Mid(inputStr, i, 1)

  ‘ Ignore spaces and add character if not seen before
  If char ” ” And InStr(seen, char) = 0 Then
  result = result & char
  seen = seen & char
  End If
  Next i

  ‘ Convert the result to uppercase before returning it
  RemoveDuplicateConsonants = UCase(result)
  End Function

  Sub ProcessText()
  Dim ws As Worksheet
  Set ws = ActiveSheet

  ‘ Step 1: Remove vowels and store in cell A15 (without spaces and in uppercase)
  ws.Range(“A15”).Value = RemoveVowels(ws.Range(“A12”).Value)

  ‘ Step 2: Remove duplicate consonants and store in cell A18 (without spaces and in uppercase)
  ws.Range(“A18”).Value = RemoveDuplicateConsonants(ws.Range(“A15”).Value)
  End Sub

• 

  Tony Davis

  March 8, 2025 at 4:28 pm Reply

  Here’s a program for the free GOOGLE SHEETS application that will remove the vowels (and include using the special rules for the “y” and “w” vowels) and also remove the duplicate consonants.
  GOOGLE SHEETS is a free online spreadsheet application that runs inside a web browser like Google Chrome, Microsoft Edge, and Mozilla Firefox.
  Step 1: Type “Google Sheets” inside the address bar of the Chrome browser, and go to the Google Sheets webpage. Sign in with your Google user name and password.
  Step 2: After the Sheets online spreadsheet opens, click on Extensions and then click on Apps Script. A second tab will appear with a programming editor window, but the first tab is still there immediately to the left of the new tab.
  It’ll have the following code inside the programming window:

  1 function myFunction() {
  2
  3 }
  4

  Step 3: Paste the following code into the programming editor window. MAKE SURE YOU OVERWRITE THE EXISTING CODE IN THAT WINDOW.
  Step 4: Click on the Save button that looks like a floppy disk drive.
  Step 5: Click on the Run button.
  Step 6: Go back to the original Google Sheets tab and input your stated intention into cell A3 and hit . The output should automatically appear in cells A6 and A9.
  Step 7: Cell A6 removes the vowels and capitalizes the output. Cell A9 removes both the vowels and duplicate consonants and capitalizes the output.
  Step 8: Every time you update the contents of cell A3, the other two cells should update automatically. This works only if you make actual changes to the sentence in cell A3. Just hitting the Enter button on your keyboard is not enough to force an update.
  Step 9: IMPORTANT: Every time you reopen this file in the future, you will need to go to Extensions > Apps Script and click on the Run button to make it run in the background.

  function removeVowels(inputStr) {
  if (!inputStr || typeof inputStr !== “string”) return “”; // Handle empty or non-string inputs

  var vowels = “AEIOUaeiou”;
  var result = “”;

  for (var i = 0; i < inputStr.length; i++) {
  var char = inputStr[i];
  var nextChar = (i < inputStr.length – 1) ? inputStr[i + 1] : "";

  // Keep spaces
  if (char === " ") {
  result += char;
  continue;
  }

  // Handling 'y' and 'w' as consonants/vowels based on next character
  if (char === "y" || char === "Y" || char === "w" || char === "W") {
  if (vowels.includes(nextChar)) {
  result += char; // Keep 'y' or 'w' when followed by a vowel
  }
  } else if (!vowels.includes(char)) {
  result += char; // Append only consonants
  }
  }

  Logger.log("removeVowels result: " + result); // Log the result for debugging
  return result;
  }

  function removeDuplicateConsonants(inputStr) {
  if (!inputStr || typeof inputStr !== "string") return ""; // Handle empty or non-string inputs

  var result = "";
  var seen = new Set();

  for (var i = 0; i < inputStr.length; i++) {
  var char = inputStr[i];

  // Always keep spaces
  if (char === " ") {
  result += char;
  continue;
  }

  if (!seen.has(char)) {
  result += char;
  seen.add(char);
  }
  }

  Logger.log("removeDuplicateConsonants result: " + result); // Log the result for debugging
  return result;
  }

  function onEdit(e) {
  if (!e) {
  Logger.log("No event object detected. Please edit A3 to trigger this function.");
  return; // If no event object is passed, exit early
  }

  var sheet = e.source.getActiveSheet();
  var range = e.range;

  // Check if the edited cell is A3
  if (range.getA1Notation() === "A3") {
  var originalText = range.getValue();

  // Log the value of A3 for debugging
  Logger.log("Original text in A3: " + originalText);

  // Ensure it's treated as a string
  if (typeof originalText !== "string") originalText = String(originalText);

  // Step 1: Remove vowels and store result in A6
  var noVowelText = removeVowels(originalText);
  var cleanedNoVowelText = noVowelText.replace(/\s+/g, ' ').trim(); // Replace multiple spaces with one
  sheet.getRange("A6").setValue(cleanedNoVowelText.toUpperCase()); // Convert result to uppercase

  // Step 2: Remove duplicate consonants and store result in A9
  var finalText = removeDuplicateConsonants(cleanedNoVowelText);
  var cleanedFinalText = finalText.replace(/\s+/g, ' ').trim(); // Replace multiple spaces with one
  sheet.getRange("A9").setValue(cleanedFinalText.toUpperCase()); // Convert result to uppercase
  }
  }