前段时间,在正式项目中使用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()
在编写调试这个脚本用了大半的时间,其中碰到些问题:
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。