Delphi中使用python脚本读取E

前段时间，在正式项目中使用python来读取excel表格的数据。具体需求是，项目数据库中有些数据需要根据Excel表格里面的数据进行一些调整，功能应该比较简单。为了学习Python，决定使用Delphi+Python来实现。Delphi中是使用PythonForDelphi控件来加入Python引擎的。实现整个功能用了大半天时间。

delphi项目方面，需要先修改数据表的封装类，使它能在Python中出现并使用，简单操作数据表。改了几个地方：

Python方面，有两个自己写的脚本，其中一个是使用win32com封装Excel操作的pyExcel.py，简陋的代码，够用就行。另一个是实现具体的功能的脚本，代码入下：

import time
from pyExcel import PYExcel
import types
from Delphi import *

lDEHs = {}
CR = chr(10)# + chr(13)
CRCR = CR + CR

def AddSpace(aStr):
    CR_R = chr(10)
    SPACESTR = '            '
    return aStr.replace(CR_R, CR_R+SPACESTR)
    pass

def setDEFZ(uKW):
    deb.Edit()
    s1 = deb.DEFZ
    uGZNR = AddSpace(s1.decode('gbk'))
    uGZNR = u'【工作内容】%s' %(uGZNR)
   
    uDEFZ = u'%s%s【附注说明】%s【勘误记录】%s%s' \
        %(uGZNR, CRCR, CRCR, uKW, CRCR)
    deb.DEFZ = uDEFZ.encode('gbk')
    deb.Post()
    pass

def setDEFZByXls():
    global CR, lDEHs
    col_DEH = 'A'
    col_KW = 'B'
    iRow = 0
    iEmpty = 0
    xl1 = PYExcel()

    if xl1.FindBook('Sheet1'):
        while (iEmpty<10):
         iRow += 1
         try:
             sDEH = str(xl1.getRangeValue(col_DEH + str(iRow)))
             pass
         except:
             sDEH = None
             pass

         if not sDEH or (sDEH=='') or (sDEH=='None'):
            iEmpty += 1

         elif deb.Locate('DEH', sDEH):
             lDEHs.setdefault(sDEH, sDEH)
             s2 = AddSpace(xl1.getRangeValue(col_KW + str(iRow)))
             setDEFZ(s2)

def setOthers():
    global lDEHs
   
    deb.First()
    while not deb.Eof():
        if not lDEHs.has_key(deb.deh):
            lDEHs.setdefault(deb.deh, deb.deh)
            try:
                setDEFZ(u'')
            except:
                pass
           
        deb.Next()

setDEFZByXls()
setOthers()

在编写调试这个脚本用了大半的时间，其中碰到些问题：