mattcan

did:3:bafyreihrkkiagg6jit2xuxla4lq4vulvloti5qjvzkbvpczgabf6u3uvvq

mattcan

Keybase proof

I hereby claim:

• I am mattcan on github.
• I am mattcan (https://keybase.io/mattcan) on keybase.
• I have a public key ASCN7XUd8jQvMW1xW91fHqqB17fMV3-2uBZZ_ySs63KzAAo

To claim this, I am signing this object:

mattcan

{
  "sets": {
    "HS": "hgss1",
    "UL": "hgss2",
    "UD": "hgss3",
    "TM": "hgss4",
    "CL": "col1",
    "PR-BLW": "bwp",
    "BLW": "bw1",
    "EPO": "bw2",

mattcan

• Finding Response.Redirect where only one parameter is used (this is imperfect)

  Response.Redirect\([^,]+\);

mattcan

' Needs error checking and to handle more than just strings
' Usage:
'   StringFormat("My {2} dogs are {0}, {3}, and {1}.", "Dumbo", "Tim", "3", "Marsha")
Function StringFormat(ByVal ParseTemplate As String, ByVal Arg As String, ParamArray Args() As Variant) As String
    
    Dim lastItemIndex As Integer, combinedArgs() As Variant
    
    ' Combine the passed in arguments
    If Not UBound(Args) < LBound(Args) Then
        ReDim combinedArgs(0 To UBound(Args) + 1)

mattcan

' Make sure you've referenced the Microsoft Scripting Runtime library in your project
' In the VBA Editor: Tools > References...
Function TextStreamFactory(ByVal NewFileName As String) As Scripting.TextStream
    Dim fs As New Scripting.FileSystemObject
    Dim ts As Scripting.TextStream
    Set ts = fs.CreateTextFile(NewFileName)
    
    Set TextStreamFactory = ts
End Function

mattcan

Sub FindValue()

    Dim ws As Excel.Worksheet
    Set ws = ActiveSheet
    
    Dim i As Integer, lastRow As Integer
    lastRow = 328
    
    Dim fromCol As String, toCol As String, field As String, delim As String
    fromCol = "C"

mattcan

Sub SplitColumn( _
    ByVal LastRow As Long, _
    ByVal DataCol As String, _
    ByVal FirstPartCol As String, _
    ByVal SecondPartCol As String, _
    ByVal DelimCharacter As String _
)

    Dim data_col As String, col_one As String, col_two As String, delimiter As String
    data_col = DataCol

mattcan

GRANT EXECUTE ON SCHEMA :: <schema here> TO <user/role here>;

mattcan

++++++++++        set loop counter to ten
  [
    >>>>+++       increase 5th cell by 3
    <<<<-         decrease loop counter
  ]
>>>>++            increase 5th cell by 2 to make the 'Space' ASCII code
<<<<++++++++++    reuse 1st cell as loop counter increase to ten
  [
    >+++++        increase 2nd cell by 5
    >+++++        increase 3rd cell by 5