brucemcpherson

N4IgbghgNgrgpiAXKAzgCwgDxUg2qjJEAZggAYA2MgFgBMBWCe26gTmrgoCYB2ZgY1oAzWvwBG9OKzgRitVvTJCm9EABoQAS1pFSlGgyYt2nXgOGiJUmXIVKV6kACc4ABwD2AMRhQoAOQgAWwREEDQAF1cogHoKADoyAE8YJxg0GAB3CEd+dwA7cLgCpFBwzWCALXyQkABBFE0IaIAVdwBrRPdHWjcinrz+TTgcZABfDThMfjcy/IAZdwBzRc08xaIAZWbagGEAaQARACUASQA1AFEjx1SC8rgzuCcG/KIzgA4QUfGCbNCeIT0VhCMhiIT8HgUVgKYgARggYi4YlhfHoPDIPDgIiEXAoEGk7y4rFhjm0RABQJBYIhUJh8MRyNR6Mx2Nx+LghOJNzcXh8/iCNQAEnAju4ALLuaKLCAoAC04XctHcmhQ4Ry+UKxWQIDKlWqRHqjRa7U63V6eX6g2GJXGIEm01cszyC2Wq3WoS2u0Op0u1w0t11DyeLzyb0+3zUv10/CEsNoXGoPFoxF4NB4xDI4kxFGoymJEFh1HeZAgTC4ynIpJ0oWIMbjCaTKfRiYzWc4ufx8MLxdL9HLpbI3I83l8AWCRAlgU0ACtNJp+GhNItJYEwGg5UExDKUBAlU5ZUIXOhgnlZYsnO4YK5ZegYEIhFA4LLXBfp3B+GqNLkCkU1drA1UeQ1LUwROPOTR+HAGQAPoAJruE4bRmq4fRFFaIzALa9ozJo8xLCsaybNs+zHOcVw3DAdzBI8zy4aGoQfF8PwgOgfwgO81Cwlwu7UPQfHsMQ7xiD2XD0GI1BkBm1D8BwZDlmI0hcEiihVkQHFcTxfFAtQgnCSWoniZJNAyXAclCApcBKRIg7+jyI78uOoS0OUmjhGBspgCgUoyje4QQE4hROOqP5aqU9yAcBoHgdEkEwfBiEUVRQa0a8DGfBoPQoRaaFDBhWFTDheGuoRHrEd6ZHXBGUahMwWLEKwxA4hA0xidpEAcWQtA8OiBbKWwkl0GQrBJqpNU

brucemcpherson

function doPost(e) {
  // some defaults for standalone testing
  e = e || {postData:{contents:"<a>a</a>"}};
  e.queryString = e.queryString || "convert=xmltojson" ;  
  var type = e.queryString.toLowerCase().split("=");
 
  // convert xml to json
  var results = {status:"bad", error:"no errors"};
  try {

brucemcpherson

license: gpl-3.0
height: 400
scrolling: no
border: no

brucemcpherson

function doGet(e) {
  var template = HtmlService.createTemplateFromFile('ht');
  // Build and return HTML in IFRAME sandbox mode.
  return template.evaluate();
}


function getThreads(options) {
  

brucemcpherson

Option Explicit
' v1.0
' this one manages interaction with dbAbstraction on Google Apps Script
Private pDbId As String
Private pSiloId As String
Private pResult As cDbAbResult
Private poAuth2 As cOauth2
Private pEndPoint As String
Private pDbName As String
Private pBrowser As cBrowser

brucemcpherson

' use like this =displayAnOldDate(makeAnOldDate(1891,1,2))

Option Explicit
Public Function makeAnOldDate(y As Long, m As Long, d As Long) As Double
    makeAnOldDate = DateSerial(y, m, d)
End Function
Public Function displayAnOldDate(oldDate As Double) As String
    displayAnOldDate = Format(oldDate, "dd-mmm-yyyy")
End Function

brucemcpherson

Option Explicit
' this is how to use Google Apps Script dbabstration web app from Excel.
' version 0.2
' http://ramblings.mcpher.com/Home/excelquirks/dbabstraction
' http://ramblings.mcpher.com/Home/excelquirks/googleoauth2 for how to set up yor pc for oauth2

Public Sub demoDBAccess()
    Dim data As cJobject
    Dim siloId As String, places As cJobject, place As cJobject, result As cJobject, _
        sheetId, driveFolder As String, fusionId As String

brucemcpherson

function cCustomMapping(options) {

    // customize one of these for specific behavior during map usage
    // the functions below must do at least as shown in this skeleton - add your own in addition.

    var self = this;
    var pOptions = options,
        pData, pMap, pParams, pDb;
    self.getOptions = function () {
        return pOptions;

brucemcpherson

Option Explicit
'v1.1
' register this computer for deaddrop
Public Sub registerDeadDrop()
    Dim ds As cDataSet, cc As cCell, fName As String, sf As String
    Set ds = New cDataSet

    With ds.populateData(wholeSheet(cGeoCodingParameters), , , True, cCustomCode)
        Set cc = .cell("local register", "code")
        If Not cc Is Nothing Then

brucemcpherson

<gistThat info="this is a manifest for gistThat VBA code distribution  - see ramblings.mcpher.com for details">
    <manifest description="cDataset and associated classes and modules" contact="bruce@mcpher.com">
        <gists>
            <item1 gistid="3414216" version="" filename="cCell.cls" module="cCell" type="class" />
            <item2 gistid="3414216" version="" filename="cDataSet.cls" module="cDataSet" type="class" />
            <item3 gistid="3414216" version="" filename="cDataSets.cls" module="cDataSets" type="class" />
            <item4 gistid="3414216" version="" filename="cDataColumn.cls" module="cDataColumn" type="class" />
            <item5 gistid="3414216" version="" filename="cDataRow.cls" module="cDataRow" type="class" />
            <item6 gistid="3414216" version="" filename="cHeadingRow.cls" module="cHeadingRow" type="class" />
            <item7 gistid="3414346" version="" filename="" module="usefulStuff" type="module" />