GIS II: Cartography

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

SAL Links
Misc   

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