Hide keyboard shortcuts

Hot-keys on this page

r m x p   toggle line displays

j k   next/prev highlighted chunk

0   (zero) top of page

1   (one) first highlighted chunk

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

# Copyright 2003-2009-2016 Luc Saffre 

# License: BSD (see file COPYING for details) 

 

# Based on original work by Lars Garshol 

# http://www.garshol.priv.no/download/software/python/dbfreader.py 

 

# modified by Luc Saffre who is interested in support for Clipper 

# rather than FoxPro support. 

""" 

What's the format of a Clipper .dbf file? 

http://www.the-oasis.net/clipper-12.html#ss12.4 

 

http://www.clicketyclick.dk/databases/xbase/format/ 

""" 

from __future__ import print_function 

from builtins import hex 

from builtins import str 

from builtins import object 

 

import datetime 

from dateutil import parser as dateparser 

 

 

import sys 

import string 

 

codepages = { 

    '\x01': "cp437", 

    '\x02': "cp850", 

} 

 

# --- Useful functions 

 

 

def unpack_long(number): 

    return ord(number[0]) + 256 * (ord(number[1]) + 256 * (ord(number[2]) + 

                                                           256 * ord(number[3]))) 

 

 

def unpack_long_rev(number): 

    return ord(number[3]) + 256 * (ord(number[2]) + 256 * (ord(number[1]) + 

                                                           256 * ord(number[0]))) 

 

 

def unpack_int(number): 

    return ord(number[0]) + 256 * ord(number[1]) 

 

 

def unpack_int_rev(number): 

    return ord(number[1]) + 256 * ord(number[0]) 

 

 

def hex_analyze(number): 

    for ch in number: 

        print("%s\t%s\t%d" % (hex(ord(ch)), ch, ord(ch))) 

 

# def sort_by_key(list,key_func): 

# for ix in range(len(list)): 

# list[ix]=(key_func(list[ix]),list[ix]) 

 

# list.sort() 

 

# for ix in range(len(list)): 

# list[ix]=list[ix][1] 

 

# return list 

 

# --- A class for the entire file 

 

 

class DBFFile(object): 

 

    "Represents a single DBF file." 

 

    HAS_MEMO_FILE = 128  # "\x80" 

 

    versionmap = { 

        "\x03": "dBASE III", 

        "\x83": "dBASE III+ with memo", 

        "\x8B": "dBASE IV with memo", 

        "\xF5": "FoxPro with memo" 

    } 

 

    def __init__(self, filename, codepage=None): 

        self.filename = filename 

 

        infile = open(self.filename, "rb") 

 

        # Read header 

 

        header = infile.read(32) 

 

        self.version = header[0] 

        year = ord(header[1]) + 2000 

        month = ord(header[2]) 

        day = ord(header[3]) 

        self.lastUpdate = datetime.date(year, month, day) 

 

        self.rec_num = unpack_long(header[4:8]) 

 

        self.first_rec = unpack_int(header[8:10]) 

 

        self.rec_len = unpack_int(header[10:12]) 

 

        self.codepage = codepage  # s[header[29]] 

 

        # Read field defs 

 

        self.fields = {} 

        self.field_list = [] 

        while 1: 

            ch = infile.read(1) 

            if ch == "\x0D": 

                break 

            field = DBFField(ch + infile.read(31), self) 

            self.fields[field.name] = field 

            self.field_list.append(field) 

 

        infile.close() 

        if self.has_memo(): 

            if self.version == "\x83": 

                self.blockfile = DBTFile(self) 

            else: 

                self.blockfile = FPTFile(self) 

 

    def has_memo(self): 

        if ord(self.version) & self.HAS_MEMO_FILE: 

            return True 

        return False 

 

    def has_blocksize(self): 

        # FoxPro : return True 

        return False 

 

    def get_version(self): 

        return DBFFile.versionmap[self.version] 

 

    def __len__(self): 

        return self.get_record_count() 

 

    def get_record_count(self): 

        return self.rec_num 

 

    def get_record_len(self): 

        return self.rec_len 

 

    def get_fields(self): 

        # return self.fields.values() 

        return self.field_list 

 

    def get_field(self, name): 

        return self.fields[name] 

 

    # --- Record-reading methods 

 

    def open(self, deleted=False): 

        self.recno = 0 

        self.deleted = deleted 

        self.infile = open(self.filename, "rb") 

        # self.infile.read(32+len(self.fields)*32+1) 

        self.infile.seek(self.first_rec) 

        # self.field_list=sort_by_key(self.get_fields(),DBFField.get_pos) 

 

    def get_next_record(self): 

        values = {} 

        ch = self.infile.read(1) 

        self.recno += 1 

        if ch == "*": 

            deleted = True 

            # Skip the record 

            # return self.get_next_record() 

        elif ch == "\x1A" or ch == "": 

            return None 

        else: 

            deleted = False 

 

        for field in self.field_list: 

            data = self.infile.read(field.get_len()) 

            values[field.get_name()] = field.interpret(data) 

        if deleted and not self.deleted: 

            return self.get_next_record() 

        return DBFRecord(self, values, deleted) 

 

    def close(self): 

        self.infile.close() 

        del self.infile 

        del self.deleted 

 

    def __iter__(self): 

        return self 

 

    def __next__(self): 

        rec = self.get_next_record() 

        if rec is None: 

            raise StopIteration 

        return rec 

 

    def fetchall(self): 

        self.open() 

        l = [rec for rec in self] 

        self.close() 

        return l 

 

 

