Convert state abbreviations to full name with VBScript

From Starfish ETL
Revision as of 22:42, 11 September 2015 by Jkuehlthau (talk | contribs) (Created page with "I'm sure there is a better way to do this, but I was in a hurry. <source lang="vb"> Function ScriptedField Dim strState If "@@ORG:BusinessAddrState@@" = "AL" Then strState...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

I'm sure there is a better way to do this, but I was in a hurry.

Function ScriptedField
	Dim strState
	If "@@ORG:BusinessAddrState@@" = "AL" Then
		strState = "Alabama"
	ElseIf "@@ORG:BusinessAddrState@@" = "AK" Then
		strState = "Alaska"
	ElseIf "@@ORG:BusinessAddrState@@" = "AZ" Then
		strState = "Arizona"
	ElseIf "@@ORG:BusinessAddrState@@" = "AR" Then
		strState = "Arkansas"
	ElseIf "@@ORG:BusinessAddrState@@" = "CA" Then
		strState = "California"
	ElseIf "@@ORG:BusinessAddrState@@" = "CO" Then
		strState = "Colorado"
	ElseIf "@@ORG:BusinessAddrState@@" = "CT" Then
		strState = "Connecticut"
	ElseIf "@@ORG:BusinessAddrState@@" = "DE" Then
		strState = "Delaware"
	ElseIf "@@ORG:BusinessAddrState@@" = "FL" Then
		strState = "Florida"
	ElseIf "@@ORG:BusinessAddrState@@" = "GA" Then
		strState = "Georgia"
	ElseIf "@@ORG:BusinessAddrState@@" = "HI" Then
		strState = "Hawaii"
	ElseIf "@@ORG:BusinessAddrState@@" = "ID" Then
		strState = "Idaho"
	ElseIf "@@ORG:BusinessAddrState@@" = "IL" Then
		strState = "Illinois"
	ElseIf "@@ORG:BusinessAddrState@@" = "IN" Then
		strState = "Indiana"
	ElseIf "@@ORG:BusinessAddrState@@" = "IA" Then
		strState = "Iowa"
	ElseIf "@@ORG:BusinessAddrState@@" = "KS" Then
		strState = "Kansas"
	ElseIf "@@ORG:BusinessAddrState@@" = "KY" Then
		strState = "Kentucky"
	ElseIf "@@ORG:BusinessAddrState@@" = "LA" Then
		strState = "Louisiana"
	ElseIf "@@ORG:BusinessAddrState@@" = "ME" Then
		strState = "Maine"
	ElseIf "@@ORG:BusinessAddrState@@" = "MD" Then
		strState = "Maryland"
	ElseIf "@@ORG:BusinessAddrState@@" = "MA" Then
		strState = "Massachusetts"
	ElseIf "@@ORG:BusinessAddrState@@" = "MI" Then
		strState = "Michigan"
	ElseIf "@@ORG:BusinessAddrState@@" = "MN" Then
		strState = "Minnesota"
	ElseIf "@@ORG:BusinessAddrState@@" = "MS" Then
		strState = "Mississippi"
	ElseIf "@@ORG:BusinessAddrState@@" = "MO" Then
		strState = "Missouri"
	ElseIf "@@ORG:BusinessAddrState@@" = "MT" Then
		strState = "Montana"
	ElseIf "@@ORG:BusinessAddrState@@" = "NE" Then
		strState = "Nebraska"
	ElseIf "@@ORG:BusinessAddrState@@" = "NV" Then
		strState = "Nevada"
	ElseIf "@@ORG:BusinessAddrState@@" = "NH" Then
		strState = "New Hampshire"
	ElseIf "@@ORG:BusinessAddrState@@" = "NJ" Then
		strState = "New Jersey"
	ElseIf "@@ORG:BusinessAddrState@@" = "NM" Then
		strState = "New Mexico"
	ElseIf "@@ORG:BusinessAddrState@@" = "NY" Then
		strState = "New York"
	ElseIf "@@ORG:BusinessAddrState@@" = "NC" Then
		strState = "North Carolina"
	ElseIf "@@ORG:BusinessAddrState@@" = "ND" Then
		strState = "North Dakota"
	ElseIf "@@ORG:BusinessAddrState@@" = "OH" Then
		strState = "Ohio"
	ElseIf "@@ORG:BusinessAddrState@@" = "OK" Then
		strState = "Oklahoma"
	ElseIf "@@ORG:BusinessAddrState@@" = "OR" Then
		strState = "Oregon"
	ElseIf "@@ORG:BusinessAddrState@@" = "PA" Then
		strState = "Pennsylvania"
	ElseIf "@@ORG:BusinessAddrState@@" = "RI" Then
		strState = "Rhode Island"
	ElseIf "@@ORG:BusinessAddrState@@" = "SC" Then
		strState = "South Carolina"
	ElseIf "@@ORG:BusinessAddrState@@" = "SD" Then
		strState = "South Dakota"
	ElseIf "@@ORG:BusinessAddrState@@" = "TN" Then
		strState = "Tennessee"
	ElseIf "@@ORG:BusinessAddrState@@" = "TX" Then
		strState = "Texas"
	ElseIf "@@ORG:BusinessAddrState@@" = "UT" Then
		strState = "Utah"
	ElseIf "@@ORG:BusinessAddrState@@" = "VT" Then
		strState = "Vermont"
	ElseIf "@@ORG:BusinessAddrState@@" = "VA" Then
		strState = "Virginia"
	ElseIf "@@ORG:BusinessAddrState@@" = "WA" Then
		strState = "Washington"
	ElseIf "@@ORG:BusinessAddrState@@" = "WV" Then
		strState = "West Virginia"
	ElseIf "@@ORG:BusinessAddrState@@" = "WI" Then
		strState = "Wisconsin"
	ElseIf "@@ORG:BusinessAddrState@@" = "WY" Then
		strState = "Wyoming"
	End If
	ScriptedField=strState
End Function