Esteve Castells estevecastells

## Console function to select all checkboxes in a page
(function() {
    var aa = document.querySelectorAll("input[type=checkbox]");
    for (var i = 0; i < aa.length; i++){
        aa[i].click();
    }
})()

## Migrate domain to another domain's subfolder
<IfModule mod_rewrite.c>
  RewriteEngine On
  RewriteCond %{HTTP_HOST} ^old\.info$ [OR]
  RewriteCond %{HTTP_HOST} ^www\.old\.info$
  RewriteRule (.*)$ https://new.com/path/$1 [R=301,L]
</IfModule>

## VBA Regex to find special chars in Excel
Function RegExCheck(objCell As Range, strPattern As String)

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True
    RegEx.Pattern = strPattern

    If RegEx.Replace(objCell.Value, "") = objCell.Value Then
        RegExCheck = 0
    Else

## Regex blacklist of words
2 girls 1 cup|2g1c|4r5e|5h1t|5hit|5ht|666|@$$|a s s|a s shole|a55|a55hole|a_s_s|abbo|abeed|abuse|acrotomophilia|addicts|aeolus|africoon|ahole|alabama hot pocket|alaskan pipeline|alligator bait|alligatorbait|amcik|anal|analannie|analprobe|analsex|andskota|anilingus|anus|apeshit|ar5e|arabush|arabushs|areola|areole|argie|arian|armo|armos|aroused|arrse|arschloch|arse|arsehole|aryan|ash0le|ash0les|asholes|ass monkey|ass|ass-fucker|ass-hat|ass-pirate|assbag|assbagger|assbandit|assbang|assbanged|assbanger|assbangs|assbite|assblaster|assclown|asscock|asscowboy|asscracker|asses|assface|assfuck|assfucker|assfukka|assgoblin|assh0le|assh0lez|asshat|asshead|assho1e|asshole|assholes|assholz|asshopper|asshore|assjacker|assjockey|asskiss|asskisser|assklown|asslick|asslicker|asslover|assman|assmaster|assmonkey|assmunch|assmuncher|assnigger|asspacker|asspirate|asspuppies|assrammer|assranger|assshit|assshole|asssucker|asswad|asswhole|asswhore|asswipe|asswipes|auto erotic|autoerotic|ayir|azazel|azz|azzhole|b a s t a r d|b i t c

## Blacklist in English
2 girls 1 cup
2g1c
4r5e
5h1t
5hit
5ht
666
@$$
a s s
a s shole

## List of Stopwords (English)
i
me
my
myself
we
our
ours
ourselves
you
your

## Open two instances of Screaming Frog
### Open terminal, paste this

open -n /Applications/Screaming\ Frog\ SEO\ Spider.app/

## Sort string alphabetically in Excel VBA
Function fncSortStr(strPassed As String) As String
Dim Temp As String
Dim I As Integer

While Len(strPassed)
    Temp = Left(strPassed, 1)

        For I = 2 To Len(strPassed)
            If Mid(strPassed, I, 1) < Temp Then
                Temp = Mid(strPassed, I, 1)

## Regex list
### Regex for getting everything after last trailing slash for URLs

(?!.*/).+

### Get something inside parenthesis

/\(([^)]+)\)/

### Match 9 numbers (or other quantity of numbers)

## SERP Extractor
javascript:(function()%7Bfunction getParameterByName(e%2Ct)%7Be%3De.replace(%2F%5B%5C%5B%5D%2F%2C"%5C%5C%5B").replace(%2F%5B%5C%5D%5D%2F%2C"%5C%5C%5D")%3Bvar n%3Dnew RegExp("%5B%5C%5C%3F%26%5D"%2Be%2B"%3D(%5B%5E%26%23%5D*)")%2Cr%3Dn.exec(t%3D%3Dtrue%3Flocation.hash.replace("%23"%2C"%3F")%3Alocation.search)%3Bif(r%3D%3Dnull%26%26t%3D%3Dfalse)%7Breturn getParameterByName(e%2Ctrue)%7Delse%7Breturn r%3D%3Dnull%3F""%3AdecodeURIComponent(r%5B1%5D.replace(%2F%5C%2B%2Fg%2C" "))%7D%7Dstr%3D"<style type%3D%27text%2Fcss%27>body%7Bcolor%3A%23000%3Bbackground-color%3A%23fff%3Bmargin%3A0%3Bpadding%3A0%3Bfont-family%3Aarial%2Chelvetica%2Csans-serif%3Bfont-size%3A82%25%7D*%7Bfont-weight%3A400%3Bcolor%3A%23000%7Dh3%2Ch4%2Ch5%2Ch6%7Bmargin%3A0 0 15px%3Bpadding%3A0%7D%23rt%7Bfont-size%3A12px%3Bwidth%3A500px%7Dtable%2Ctd%2Cth%2Ctr%7Bfont-size%3A1em%3Boverflow%3Ahidden%3Btext-overflow%3Aellipsis%3Bword-wrap%3Abreak-word%7Dtextarea%7Bwidth%3A100%25%7Dth%7Bbackground-color%3A%23eee%3Bcolor%3A%23000%3Bfont-weight%3A700%7Dtd a%7Bwidt
	(function() {
	var aa = document.querySelectorAll("input[type=checkbox]");
	for (var i = 0; i < aa.length; i++){
	aa[i].click();
	}
	})()
	<IfModule mod_rewrite.c>
	RewriteEngine On
	RewriteCond %{HTTP_HOST} ^old\.info$ [OR]
	RewriteCond %{HTTP_HOST} ^www\.old\.info$
	RewriteRule (.*)$ https://new.com/path/$1 [R=301,L]
	</IfModule>
	Function RegExCheck(objCell As Range, strPattern As String)

	Dim RegEx As Object
	Set RegEx = CreateObject("VBScript.RegExp")
	RegEx.Global = True
	RegEx.Pattern = strPattern

	If RegEx.Replace(objCell.Value, "") = objCell.Value Then
	RegExCheck = 0
	Else
	### Open terminal, paste this

	open -n /Applications/Screaming\ Frog\ SEO\ Spider.app/
	Function fncSortStr(strPassed As String) As String
	Dim Temp As String
	Dim I As Integer

	While Len(strPassed)
	Temp = Left(strPassed, 1)

	For I = 2 To Len(strPassed)
	If Mid(strPassed, I, 1) < Temp Then
	Temp = Mid(strPassed, I, 1)
	### Regex for getting everything after last trailing slash for URLs

	(?!.*/).+

	### Get something inside parenthesis

	/\(([^)]+)\)/

	### Match 9 numbers (or other quantity of numbers)