View 0d8966d54a43723ccb464492879ef94961e1d35c
This file has been truncated, but you can view the full file.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
N4IgbghgNgrgpiAXKAzgCwgDxUg2qjJEAZggAYA2MgFgBMBWCe26gTmrgoCYB2ZgY1oAzWvwBG9OKzgRitVvTJCm9EABoQAS1pFSlGgyYt2nXgOGiJUmXIVKV6kACc4ABwD2AMRhQoAOQgAWwREEDQAF1cogHoKADoyAE8YJxg0GAB3CEd+dwA7cLgCpFBwzWCALXyQkABBFE0IaIAVdwBrRPdHWjcinrz+TTgcZABfDThMfjcy/IAZdwBzRc08xaIAZWbagGEAaQARACUASQA1AFEjx1SC8rgzuCcG/KIzgA4QUfGCbNCeIT0VhCMhiIT8HgUVgKYgARggYi4YlhfHoPDIPDgIiEXAoEGk7y4rFhjm0RABQJBYIhUJh8MRyNR6Mx2Nx+LghOJNzcXh8/iCNQAEnAju4ALLuaKLCAoAC04XctHcmhQ4Ry+UKxWQIDKlWqRHqjRa7U63V6eX6g2GJXGIEm01cszyC2Wq3WoS2u0Op0u1w0t11DyeLzyb0+3zUv10/CEsNoXGoPFoxF4NB4xDI4kxFGoymJEFh1HeZAgTC4ynIpJ0oWIMbjCaTKfRiYzWc4ufx8MLxdL9HLpbI3I83l8AWCRAlgU0ACtNJp+GhNItJYEwGg5UExDKUBAlU5ZUIXOhgnlZYsnO4YK5ZegYEIhFA4LLXBfp3B+GqNLkCkU1drA1UeQ1LUwROPOTR+HAGQAPoAJruE4bRmq4fRFFaIzALa9ozJo8xLCsaybNs+zHOcVw3DAdzBI8zy4aGoQfF8PwgOgfwgO81Cwlwu7UPQfHsMQ7xiD2XD0GI1BkBm1D8BwZDlmI0hcEiihVkQHFcTxfFAtQgnCSWoniZJNAyXAclCApcBKRIg7+jyI78uOoS0OUmjhGBspgCgUoyje4QQE4hROOqP5aqU9yAcBoHgdEkEwfBiEUVRQa0a8DGfBoPQoRaaFDBhWFTDheGuoRHrEd6ZHXBGUahMwWLEKwxA4hA0xidpEAcWQtA8OiBbKWwkl0GQrBJqpNU |
View XMLJSONbyGAS.gs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 { |
View .block
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
license: gpl-3.0 | |
height: 400 | |
scrolling: no | |
border: no |
View code.gs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function doGet(e) { | |
var template = HtmlService.createTemplateFromFile('ht'); | |
// Build and return HTML in IFRAME sandbox mode. | |
return template.evaluate(); | |
} | |
function getThreads(options) { | |
View cDbab.cls
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
View gist:ab8d86ce1bfb10a81121
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' 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 |
View dbAbstraction.vba
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
View custommapping.js
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
View deadDropping.vba
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
View scriptDbCom.xml
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<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" /> |
NewerOlder