GIS II: Cartography

Spring 2016  -  LINK TO WWU CANVAS PAGE for Syllabus, Schedule & Assignments

SAL Links

ESRI Books folder (J:\SAL_info\esri_misc\esri_books)
ESRI Styles:                   C:\Program Files (x86)\ArcGIS\Desktop10.0\Styles\
ESRI Picture Symbols:      C:\Program Files (x86)\ArcGIS\Desktop10.0\Styles\Pictures\




PROPER CASE Code (also adding a carriage return and the word "Island" (copy paste into a label text string expression - editing field names, etc. as desired):

Function FindLabel ([Name]) FindLabel = PCase([Name]) & VBCR & "Island" End Function Function PCase(strInput) Dim iPosition Dim iSpace Dim strOutput iPosition = 1 Do While InStr(iPosition, strInput, " ", 1) <> 0 iSpace = InStr(iPosition, strInput, " ", 1) strOutput = strOutput & UCase(Mid(strInput, iPosition, 1)) strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition)) iPosition = iSpace + 1 Loop strOutput = strOutput & UCase(Mid(strInput, iPosition, 1)) strOutput = strOutput & LCase(Mid(strInput, iPosition + 1)) PCase = strOutput End Function