home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tools.zip / UPPERSTR.FUN < prev    next >
Text File  |  1988-10-22  |  3KB  |  62 lines
  1. UPPERSTR  FUNCTION(INPUT_STR)
  2. !---------------------------------------------------------------------!
  3. !  THIS FUNCTION WILL CONVERT THE FRIST LETTER IN EACH WORD IN A      !
  4. !  STRING, BUT NOT IN THE EXCEPTION LIST TO UPPERCASE.              !
  5. !                                      !
  6. !  TO CALL THIS FUNCTION                          !
  7. !                                      !
  8. !     FIELDIN = UPPERSTR(FIELDIN)                      !
  9. !                                      !
  10. !  WHERE:                                  !
  11. !                                      !
  12. !     FIELDIN = THE STRING TO CONVERT .                  !
  13. !---------------------------------------------------------------------!
  14. !     COMPILER: CLARION V2.0                          !
  15. !    SYSTEM: N/A                              !
  16. !     FUNCTION: UPPERSTR                          !
  17. !  ENVIRONMENT: CALLED HAS A FUNCTION                      !
  18. !   REFERENCES: INPUT STRING                          !
  19. !---------------------------------------------------------------------!
  20. !  HISTORY:                                  !
  21. !    WRITTEN   10/20/88 BY DOMINICK G. GALLUCCI               !
  22. !    MODIFIED  00/00/00                           !
  23. !---------------------------------------------------------------------!
  24.  
  25. INPUT_STR  STRING(80)
  26. EXCEPTION  STRING('IS A AN AND FOR IN OR THE')
  27. WORKWORD   STRING(20)
  28. WSTRING    STRING(80)
  29.  
  30.   CODE
  31.  
  32. !---------------------------------------------------------------------!
  33. ! INITIALIZE THE INPUT STRING                          !
  34. !---------------------------------------------------------------------!
  35.     INPUT_STR = LOWER(CLIP(INPUT_STR))      & '  '
  36. !INPUT_STR = CLIP(INPUT_STR)    & '  '
  37. !---------------------------------------------------------------------!
  38. ! CAPITALIZE THE FIRST WORD                          !
  39. !---------------------------------------------------------------------!
  40.      WORKWORD = UPPER(SUB(INPUT_STR,1,1)) & |
  41.          SUB(INPUT_STR,2,INSTRING(' ',INPUT_STR,1)-1)
  42.      WSTRING = CLIP(WORKWORD)
  43.      INPUT_STR = SUB(INPUT_STR,LEN(CLIP(WORKWORD))+2, |
  44.            LEN(CLIP(INPUT_STR))-LEN(CLIP(WORKWORD)))
  45. !---------------------------------------------------------------------!
  46. ! CAPITALIZE THE NEXT WORD                          !
  47. !---------------------------------------------------------------------!
  48.      LOOP WHILE LEN(CLIP(INPUT_STR)) <> 0
  49.        WORKWORD = UPPER(SUB(INPUT_STR,1,1)) & |
  50.            SUB(INPUT_STR,2,INSTRING(' ',INPUT_STR,1)-1)
  51. !---------------------------------------------------------------------!
  52. ! TEST FOR EXCEPTIONAL WORD                          !
  53. !---------------------------------------------------------------------!
  54.       IF INSTRING(LOWER(CLIP(WORKWORD)),EXCEPTION,1) <> 0
  55.          WORKWORD = LOWER(WORKWORD)
  56.       .                       !END IF
  57.        WSTRING = CLIP(WSTRING) & ' ' &    WORKWORD
  58.        INPUT_STR = SUB(INPUT_STR,LEN(CLIP(WORKWORD))+2, |
  59.          LEN(CLIP(INPUT_STR))-LEN(CLIP(WORKWORD)))
  60.      .                         !END LOOP
  61.      RETURN(CLIP(WSTRING))
  62.