NixonInnes

Function CAT(cell_range As range, delim As String) As String
    Dim CAT_iter As String
    Dim iter As Integer
    
    iter = 1
    For Each cell In cell_range
        If iter = cell_range.Count Then
            CAT_iter = CAT_iter & cell.Value
        Else
            CAT_iter = CAT_iter & cell.Value & delim

NixonInnes

Function ANNA_MAP(anna_text As String) As String
    Dim map As String
    Dim RegExp As Object
    Set RegExp = CreateObject("VBScript.RegExp")
    Dim aPattern As String
    Dim nPattern As String
    Dim cPattern As String
    
    aPattern = "[a-zA-Z]"
    nPattern = "[0-9]"

NixonInnes

Sub CombineSheets()
    Dim I As Integer
    
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    
    Sheets(2).range("A1").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).range("A1")

NixonInnes

# -*- coding: utf-8 -*-
"""
Created on Fri Jul  3 11:09:36 2015

@author: James.Innes
"""

import requests
import json
 

NixonInnes

; This is an AutoHotKey script designed to be used with Diablo III
; Pressing F1 will constantly activate skill 1, F2 will activate skill 2, F3 for 3, and F4 for 4
; The keys are togglable.

Thread, interrupt, 0

togF1 := 0
$F1::
togF1 := !togF1
if (togF1) {