using System.IO;
using System.Diagnostics;

namespace ConsoleApplication1 {
    // Информация о поле
    sealed class DbfColumn {
        public readonly String name;
        public readonly Char type;
        public readonly Byte size;
        public readonly Byte digs;
        public readonly Int32 offset;

        public DbfColumn(String name, Char type, Byte size = 0, Byte digs = 0, Int32 offset = 0) {
            // Проверка имени поля
            if (name.Length > 10) throw new ApplicationException("DBF: Превышение размера (10 символов) имени поля: " + name);
            for (Int32 i = 0; i < name.Length; i++) {
                Char c = name[i];
                if(Char.IsLower(c)) {
                    name = name.ToUpper();
                }
                if (!Char.IsLetterOrDigit(c) && c != '_') throw new ApplicationException("DBF: Имя поля должно содержать только буквы и цифры " + name);
            }
            // Проверка типа
            type = Char.ToUpper(type);
            switch(type) {
                case 'D':
                    size = 8;
                    digs = 0;
                    break;
                case 'L':
                    size = 1;
                    digs = 0;
                    break;
                case 'I':
                    size = 4;
                    digs = 0;
                    break;
                case 'C':
                    digs = 0;
                    break;
                case 'N':
                    if (digs < 0 || (digs > 0 && digs + 2 > size)) throw new ApplicationException("DBF: Неверное кол-во знаков после запятой в поле: " + name);
                    break;
                default:
                    throw new ApplicationException(String.Format("DBF: Неверный тип поля {0}({1})", name, type));
            }
            // Проверка размера
            if (size <= 0) throw new ApplicationException("DBF: Не задан размер поля " + name);
           
            this.name = name;
            this.type = type;
            this.size = size;
            this.digs = digs;
            this.offset = offset;
        }

        public DbfColumn(DbfColumn col, Int32 offset) {
            this.name = col.name;
            this.type = col.type;
            this.size = col.size;
            this.digs = col.digs;
            this.offset = offset;
        }

        public override string ToString() {
            var sb = new StringBuilder();
            sb.Append(name);
            sb.Append(" ");
            sb.Append(type);
            if(type == 'N' || type == 'C') {
                sb.Append("(");
                sb.Append(size.ToString());
                if(digs != 0) {
                    sb.Append(",");
                    sb.Append(digs.ToString());
                }
                sb.Append(")");
            }
            return sb.ToString();
        }
    }

    //**************************************************************************
    // Запись DBF
    class DbfWriter : IDisposable{
        DbfColumn[] fields; // Названия полей
        Byte[] row; // Текущая строка
        Int32 row_size; // Размер строки
        Int32 row_count = 0; // Кол-во строк
        Encoding encoder; // Перекодировщик
        FileStream fs;
        String file_name;

        public DbfWriter(DbfColumn[] field_list, String file, Int32 code_page = 1251) {
            fields = new DbfColumn[field_list.Length];
            Int32 offset = 0;
            for(Int32 i = 0; i < field_list.Length; i++) {
                fields[i] = new DbfColumn(field_list[i], offset);
                offset += field_list[i].size;
            }
            row_size = offset;
            row = new Byte[row_size];
            for (Int32 i = 0; i < row.Length; i++) row[i] = 32;
            encoder = Encoding.GetEncoding(code_page);
            fs = new FileStream(file, FileMode.Create, FileAccess.Write);
            fs.Position = 32 + 32 * fields.Length + 1;
            file_name = file;
        }

        // Запись String в поле текущей записи
        public void Set(Int32 col_num, String value) {
            var f = fields[col_num];
            if(f.type != 'C') throw new ApplicationException("DBF: неверный тип поля " + f.ToString());
            Byte[] s = encoder.GetBytes(value);
            if(s.Length > f.size) s = s.Take(f.size).ToArray();
            s.CopyTo(row, f.offset);
        }

        // Запись Int32 в поле текущей записи
        public void Set(Int32 col_num, Int32 value) {
            var f = fields[col_num];
            if (f.type == 'N') {
                Boolean minus = (value < 0);
                if (minus) value = -value;
                Int32 offset = f.offset + f.size - (f.digs == 0 ? 1 : f.digs + 2);
                for (; value >= 10 && offset > f.offset; offset--) {
                    row[offset] = (Byte)(value % 10 + 48);
                    value /= 10;
                }
                if (value >= 10) throw new ApplicationException("DBF: превышение размера поля " + f.ToString());
                row[offset] = (Byte)(value + 48);
                if(minus) {
                    offset--;
                    if (offset < f.offset) throw new ApplicationException("DBF: превышение размера поля " + f.ToString());
                    row[offset] = 45; // '-'
                }
                if (f.digs > 0) {
                    offset = f.offset + f.size - f.digs - 1;
                    row[offset] = 46; // '.'
                    offset++;
                    for (; offset < f.offset + f.size; offset++) row[offset] = 48; // '0'
                }
            } else if (f.type == 'I') {
                row[f.offset] = (Byte)(value & 0xFF);
                row[f.offset + 1] = (Byte)((value >> 8) & 0xFF);
                row[f.offset + 2] = (Byte)((value >> 16) & 0xFF);
                row[f.offset + 3] = (Byte)((value >> 24) & 0xFF);
            } else {
                throw new ApplicationException("DBF: неверный тип поля " + f.ToString());
            }
        }