class NOTGIVEN(object): 

    pass 

 

 

class DBFRecord(object): 

 

    def __init__(self, dbf, values, deleted): 

        self._recno = dbf.recno 

        self._values = values 

        self._deleted = deleted 

        self._dbf = dbf 

 

    def deleted(self): 

        return self._deleted 

 

    def recno(self): 

        return self._recno 

 

    def __getitem__(self, name): 

        return self._values[name.upper()] 

 

    def __getattr__(self, name, default=NOTGIVEN): 

        name = name.upper() 

        try: 

            return self._values[name] 

        except KeyError: 

            if default is NOTGIVEN: 

                raise AttributeError( 

                    "No field named %r in %s" % 

                    (name, list(self._values.keys()))) 

            return default 

 

    def get(self, *args, **kw): 

        return self._values.get(*args, **kw) 

 

    def __repr__(self): 

        return self._dbf.filename + "#" + str(self._recno) 

 

# --- A class for a single field 

 

 

class DBFField(object): 

 

    "Represents a field in a DBF file." 

 

    typemap = { 

        "C": "Character", "N": "Numeric", 

        "L": "Logical", "M": "Memo field", 

        "G": "Object", "D": "Date", 

        "F": "Float", "P": "Picture"} 

 

    def __init__(self, buf, dbf): 

        pos = string.find(buf, "\x00") 

        if pos == -1 or pos > 11: 

            pos = 11 

        self.name = buf[:pos] 

        self.field_type = buf[11] 

        self.field_pos = unpack_long(buf[12:16]) 

        self.field_len = ord(buf[16]) 

        self.field_places = ord(buf[17]) 

        self.dbf = dbf 

 

# if self.field_type=="M" or self.field_type=="P" or \ 

# self.field_type=="G" : 

# self.blockfile=blockfile 

 

    def get_name(self): 

        return self.name 

 

    def get_pos(self): 

        return self.field_pos 

 

    def get_type(self): 

        return self.field_type 

 

    def get_type_name(self): 

        return DBFField.typemap[self.field_type] 

 

    def get_len(self): 

        return self.field_len 

 

    def interpret(self, data): 

        if self.field_type == "C": 

            if not self.dbf.codepage is None: 

                data = data.decode(self.dbf.codepage) 

            data = data.strip() 

            #~ if len(data) == 0: return None 

            if len(data) == 0: 

                return '' 

            return data 

        elif self.field_type == "L": 

            return data == "Y" or data == "y" or data == "T" or data == "t" 

        elif self.field_type == "M": 

            try: 

                num = string.atoi(data) 

            except ValueError: 

                if len(data.strip()) == 0: 

                    #~ return None 

                    return '' 

                raise Exception("bad memo block number %s" % repr(data)) 

            return self.dbf.blockfile.get_block(num) 

 

        elif self.field_type == "N": 

            try: 

                return string.atoi(data) 

            except ValueError: 

                return 0 

        elif self.field_type == "D": 

            data = data.strip() 

            if not data: 

                return None 

            try: 

                return dateparser.parse(data) 

            except ValueError as e: 

                raise ValueError("Invalid date value %r (%s)" % (data, e)) 

            # ~ return data # string "YYYYMMDD", use the time module or mxDateTime 

        else: 

            raise NotImplementedError("Unknown data type " + self.field_type) 

 

