I hereby claim:
- I am jobrad on github.
- I am jobrad (https://keybase.io/jobrad) on keybase.
- I have a public key ASCZLctCsNJRq2FWO6H4H8btMYNQgGLkKfoUdaxsGyy7Hwo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
{ | |
"groups": {}, | |
"dials": { | |
"0": { | |
"id": 40, | |
"title": "AllThingsD", | |
"url": "http://allthingsd.com", | |
"thumbnail": "http://allthingsd.com/files/2013/03/d_allthingsdigital_240x36.png", | |
"ts_created": 1366995034, | |
"visits": 1, |
'Function saves cText in file, and returns 1 if successful, 0 if not | |
Public Function writeOut(cText As String, file As String) As Integer | |
On Error GoTo errHandler | |
Dim fsT As Object | |
Dim tFilePath As String | |
tFilePath = file + ".txt" | |
'Create Stream object | |
Set fsT = CreateObject("ADODB.Stream") |
Private Function wrapText(text As String, Optional wrapLength As Integer) As String | |
Dim x As Integer, newString() As String, preSplit() As String, mySplit() As String, maxWords As Long, y As Integer, finalString As String, isEnd As Boolean | |
'Default wraplength to 69 | |
If wrapLength = 0 Then wrapLength = 69 | |
x = 0 | |
y = 0 | |
z = 0 | |
'Check to see if ay wrapping should be done | |
If Len(text) > wrapLength Then |