        // Запись Double в поле текущей записи
        public void Set(Int32 col_num, Double value) {
            var f = fields[col_num];
            if (f.type != 'N') throw new ApplicationException("DBF: неверный тип поля " + f.ToString());
            Boolean minus = (value < 0);
            if (minus) value = -value;
            switch (f.digs) {
                case 0:
                    value += 0.5;
                    break;
                case 1:
                    value += 0.05;
                    break;
                case 2:
                    value += 0.005;
                    break;
                default:
                    Double add = 0.0005;
                    for (Int32 i = 3; i < f.digs; i++) add /= 10;
                    value += add;
                    break;
            }
            Int32 val = (Int32)value;
            value -= val;
            Int32 offset = f.offset + f.size - (f.digs == 0 ? 1 : f.digs + 2);
            for (; val >= 10 && offset > f.offset; offset--) {
                row[offset] = (Byte)(val % 10 + 48);
                val /= 10;
            }
            if (val >= 10) throw new ApplicationException("DBF: превышение размера поля " + f.ToString());
            row[offset] = (Byte)(val + 48);
            if (minus) {
                offset--;
                if (offset < f.offset) throw new ApplicationException("DBF: превышение размера поля " + f.ToString());
                row[offset] = 45; // '-'
            }
            if (f.digs > 0) {
                offset = f.offset + f.size - f.digs - 1;
                row[offset] = 46; // '.'
                offset++;

                for (; offset < f.offset + f.size; offset++) {
                    value *= 10;
                    val = (Int32)value;
                    row[offset] = (Byte)(val + 48);
                    value -= val;
                }
            }
        }

        // Запись DateTime в поле текущей записи
        public void Set(Int32 col_num, DateTime value) {
            var f = fields[col_num];
            if (f.type != 'D') throw new ApplicationException("DBF: неверный тип поля " + f.ToString());
            if (value.Year > 1) {
                Int32 x = value.Year;
                row[f.offset + 3] = (Byte)(x % 10 + 48);
                x /= 10;
                row[f.offset + 2] = (Byte)(x % 10 + 48);
                x /= 10;
                row[f.offset + 1] = (Byte)(x % 10 + 48);
                x /= 10;
                row[f.offset + 0] = (Byte)(x % 10 + 48);
                x = value.Month;
                row[f.offset + 5] = (Byte)(x % 10 + 48);
                x /= 10;
                row[f.offset + 4] = (Byte)(x % 10 + 48);
                x = value.Day;
                row[f.offset + 7] = (Byte)(x % 10 + 48);
                x /= 10;
                row[f.offset + 6] = (Byte)(x % 10 + 48);
            }
        }

        // Запись Boolean в поле текущей записи
        public void Set(Int32 col_num, Boolean value) {
            var f = fields[col_num];
            if (f.type != 'L') throw new ApplicationException("DBF: неверный тип поля " + f.ToString());
            row[f.offset] = (Byte)(value ? 84 : 70); // 'T' 'F'
        }

        // Сохранение текущей записи
        public void StoreRow() {
            row_count++;
            fs.WriteByte(32);
            fs.Write(row, 0, row_size);
            for (Int32 i = 0; i < row.Length; i++) row[i] = 32;
        }

        public void Dispose() {
            if (fs != null) {
                fs.Close();
                fs = null;
                File.Delete(file_name);
            }
        }

