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:
did:3:bafyreihrkkiagg6jit2xuxla4lq4vulvloti5qjvzkbvpczgabf6u3uvvq |
I hereby claim:
To claim this, I am signing this object:
{ | |
"sets": { | |
"HS": "hgss1", | |
"UL": "hgss2", | |
"UD": "hgss3", | |
"TM": "hgss4", | |
"CL": "col1", | |
"PR-BLW": "bwp", | |
"BLW": "bw1", | |
"EPO": "bw2", |
Finding Response.Redirect
where only one parameter is used (this is imperfect)
Response.Redirect\([^,]+\);
GRANT EXECUTE ON SCHEMA :: <schema here> TO <user/role here>; |
This are my cheat sheets that I have compiled over the years. Tired of searching Google for the same things, I started adding the information here. As time went on, this list has grown. I use this almost everyday and this Gist is the first bookmark on my list for quick and easy access.
I recommend that you compile your own list of cheat sheets as typing out the commands has been super helpful in allowing me to retain the information longer.
' 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) |
' 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 |
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" |