API tools faq
paste
Advertisement
Guest User

Funciones para copia de registros de y desde string

a guest
Mar 23rd, 2016
89
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 1.89 KB | None | 0 0
raw download clone embed print report
  1. * Genera un cursor a partir de un string de definicion + datos tipo:
  2. *   Codigo I |Nombre C(15) |Direccion C(15)|Datos1 C(15) |Datos2 C(15) |Datos3 C(15) |Nrocui  I
  3. *   1        |JUAN PEREZ   |DIRECCION      |.NULL.       |.NULL.       |.NULL.       | 201130
  4. *   7        |MARIO LOPEZ  |.NULL.         |.NULL.       |OTRO DATO    |.NULL.       | 123456
  5. FUNCTION StrToDBF(sAlias, sDatos)
  6.  
  7. LOCAL sFields, sTmp, axFld[1], nFld, sFld, sType
  8.  
  9. SET MEMOWIDTH TO 1024
  10. sFields = STRTRAN(MLINE(sDatos, 1), "|", " NULL ,")
  11. sTmp = ADDBS(SYS(2023)) + "app.tmp"
  12. STRTOFILE(sDatos, sTmp)
  13.  
  14. CREATE CURSOR (sAlias) ( &sFields )
  15. APPEND FROM (sTmp) DELIMITED WITH CHARACTER "|"
  16. DELETE RECORD 1     && Titulos
  17.  
  18. FOR nFld = 1 TO AFIELDS(axFld)
  19.     sFld  = axFld[nFld, 1]
  20.     sType = axFld[nFld, 2]
  21.     IF sType=="C"
  22.         REPLACE (sFld) WITH .NULL. FOR &sFld =".NULL."
  23.     ENDIF
  24. NEXT
  25.  
  26. GO TOP
  27.  
  28. RETURN
  29.  
  30.  
  31.  
  32. #define CRLF CHR(13)+CHR(10)
  33. #define SEP  " |"
  34.  
  35. * Vuelca una tabla a un string separandola con | , ej:
  36. *   CODIGO |NOMBRE      |DIRECCION    |DATOS1   |DATOS2    |DATOS3    |NROCUI |
  37. *   6      |MARIO LOPEZ |DIRECCION #2 |.NULL.   |OTRO DATO |.NULL.    |123456 |
  38. *   3      |JUAN PEREZ  |DIRECCION    |CORRECTO |DATOS     |OTRO DATO |201130 |
  39.  
  40. FUNCTION DBFToStr(sAlias)
  41.  
  42. LOCAL axFld[1], nFlds, nFld, sFld, sType, anLen[1], nLen, sStr
  43.  
  44. sAlias = EVL(sAlias, ALIAS())
  45. sStr = ""
  46.  
  47. nFlds = AFIELDS(axFld, sAlias)
  48. FOR nFld = 1 TO nFlds
  49.     sFld  = axFld[nFld, 1]
  50.     sType = axFld[nFld, 2]
  51.     nLen  = axFld[nFld, 3]
  52.     IF sType=="C"       && Autoajusto columna
  53.         SELECT MAX(LEN(ALLTRIM(&sFld ))) FROM (sAlias) INTO ARRAY anLen
  54.         nLen = anLen[1]
  55.     ENDIF
  56.     nLen = MAX(nLen, LEN(sFld))
  57.     axFld[nFld, 3] = nLen
  58.  
  59.     sStr = sStr + PADR(sFld, nLen) + SEP
  60. NEXT
  61.  
  62. SCAN
  63.     sStr = sStr + CRLF
  64.     FOR nFld = 1 TO nFlds
  65.         sFld  = axFld[nFld, 1]
  66.         nLen  = axFld[nFld, 3]
  67.         sStr = sStr + PADR(TRANSFORM(EVALUATE(sFld)), nLen) + SEP
  68.     NEXT
  69. ENDSCAN
  70.  
  71. RETURN sS
  72. *   Codigo I |Nombre C(15) |Direccion C(15)|Datos1 C(15) |Datos2 C(15) |Datos3 C(15) |Nrocui  I
  73. *   1        |JUAN PEREZ   |DIRECCION      |.NULL.       |.NULL.       |.NULL.       | 201130
  74. *   7        |MARIO LOPEZ  |.NULL.         |.NULL.       |OTRO DATO    |.NULL.       | 123456
  75. FUNCTION StrToDBF(sAlias, sDatos)
  76.  
  77. LOCAL sFields, sTmp, axFld[1], nFld, sFld, sType
  78.  
  79. SET MEMOWIDTH TO 1024
  80. sFields = STRTRAN(MLINE(sDatos, 1), "|", " NULL ,")
  81. sTmp = ADDBS(SYS(2023)) + "app.tmp"
  82. STRTOFILE(sDatos, sTmp)
  83.  
  84. CREATE CURSOR (sAlias) ( &sFields )
  85. APPEND FROM (sTmp) DELIMITED WITH CHARACTER "|"
  86. DELETE RECORD 1     && Titulos
  87.  
  88. FOR nFld = 1 TO AFIELDS(axFld)
  89.     sFld  = axFld[nFld, 1]
  90.     sType = axFld[nFld, 2]
  91.     IF sType=="C"
  92.         REPLACE (sFld) WITH .NULL. FOR &sFld =".NULL."
  93.     ENDIF
  94. NEXT
  95.  
  96. GO TOP
  97.  
  98. RETURN
  99.  
  100.  
  101.  
  102. #define CRLF CHR(13)+CHR(10)
  103. #define SEP  " |"
  104.  
  105. * Vuelca una tabla a un string separandola con | , ej:
  106. *   CODIGO |NOMBRE      |DIRECCION    |DATOS1   |DATOS2    |DATOS3    |NROCUI |
  107. *   6      |MARIO LOPEZ |DIRECCION #2 |.NULL.   |OTRO DATO |.NULL.    |123456 |
  108. *   3      |JUAN PEREZ  |DIRECCION    |CORRECTO |DATOS     |OTRO DATO |201130 |
  109.  
  110. FUNCTION DBFToStr(sAlias)
  111.  
  112. LOCAL axFld[1], nFlds, nFld, sFld, sType, anLen[1], nLen, sStr
  113.  
  114. sAlias = EVL(sAlias, ALIAS())
  115. sStr = ""
  116.  
  117. nFlds = AFIELDS(axFld, sAlias)
  118. FOR nFld = 1 TO nFlds
  119.     sFld  = axFld[nFld, 1]
  120.     sType = axFld[nFld, 2]
  121.     nLen  = axFld[nFld, 3]
  122.     IF sType=="C"       && Autoajusto columna
  123.         SELECT MAX(LEN(ALLTRIM(&sFld ))) FROM (sAlias) INTO ARRAY anLen
  124.         nLen = anLen[1]
  125.     ENDIF
  126.     nLen = MAX(nLen, LEN(sFld))
  127.     axFld[nFld, 3] = nLen
  128.  
  129.     sStr = sStr + PADR(sFld, nLen) + SEP
  130. NEXT
  131.  
  132. SCAN
  133.     sStr = sStr + CRLF
  134.     FOR nFld = 1 TO nFlds
  135.         sFld  = axFld[nFld, 1]
  136.         nLen  = axFld[nFld, 3]
  137.         sStr = sStr + PADR(TRANSFORM(EVALUATE(sFld)), nLen) + SEP
  138.     NEXT
  139. ENDSCAN
  140.  
  141. RETURN sS
  142. *   1        |JUAN PEREZ   |DIRECCION      |.NULL.       |.NULL.       |.NULL.       | 201130
  143. *   7        |MARIO LOPEZ  |.NULL.         |.NULL.       |OTRO DATO    |.NULL.       | 123456
  144. FUNCTION StrToDBF(sAlias, sDatos)
  145.  
  146. LOCAL sFields, sTmp, axFld[1], nFld, sFld, sType
  147.  
  148. SET MEMOWIDTH TO 1024
  149. sFields = STRTRAN(MLINE(sDatos, 1), "|", " NULL ,")
  150. sTmp = ADDBS(SYS(2023)) + "app.tmp"
  151. STRTOFILE(sDatos, sTmp)
  152.  
  153. CREATE CURSOR (sAlias) ( &sFields )
  154. APPEND FROM (sTmp) DELIMITED WITH CHARACTER "|"
  155. DELETE RECORD 1     && Titulos
  156.  
  157. FOR nFld = 1 TO AFIELDS(axFld)
  158.     sFld  = axFld[nFld, 1]
  159.     sType = axFld[nFld, 2]
  160.     IF sType=="C"
  161.         REPLACE (sFld) WITH .NULL. FOR &sFld =".NULL."
  162.     ENDIF
  163. NEXT
  164.  
  165. GO TOP
  166.  
  167. RETURN
  168.  
  169.  
  170.  
  171. #define CRLF CHR(13)+CHR(10)
  172. #define SEP  " |"
  173.  
  174. * Vuelca una tabla a un string separandola con | , ej:
  175. *   CODIGO |NOMBRE      |DIRECCION    |DATOS1   |DATOS2    |DATOS3    |NROCUI |
  176. *   6      |MARIO LOPEZ |DIRECCION #2 |.NULL.   |OTRO DATO |.NULL.    |123456 |
  177. *   3      |JUAN PEREZ  |DIRECCION    |CORRECTO |DATOS     |OTRO DATO |201130 |
  178.  
  179. FUNCTION DBFToStr(sAlias)
  180.  
  181. LOCAL axFld[1], nFlds, nFld, sFld, sType, anLen[1], nLen, sStr
  182.  
  183. sAlias = EVL(sAlias, ALIAS())
  184. sStr = ""
  185.  
  186. nFlds = AFIELDS(axFld, sAlias)
  187. FOR nFld = 1 TO nFlds
  188.     sFld  = axFld[nFld, 1]
  189.     sType = axFld[nFld, 2]
  190.     nLen  = axFld[nFld, 3]
  191.     IF sType=="C"       && Autoajusto columna
  192.         SELECT MAX(LEN(ALLTRIM(&sFld ))) FROM (sAlias) INTO ARRAY anLen
  193.         nLen = anLen[1]
  194.     ENDIF
  195.     nLen = MAX(nLen, LEN(sFld))
  196.     axFld[nFld, 3] = nLen
  197.  
  198.     sStr = sStr + PADR(sFld, nLen) + SEP
  199. NEXT
  200.  
  201. SCAN
  202.     sStr = sStr + CRLF
  203.     FOR nFld = 1 TO nFlds
  204.         sFld  = axFld[nFld, 1]
  205.         nLen  = axFld[nFld, 3]
  206.         sStr = sStr + PADR(TRANSFORM(EVALUATE(sFld)), nLen) + SEP
  207.     NEXT
  208. ENDSCAN
  209.  
  210. RETURN sS
  211. *   7        |MARIO LOPEZ  |.NULL.         |.NULL.       |OTRO DATO    |.NULL.       | 123456
  212. FUNCTION StrToDBF(sAlias, sDatos)
  213.  
  214. LOCAL sFields, sTmp, axFld[1], nFld, sFld, sType
  215.  
  216. SET MEMOWIDTH TO 1024
  217. sFields = STRTRAN(MLINE(sDatos, 1), "|", " NULL ,")
  218. sTmp = ADDBS(SYS(2023)) + "app.tmp"
  219. STRTOFILE(sDatos, sTmp)
  220.  
  221. CREATE CURSOR (sAlias) ( &sFields )
  222. APPEND FROM (sTmp) DELIMITED WITH CHARACTER "|"
  223. DELETE RECORD 1     && Titulos
  224.  
  225. FOR nFld = 1 TO AFIELDS(axFld)
  226.     sFld  = axFld[nFld, 1]
  227.     sType = axFld[nFld, 2]
  228.     IF sType=="C"
  229.         REPLACE (sFld) WITH .NULL. FOR &sFld =".NULL."
  230.     ENDIF
  231. NEXT
  232.  
  233. GO TOP
  234.  
  235. RETURN
  236.  
  237.  
  238.  
  239. #define CRLF CHR(13)+CHR(10)
  240. #define SEP  " |"
  242. * Vuelca una tabla a un string separandola con | , ej:
  243. *   CODIGO |NOMBRE      |DIRECCION    |DATOS1   |DATOS2    |DATOS3    |NROCUI |
  244. *   6      |MARIO LOPEZ |DIRECCION #2 |.NULL.   |OTRO DATO |.NULL.    |123456 |
  245. *   3      |JUAN PEREZ  |DIRECCION    |CORRECTO |DATOS     |OTRO DATO |201130 |
  246.  
  247. FUNCTION DBFToStr(sAlias)
  248.  
  249. LOCAL axFld[1], nFlds, nFld, sFld, sType, anLen[1], nLen, sStr
  250.  
  251. sAlias = EVL(sAlias, ALIAS())
  252. sStr = ""
  253.  
  254. nFlds = AFIELDS(axFld, sAlias)
  255. FOR nFld = 1 TO nFlds
  256.     sFld  = axFld[nFld, 1]
  257.     sType = axFld[nFld, 2]
  258.     nLen  = axFld[nFld, 3]
  259.     IF sType=="C"       && Autoajusto columna
  260.         SELECT MAX(LEN(ALLTRIM(&sFld ))) FROM (sAlias) INTO ARRAY anLen
  261.         nLen = anLen[1]
  262.     ENDIF
  263.     nLen = MAX(nLen, LEN(sFld))
  264.     axFld[nFld, 3] = nLen
  265.  
  266.     sStr = sStr + PADR(sFld, nLen) + SEP
  267. NEXT
  268.  
  269. SCAN
  270.     sStr = sStr + CRLF
  271.     FOR nFld = 1 TO nFlds
  272.         sFld  = axFld[nFld, 1]
  273.         nLen  = axFld[nFld, 3]
  274.         sStr = sStr + PADR(TRANSFORM(EVALUATE(sFld)), nLen) + SEP
  275.     NEXT
  276. ENDSCAN
  277.  
  278. RETURN sS
  279. * Vuelca una tabla a un string separandola con | , ej:
  280. *   CODIGO |NOMBRE      |DIRECCION    |DATOS1   |DATOS2    |DATOS3    |NROCUI |
  281. *   6      |MARIO LOPEZ |DIRECCION #2 |.NULL.   |OTRO DATO |.NULL.    |123456 |
  282. *   3      |JUAN PEREZ  |DIRECCION    |CORRECTO |DATOS     |OTRO DATO |201130 |
  283.  
  284. FUNCTION DBFToStr(sAlias)
  285.  
  286. LOCAL axFld[1], nFlds, nFld, sFld, sType, anLen[1], nLen, sStr
  287.  
  288. sAlias = EVL(sAlias, ALIAS())
  289. sStr = ""
  290.  
  291. nFlds = AFIELDS(axFld, sAlias)
  292. FOR nFld = 1 TO nFlds
  293.     sFld  = axFld[nFld, 1]
  294.     sType = axFld[nFld, 2]
  295.     nLen  = axFld[nFld, 3]
  296.     IF sType=="C"       && Autoajusto columna
  297.         SELECT MAX(LEN(ALLTRIM(&sFld ))) FROM (sAlias) INTO ARRAY anLen
  298.         nLen = anLen[1]
  299.     ENDIF
  300.     nLen = MAX(nLen, LEN(sFld))
  301.     axFld[nFld, 3] = nLen
  302.  
  303.     sStr = sStr + PADR(sFld, nLen) + SEP
  304. NEXT
  305.  
  306. SCAN
  307.     sStr = sStr + CRLF
  308.     FOR nFld = 1 TO nFlds
  309.         sFld  = axFld[nFld, 1]
  310.         nLen  = axFld[nFld, 3]
  311.         sStr = sStr + PADR(TRANSFORM(EVALUATE(sFld)), nLen) + SEP
  312.     NEXT
  313. ENDSCAN
  314.  
  315. RETURN sS
  316. *   CODIGO |NOMBRE      |DIRECCION    |DATOS1   |DATOS2    |DATOS3    |NROCUI |
  317. *   6      |MARIO LOPEZ |DIRECCION #2 |.NULL.   |OTRO DATO |.NULL.    |123456 |
  318. *   3      |JUAN PEREZ  |DIRECCION    |CORRECTO |DATOS     |OTRO DATO |201130 |
  319.  
  320. FUNCTION DBFToStr(sAlias)
  321.  
  322. LOCAL axFld[1], nFlds, nFld, sFld, sType, anLen[1], nLen, sStr
  323.  
  324. sAlias = EVL(sAlias, ALIAS())
  325. sStr = ""
  326.  
  327. nFlds = AFIELDS(axFld, sAlias)
  328. FOR nFld = 1 TO nFlds
  329.     sFld  = axFld[nFld, 1]
  330.     sType = axFld[nFld, 2]
  331.     nLen  = axFld[nFld, 3]
  332.     IF sType=="C"       && Autoajusto columna
  333.         SELECT MAX(LEN(ALLTRIM(&sFld ))) FROM (sAlias) INTO ARRAY anLen
  334.         nLen = anLen[1]
  335.     ENDIF
  336.     nLen = MAX(nLen, LEN(sFld))
  337.     axFld[nFld, 3] = nLen
  338.  
  339.     sStr = sStr + PADR(sFld, nLen) + SEP
  340. NEXT
  341.  
  342. SCAN
  343.     sStr = sStr + CRLF
  344.     FOR nFld = 1 TO nFlds
  345.         sFld  = axFld[nFld, 1]
  346.         nLen  = axFld[nFld, 3]
  347.         sStr = sStr + PADR(TRANSFORM(EVALUATE(sFld)), nLen) + SEP
  348.     NEXT
  349. ENDSCAN
  350.  
  351. RETURN sS
  352. *   6      |MARIO LOPEZ |DIRECCION #2 |.NULL.   |OTRO DATO |.NULL.    |123456 |
  353. *   3      |JUAN PEREZ  |DIRECCION    |CORRECTO |DATOS     |OTRO DATO |201130 |
  354.  
  355. FUNCTION DBFToStr(sAlias)
  356.  
  357. LOCAL axFld[1], nFlds, nFld, sFld, sType, anLen[1], nLen, sStr
  358.  
  359. sAlias = EVL(sAlias, ALIAS())
  360. sStr = ""
  361.  
  362. nFlds = AFIELDS(axFld, sAlias)
  363. FOR nFld = 1 TO nFlds
  364.     sFld  = axFld[nFld, 1]
  365.     sType = axFld[nFld, 2]
  366.     nLen  = axFld[nFld, 3]
  367.     IF sType=="C"       && Autoajusto columna
  368.         SELECT MAX(LEN(ALLTRIM(&sFld ))) FROM (sAlias) INTO ARRAY anLen
  369.         nLen = anLen[1]
  370.     ENDIF
  371.     nLen = MAX(nLen, LEN(sFld))
  372.     axFld[nFld, 3] = nLen
  373.  
  374.     sStr = sStr + PADR(sFld, nLen) + SEP
  375. NEXT
  376.  
  377. SCAN
  378.     sStr = sStr + CRLF
  379.     FOR nFld = 1 TO nFlds
  380.         sFld  = axFld[nFld, 1]
  381.         nLen  = axFld[nFld, 3]
  382.         sStr = sStr + PADR(TRANSFORM(EVALUATE(sFld)), nLen) + SEP
  383.     NEXT
  384. ENDSCAN
  385.  
  386. RETURN sS
  387. *   3      |JUAN PEREZ  |DIRECCION    |CORRECTO |DATOS     |OTRO DATO |201130 |
  388.  
  389. FUNCTION DBFToStr(sAlias)
  390.  
  391. LOCAL axFld[1], nFlds, nFld, sFld, sType, anLen[1], nLen, sStr
  392.  
  393. sAlias = EVL(sAlias, ALIAS())
  394. sStr = ""
  395.  
  396. nFlds = AFIELDS(axFld, sAlias)
  397. FOR nFld = 1 TO nFlds
  398.     sFld  = axFld[nFld, 1]
  399.     sType = axFld[nFld, 2]
  400.     nLen  = axFld[nFld, 3]
  401.     IF sType=="C"       && Autoajusto columna
  402.         SELECT MAX(LEN(ALLTRIM(&sFld ))) FROM (sAlias) INTO ARRAY anLen
  403.         nLen = anLen[1]
  404.     ENDIF
  405.     nLen = MAX(nLen, LEN(sFld))
  406.     axFld[nFld, 3] = nLen
  407.  
  408.     sStr = sStr + PADR(sFld, nLen) + SEP
  409. NEXT
  410.  
  411. SCAN
  412.     sStr = sStr + CRLF
  413.     FOR nFld = 1 TO nFlds
  414.         sFld  = axFld[nFld, 1]
  415.         nLen  = axFld[nFld, 3]
  416.         sStr = sStr + PADR(TRANSFORM(EVALUATE(sFld)), nLen) + SEP
  417.     NEXT
  418. ENDSCAN
  419.  
  420. RETURN sStr
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!