bradland

Option Explicit

' Great Circle Distance using the Haversine formula
' coord1 / coord2 are strings like: "27.9506, -82.4572"
' Unit: "km" (default), "mi", "nmi"
' Returns Double, or CVErr(xlErrValue) on invalid input.
Public Function GreatCircleDistanceStr( _
    ByVal coord1 As String, _
    ByVal coord2 As String, _
    Optional ByVal Unit As String = "km" _

bradland

Sub GenerateWordDocsForReports()
    Dim wsConfig As Worksheet, wsReports As Worksheet
    Dim configList As ListObject, reportsList As ListObject
    Dim docFolder As String, reportName As String, cleanName As String
    Dim filePath As String, i As Long
    Dim wdApp As Object, wdDoc As Object
    
    ' Set references to tables
    Set wsConfig = ThisWorkbook.Sheets("Doc Gen")
    Set wsReports = ThisWorkbook.Sheets("Doc Gen")

bradland

Sub ProtectAllSheets()

    Dim ws As Worksheet
    Dim pwd As String

    pwd = InputBox("Enter password:")

    If pwd = "" Then
        MsgBox "Password entry was canceled or left blank. Exiting macro."
        Exit Sub

bradland

[ABS]
VALUE=1

[BRAKE_POWER_MULT]
VALUE=100

[CAMBER_LF]
VALUE=-6

[CAMBER_RF]

bradland

Sub SplitDataByCol()
    Dim lastRow As Long
    Dim sourceWorksheet As Worksheet
    Dim columnToSplitBy As Integer
    Dim columnCount As Long
    Dim uniqueValues As Variant
    Dim headerRange As Range
    Dim splitColumnRange As Range
    Dim tempSheet As Worksheet
    Dim headerRowNumber As Integer

bradland

# Main script to accept command-line argument
param (
    [Parameter(Mandatory = $true)]
    [string]$XlsxFilePath
)

# Define the function to remove definedNames node from an XLSX file
function Remove-DefinedNames {
    param (
        [string]$XlsxFilePath

bradland

; Modified drivetrain.ini file for Assetto Corsa Alfa Romeo 33 Stradale
; (ks_alfa_33_stradale). Recommend you use the app Assetto Corsa Car Tuner to
; make a tuned clone of the base car, then copy/paste over the drivetrain.ini
; file in the cloned version.

[HEADER]
VERSION=3

[TRACTION]
TYPE=RWD                ; Wheel drive. Possible options: FWD (Front Wheel Drive), RWD (Rear Wheel Drive)

bradland

[HEADER]
VERSION=3

[TRACTION]
TYPE=RWD								; Wheel drive. Possible options: FWD (Front Wheel Drive), RWD (Rear Wheel Drive)

[GEARS]
COUNT=6									; forward gears number
GEAR_R=-3.273							; rear gear ratio
; forward gears ratios. must be equal to number of gears defined on count

bradland

module ShellScriptUtils
  class CursedReport
    def initialize(message = nil)
      @clear_commands = []
      @message = message
      update @message
    end

    def update(message)
      clear @message     # clear the current message

bradland

A12345 Jon Osterman
A23456 Walter Kovacs
A34567 Daniel Dreiberg

987 Dr. Manhattan
876 Rorshach
765 Night Owl

A12345 987
A23456 876