home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / foxupdat / upd_rt.exe / CPZERO.PRG next >
Text File  |  1993-09-28  |  3KB  |  153 lines
  1. * CPZERO -- Poke a codepage byte into a database header
  2. * Author: Walter Kennamer
  3. * Copyright Microsoft Corp, 1993
  4. *
  5. * Usage: 
  6. *    DO CPZERO WITH dbfname                     && marks the database with codepage 0 (i.e., no codepage)
  7. * 
  8. *    DO CPZERO WITH dbfname, codepage_number    && marks the database with specified codepage
  9. *
  10. * Some common valid numbers are:
  11. *   Windows            1252
  12. *   DOS                 437
  13. *   International DOS   850
  14. *
  15.  
  16. PARAMETER m.fname, m.cpbyte
  17. IF SET("TALK") = "ON"
  18.    SET TALK OFF
  19.    m.mtalk = "ON"
  20. ELSE
  21.    m.mtalk = "OFF"
  22. ENDIF   
  23.  
  24. #define C_TOTAL 19     && total code page numbers suppoted
  25.  
  26. IF PARAMETERS() < 2
  27.    m.cpbyte = 0
  28. ENDIF   
  29.  
  30. PRIVATE m.mtalk, m.vuename
  31.  
  32. #define c_buf_size 8096
  33.  
  34. #define c_noopen   1
  35. #define c_badbyte  2
  36. #define c_maxerror 3
  37.  
  38. m.vuename = ""
  39.  
  40. DECLARE error_array[c_maxerror]
  41. error_array[c_noopen] = "Die Tabelle kann nicht ge÷ffnet werden"
  42. error_array[c_badbyte] = "Die angegebene Codeseite ist ungⁿltig."
  43.  
  44. DO setup
  45. DO main
  46. DO cleanup
  47.  
  48. PROCEDURE setup
  49. m.vuename = SYS(2023)+"\"+SYS(3)+".VUE"
  50. CREATE VIEW (m.vuename)
  51.  
  52.  
  53. PROCEDURE cleanup
  54. IF FILE(m.vuename)
  55.    SET VIEW TO (m.vuename)
  56.    DELETE FILE (m.vuename)
  57. ENDIF   
  58. SET TALK &mtalk
  59.  
  60. PROCEDURE main
  61. PRIVATE m.fp_in, m.buf, m.found_one, m.i, m.outbyte
  62.  
  63. * Set up table of code pages and DBF bytes numbers
  64. DIMENSION cpnums[C_TOTAL,2] 
  65. cpnums[ 1,1] = 437
  66. cpnums[ 1,2] = 1
  67. cpnums[ 2,1] = 850
  68. cpnums[ 2,2] = 2
  69. cpnums[ 3,1] = 1252
  70. cpnums[ 3,2] = 3
  71. cpnums[ 4,1] = 10000
  72. cpnums[ 4,2] = 4
  73. cpnums[ 5,1] = 852
  74. cpnums[ 5,2] = 100
  75. cpnums[ 6,1] = 866
  76. cpnums[ 6,2] = 101
  77. cpnums[ 7,1] = 865
  78. cpnums[ 7,2] = 102
  79. cpnums[ 8,1] = 861
  80. cpnums[ 8,2] = 103
  81. cpnums[ 9,1] = 895
  82. cpnums[ 9,2] = 104
  83. cpnums[10,1] = 620
  84. cpnums[10,2] = 105
  85. cpnums[11,1] = 737
  86. cpnums[11,2] = 106
  87. cpnums[12,1] = 857
  88. cpnums[12,2] = 107
  89. cpnums[13,1] = 10007
  90. cpnums[13,2] = 150
  91. cpnums[14,1] = 10029
  92. cpnums[14,2] = 151
  93. cpnums[15,1] = 10006
  94. cpnums[15,2] = 152
  95. cpnums[16,1] = 1250
  96. cpnums[16,2] = 200
  97. cpnums[17,1] = 1251
  98. cpnums[17,2] = 201
  99. cpnums[18,1] = 1253
  100. cpnums[18,2] = 202
  101. cpnums[19,1] = 1254
  102. cpnums[19,2] = 203
  103.  
  104. IF EMPTY(m.fname)
  105.    m.fname = getfile("DBF|SCX|FRX|LBX|MNX","DBF-Name")
  106. ENDIF
  107. IF !EMPTY(m.fname)
  108.    CLOSE DATABASES
  109.    m.outbyte = m.cpbyte
  110.    m.found_one = .F.
  111.    FOR m.i = 1 TO C_TOTAL
  112.       IF m.cpbyte = cpnums[m.i,1]
  113.          m.outbyte = cpnums[m.i,2]
  114.          m.found_one = .T.
  115.          EXIT
  116.       ENDIF
  117.    ENDFOR
  118.    IF m.found_one
  119.       m.cpbyte = m.outbyte
  120.    ELSE
  121.       * Was it a valid DBF byte if it wasn't a valid code page?
  122.       FOR m.i = 1 TO C_TOTAL
  123.          IF m.cpbyte = cpnums[m.i,2]
  124.             m.found_one = .T.
  125.          ENDIF
  126.       ENDFOR
  127.       IF !m.found_one
  128.          DO errormsg WITH c_badbyte
  129.          RETURN TO poke
  130.       ENDIF
  131.    ENDIF
  132.    
  133.    IF FILE(m.fname)
  134.        m.fp_in = fopen(m.fname,2)
  135.        IF m.fp_in > 0
  136.           =fseek(m.fp_in,29)
  137.           =fwrite(m.fp_in,CHR(m.cpbyte))   && poke codepage number into byte 29
  138.           =fclose(m.fp_in)
  139.        ELSE
  140.           DO errormsg WITH c_noopen
  141.           RETURN TO poke
  142.        ENDIF
  143.     ELSE
  144.        DO errormsg WITH c_noopen
  145.        RETURN TO poke
  146.     ENDIF
  147. ENDIF      
  148.  
  149.  
  150. PROCEDURE errormsg
  151. PARAMETER num
  152. WAIT WINDOW error_array[num] NOWAIT
  153.