# --- A class that represents a block file 

 

 

class FPTFile(object): 

 

    "Represents an FPT block file" 

 

    def __init__(self, dbf): 

        self.dbf = dbf 

        self.filename = dbf.filename[:-4] + ".FPT" 

        infile = open(self.filename, "rb") 

        infile.read(6) 

        self.blocksize = unpack_int_rev(infile.read(2)) 

        infile.close() 

 

    def get_block(self, number): 

        infile = open(self.filename, "rb") 

        infile.seek(512 + self.blocksize * (number - 8))  # ? 

 

        code = infile.read(4) 

        if code != "\000\000\000\001": 

            return "Block %d has invalid code %s" % (number, repr(code)) 

 

        length = infile.read(4) 

        length = unpack_long_rev(length) 

        data = infile.read(length) 

        infile.close() 

 

        data = data.strip() 

        if len(data) == 0: 

            return None 

        return data 

 

 

class DBTFile(object): 

 

    "Represents a DBT block file" 

 

    def __init__(self, dbf): 

        self.dbf = dbf 

        self.filename = dbf.filename[:-4] + ".DBT" 

        # print "DBTFile", self.filename 

        self.blocksize = 512 

 

    def get_block(self, number): 

        infile = open(self.filename, "rb") 

        infile.seek(512 + self.blocksize * (number - 1)) 

        data = "" 

        while True: 

            buf = infile.read(self.blocksize) 

# if len(buf) != self.blocksize: 

# print str(number)+":"+str(len(buf)) 

##                 data += buf 

# break 

            data += buf 

            pos = data.find("\x1A") 

            #pos = data.find("\x1A\x1A") 

            if pos != -1: 

                data = data[:pos] 

                break 

 

        infile.close() 

        if not self.dbf.codepage is None: 

            data = data.decode(self.dbf.codepage) 

        # clipper adds "soft CR's" to memo texts. we convert them to 

        # simple spaces: 

        data = data.replace(u"\xec\n", "") 

 

        # convert CR/LF to simple LF: 

        data = data.replace("\r\n", "\n") 

 

        data = data.strip() 

        if len(data) == 0: 

            return None 

        return data 

 

# --- A class that stores the contents of a DBF file as a hash of the 

#     primary key 

 

 

class DBFHash(object): 

 

    def __init__(self, file, key): 

        self.file = DBFFile(file) 

        self.hash = {} 

        self.key = key 

 

        self.file.open() 

        while 1: 

            rec = self.file.get_next_record() 

            if rec is None: 

                break 

            self.hash[rec[self.key]] = rec 

 

    def __getitem__(self, key): 

        return self.hash[key] 

 

# --- Utility functions 

 

 

def display_info(f): 

    print(f.get_version()) 

    print(f.get_record_count()) 

    print(f.get_record_len()) 

 

    for field in f.get_fields(): 

        print("%s: %s (%d)" % (field.get_name(), field.get_type_name(), 

                               field.get_len())) 

 

 

def make_html(f, out=sys.stdout, skiptypes="MOP"): 

    out.write("<TABLE>\n") 

 

    # Writing field names 

    out.write("<TR>") 

    for field in f.get_fields(): 

        out.write("<TH>" + field.get_name()) 

 

    f.open() 

    while 1: 

        rec = f.get_next_record() 

        if rec is None: 

            break 

 

        out.write("<TR>") 

        for field in f.get_fields(): 

            if not field.get_type() in skiptypes: 

                out.write("<TD>" + str(rec[field.get_name()])) 

            else: 

                out.write("<TD>*skipped*") 

 

    f.close() 

    out.write("</TABLE>\n") 

 

if __name__ == "__main__": 

    make_html(DBFFile(sys.argv[1]))