home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / FCT1_12 / FC_STR.HDR < prev    next >
Text File  |  1991-06-20  |  5KB  |  200 lines
  1. #output Force Tools 1.2 - String functions
  2.  
  3. *
  4. * return the complement of a string for descending indexing
  5. *
  6. function char decsend prototype
  7.    params const char str
  8.  
  9. *
  10. * return soundex code for string
  11. *
  12. function char(4) soundex prototype
  13.    params const char str
  14.  
  15. *****************
  16. * AllTrim(<CHAR>)
  17. *
  18. * Return a string with leading and trailing
  19. * spaces removed
  20. *
  21. FUNCTION CHAR AllTrim PROTOTYPE
  22.    PARAMS CONST CHAR
  23.    
  24. *************************
  25. * StrZero(<LONG>, <UINT>)
  26. *
  27. * Convert numeric to string with
  28. * leading spaces
  29. * 
  30. * Para 2 : Number of digits to return
  31. *
  32. FUNCTION CHAR StrZero PROTOTYPE
  33.    PARAMS VALUE ULONG, VALUE UINT
  34.  
  35. *--- return a token from a search string
  36. function char token prototype
  37.    params const char search_str, const char token_list, value uint token_no
  38.  
  39. *--- return number of tokens in a search string
  40. function uint num_token prototype
  41.    params const char search_str, const char token_list
  42.    
  43. *--- return initial position of a token
  44. function uint at_token prototype
  45.    params const char search_str, const char token_list, value uint token_no
  46.  
  47. *************************
  48. * CharXor(<CHAR>, <CHAR>)
  49. *
  50. * Return the XOR of two strings (Encrypt / Decrypt)
  51. *
  52. * Para 1 : String to En(De)Crypt
  53. * Para 2 : String to XOR with
  54. *
  55. FUNCTION CHAR CharXor PROTOTYPE
  56.    PARAMS CONST CHAR, CONST CHAR
  57.    
  58. ***********************
  59. * Upper_AllTrim(<CHAR>)
  60. *
  61. * Uppercase and alltrim a string
  62. *
  63. FUNCTION CHAR Upper_AllTrim PROTOTYPE
  64.    PARAMS CONST CHAR
  65.    
  66. ***********************
  67. * Lower_AllTrim(<CHAR>)
  68. *
  69. * Lowercase and alltrim a string
  70. *
  71. FUNCTION CHAR Lower_AllTrim PROTOTYPE
  72.    PARAMS CONST CHAR
  73.  
  74. *********************
  75. * Pad(<CHAR>, <UINT>)
  76. *
  77. * Pad right with spaces
  78. *
  79. * Para 1 : String to pad
  80. * Para 2 : number of spaces to add
  81. *
  82. FUNCTION CHAR Pad PROTOTYPE
  83.    PARAMS CONST CHAR, VALUE UINT
  84.    
  85. **********************************
  86. * Pad_Left(<CHAR>, <UINT>, <BYTE>)
  87. *
  88. * Pad left with specified char
  89. *
  90. * Para 1 : String to pad
  91. * Para 2 : number of para 3 to pad with
  92. * Para 3 : char to pad with
  93. *
  94. FUNCTION CHAR Pad_Left PROTOTYPE
  95.    PARAMS CONST CHAR, VALUE UINT, VALUE BYTE
  96.    
  97. **********************************
  98. * Pad_Right(<CHAR>, <UINT>, <BYTE>)
  99. *
  100. * Pad right with specified char
  101. *
  102. * Para 1 : String to pad
  103. * Para 2 : number of para 3 to pad with
  104. * Para 3 : char to pad with
  105. *
  106. FUNCTION CHAR Pad_Right PROTOTYPE
  107.    PARAMS CONST CHAR, VALUE UINT, VALUE BYTE   
  108.  
  109. *********************
  110. * Rat(<CHAR>, <CHAR>)
  111. *
  112. * Search from the right for a char
  113. *
  114. * Para 1 : string to find
  115. * Para 2 : string to search
  116. *
  117. FUNCTION UINT Rat PROTOTYPE
  118.    PARAMS CONST CHAR, CONST CHAR
  119.    
  120. *************************
  121. * Ltoc(<LOGICAL>, <CHAR>)
  122. *
  123. * Convert logical to a char
  124. *
  125. * Para 1 : logical
  126. * Para 2 : char's to use, example 'YN'
  127. *          first char is for .t.
  128. *
  129. FUNCTION CHAR Ltoc PROTOTYPE
  130.    PARAMS VALUE LOGICAL, CONST CHAR
  131.    
  132. **************
  133. * Dtos(<DATE>)
  134. *
  135. * Convert date to a char YYYYMMDD
  136. *
  137. FUNCTION CHAR Dtos PROTOTYPE
  138.    PARAMS VALUE DATE
  139.       
  140. **************
  141. * Pack(<CHAR>)
  142. *
  143. * Pack a string containing numeric digits to
  144. * a special BCD like format resulting in half the len
  145. *
  146. * Example : X = Pack('01234567')    && Pack numeric digits
  147. *           ? LEN(x)                && 4
  148. *
  149. FUNCTION CHAR Pack_Str PROTOTYPE
  150.    PARAMS CONST CHAR
  151.    
  152. ****************
  153. * UnPack(<CHAR>)
  154. *
  155. * Unpack a packed string to the
  156. * orginal digits
  157. *
  158. * Example :   X = Pack('013400')
  159. *             Y = UnPack(X)
  160. *             ? Y                   && 013400
  161. *
  162. FUNCTION CHAR UnPack_Str PROTOTYPE
  163.    PARAMS CONST CHAR
  164.  
  165. *******************
  166. * Empty_Str(<CHAR>)
  167. *
  168. * test if the len of a string is 0 or only contains spaces
  169. * This replaces if len(rtrim(ltrim(string))) = 0 to if empty_str(string)
  170. *
  171. FUNCTION LOGICAL Empty_Str PROTOTYPE
  172.    PARAMS CONST CHAR
  173.    
  174. *******************************
  175. * AtNum(<CHAR>, <CHAR>, <UINT>)
  176. *
  177. * Determing the para 3 apperaence of para 2 in para 1
  178. *
  179. * Para 1 : String to search
  180. * Para 2 : String to search with
  181. * Para 3 : Appereance 
  182. *
  183. FUNCTION UINT AtNum PROTOTYPE
  184.    PARAMS CONST CHAR, CONST CHAR, VALUE UINT
  185.  
  186. *************************************************
  187. * StrTran(<CHAR>, <CHAR>, <CHAR>, <UINT>, <UINT>)
  188. *
  189. * Search and replace within a character string
  190. *
  191. * Para 1 : String to search
  192. * Para 2 : String to locate
  193. * Para 3 : String to replace with
  194. * Para 4 : First occerence that will be replaced
  195. * Para 5 : Number of occerences to replace
  196. *
  197. FUNCTION CHAR StrTran PROTOTYPE
  198.    PARAMS CONST CHAR, CONST CHAR, CONST CHAR, VALUE UINT, VALUE UINT
  199.    
  200. * eof - fc_str.hdr