        public void Close() {
            if (fs == null) return;
            fs.Position = 0;
            // Заголовок
            var buf = new Byte[32];
            buf[0] = 0x03; //  	dBASE III, dBASE IV, dBASE 5, dBASE 7, FoxPro, FoxBASE+
            buf[1] = (Byte)(DateTime.Today.Year - 1900); // Дата последней модификации в виде ГГММДД
            buf[2] = (Byte)(DateTime.Today.Month);
            buf[3] = (Byte)(DateTime.Today.Day);
            buf[4] = (Byte)(row_count & 0xFF); // Число записей в базе 
            buf[5] = (Byte)((row_count >> 8) & 0xFF);
            buf[6] = (Byte)((row_count >> 16) & 0xFF);
            buf[7] = (Byte)((row_count >> 24) & 0xFF);
            Int32 hdr = 32 + 32 * fields.Length + 1; // Полная длина заголовка (с дескрипторами полей)
            buf[8] = (Byte)(hdr & 0xFF);
            buf[9] = (Byte)((hdr >> 8) & 0xFF);
            buf[10] = (Byte)((row_size + 1) & 0xFF); // Длина одной записи
            buf[11] = (Byte)(((row_size + 1) >> 8) & 0xFF);
            buf[29] = (Byte)(encoder.CodePage == 866 ? 0x65 : 0xC9); // Кодовая страница
            fs.Write(buf, 0, 32);
            // Поля
            foreach (var f in fields) {
                for (Int32 i = 0; i < 32; i++) buf[i] = 0;
                System.Text.Encoding.Default.GetBytes(f.name).CopyTo(buf, 0); // Имя поля
                buf[11] = (Byte)f.type; // Тип поля
                buf[16] = (Byte)f.size; // Полная длина поля
                buf[17] = (Byte)f.digs; // Число десятичных разрядов
                fs.Write(buf, 0, 32);
            }
            fs.WriteByte(13);
            fs.Close();
            fs = null;
        }
    }

    //*******************************************************************************************************
    // Пример использования
    class Program {
        const Int32 TEST = 1000000;

        static void Main(string[] args) {
            var text = new String[100];
            for (Int32 i = 0; i < 100; i++) text[i] = "Текст " + i;
            Stopwatch sw = Stopwatch.StartNew();
            // Структура таблицы
            var cols = new DbfColumn[] { new DbfColumn("INT", 'I'), new DbfColumn("CHARASTER", 'C', 20), new DbfColumn("DATE", 'D'), new DbfColumn("NUMERIC", 'N', 10, 2), new DbfColumn("NUMERIC2", 'N', 10), new DbfColumn("LOGICAL", 'L') };
            // Создание таблицы (заголовок, имя файла, кодовая страница)
            using (var dbf = new DbfWriter(cols, "test.dbf", 866)) {
                // Заполнение 
                Double d = 0;
                for (Int32 i = 0; i < TEST; i++) {
                    // dbf.Set(Номер поля, значение)
                    dbf.Set(0, i);
                    dbf.Set(1, text[i % 100]);
                    dbf.Set(2, DateTime.Today);
                    dbf.Set(3, d);
                    dbf.Set(4, -i);
                    dbf.Set(5, i % 2 == 0);
                    dbf.StoreRow(); // Сохранение записи
                    d += 1.23;
                }
                dbf.Close(); // Сохранение файла (иначе удаляется)
            }
            Console.WriteLine("Записано " + TEST + " строк. Время " + sw.ElapsedMilliseconds + " мсек");
            Console.WriteLine("Press any key ...");
            Console.ReadKey();
        }
    }
}

        public void Close() {
            if (fs == null) return;
            // Конец файла
            fs.WriteByte(0x1A);
            // Заголовок
            fs.Position = 0;
            var buf = new Byte[32];
            buf[0] = 0x03; //  	dBASE III, dBASE IV, dBASE 5, dBASE 7, FoxPro, FoxBASE+
            buf[1] = (Byte)(DateTime.Today.Year - 1900); // Дата последней модификации в виде ГГММДД
            buf[2] = (Byte)(DateTime.Today.Month);
            buf[3] = (Byte)(DateTime.Today.Day);
            buf[4] = (Byte)(row_count & 0xFF); // Число записей в базе 
            buf[5] = (Byte)((row_count >> 8) & 0xFF);
            buf[6] = (Byte)((row_count >> 16) & 0xFF);
            buf[7] = (Byte)((row_count >> 24) & 0xFF);
            Int32 hdr = 32 + 32 * fields.Length + 1; // Полная длина заголовка (с дескрипторами полей)
            buf[8] = (Byte)(hdr & 0xFF);
            buf[9] = (Byte)((hdr >> 8) & 0xFF);
            buf[10] = (Byte)((row_size + 1) & 0xFF); // Длина одной записи
            buf[11] = (Byte)(((row_size + 1) >> 8) & 0xFF);
            buf[29] = (Byte)(encoder.CodePage == 866 ? 0x65 : 0xC9); // Кодовая страница
            fs.Write(buf, 0, 32);
            // Поля
            foreach (var f in fields) {
                for (Int32 i = 0; i < 32; i++) buf[i] = 0;
                System.Text.Encoding.Default.GetBytes(f.name).CopyTo(buf, 0); // Имя поля
                buf[11] = (Byte)f.type; // Тип поля
                buf[16] = (Byte)f.size; // Полная длина поля
                buf[17] = (Byte)f.digs; // Число десятичных разрядов
                fs.Write(buf, 0, 32);
            }
            fs.WriteByte(13);
            fs.Close();
            fs = null;
        }