home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (UK) (Spanish) 15 / CDRT.iso / aula / imagaudi.mdx (.txt) < prev    next >
dBASE Multiple Index  |  1995-07-04  |  89KB  |  87 lines
  1. IMAGAUDI
  2. N CAMPOS MEMO
  3. * LOS FICHEROS ESTARAN NUMERADOS DEL 001 HASTA EL QUE CORRESPONDA CON 
  4. * EXTENSI
  5. N .TXT (SE UTILIZA PARA IMPORTAR LA BASE DE DATOS DE LAS VOCES)
  6. * POR EJEMPLO TB001.TXT.....TB030.TXT......TB700.TXT
  7. * PROGRAMADO POR JOSE MAROTO ATANCE */
  8. CLEAR ALL
  9. CLEAR
  10. SET SAFETY OFF
  11. SET STATUS OFF
  12. SET TALK OFF
  13. SET PATH TO E:\VOCES
  14. PUBLIC NOMBREDBASE,NOMBREARCHIVO,HANDLEFICHERO,INCOMPLETA,ARCHIVON,AA
  15. NOMBREDBASE = SPACE (8)
  16. NOMBREARCHIVO = SPACE (8)
  17. SE NECESITA OTRA PASADA DE BUSCACOMILLAS */
  18. INCOMPLETA = .F.
  19. DO CREABASE 
  20. USE &NOMBREDBASE 
  21. @12,5 SAY "INTRODUZCA EL NOMBRE DEL FICHERO DE TEXTO  (Sin extension)>>" ;
  22.     GET NOMBREARCHIVO PICTURE "ANNNNNNN"
  23. * BUCLE PRINCIPAL */
  24. ARCHIVON = 1002
  25. CADENA = "1002"
  26. DO WHILE FILE (TRIM(NOMBREARCHIVO)+CADENA+".TXT")
  27. NUMCAMPOS = FLDCOUNT ()
  28. CAMPOACTUAL = 1
  29. IF FILE (TRIM(NOMBREARCHIVO)+CADENA+".TXT") 
  30.     HANDLEFICHERO = FOPEN (TRIM(NOMBREARCHIVO)+CADENA+".TXT")
  31. ELSE 
  32.     @12,10 SAY "ARCHIVO "+NOMBREARCHIVO+" NO ENCONTRADO."
  33. ENDIF
  34. DO WHILE .NOT. FEOF (HANDLEFICHERO)
  35.     @5,5 SAY RECNO ()
  36.     @6,5 SAY TRIM(NOMBREARCHIVO)+CADENA+".TXT"
  37.     LEIDO = FREAD (HANDLEFICHERO,1)
  38.     IF LEIDO = CHR (34)
  39.       CCAMPO = BUSCACOMILLAS ()
  40.       IF CAMPOACTUAL = 1
  41.         APPEND BLANK
  42.       ENDIF
  43.           * SI EL CAMPO DONDE VAMOS A INTRODUCIR ES NUMERICO */
  44.       IF TYPE (FIELD (CAMPOACTUAL)) = "N"
  45.         CCAMPO = VAL (CCAMPO)
  46.       ENDIF
  47.           * COGE EL NOMBRE DEL CAMPO
  48.       NOMBRE = FIELD (CAMPOACTUAL)
  49.           * METELO A LO BESTIA */
  50.       REPLACE &NOMBRE WITH CCAMPO
  51.           * SI ESTA IMCOMPLETO EL CAMPO MEMO VOLVEMOS A LEER */
  52.       DO WHILE INCOMPLETA
  53.         CCAMPO = BUSCACOMILLAS (HANDLEFICHERO)
  54.             REPLACE &NOMBRE WITH CCAMPO ADDITIVE
  55.       ENDDO
  56.           * PREPARA EL SIGUIENTE CAMPO */
  57.       CAMPOACTUAL = CAMPOACTUAL+1
  58.           * SI ACABAMOS DE LLENAR EL ULTIMO CAMPO PON LO A UNO PARA A
  59. ADIR UN REGISTRO */
  60.       IF CAMPOACTUAL = NUMCAMPOS+1
  61.         CAMPOACTUAL = 1
  62. 7)#@ 
  63. 7)&` 
  64. 7)6@ 
  65. 7)9p 
  66. 7)F  
  67. 7)I@ 
  68. 7)Rp 
  69. 7)Y  
  70. 7)bP 
  71. 7)ep 
  72. 7)r  
  73. 7)uP 
  74. 7)xp 
  75. 8)   
  76. 8) R 
  77. 8)!I0
  78. 8)"G 
  79. 8)"y 
  80. 8)#C 
  81. 8)#w 
  82. 8)$C 
  83. 8)$v 
  84. 8)%A 
  85. 8)%s 
  86. 8)&81
  87.