【VBA】代码生成工具——将Excel配置表转成脚本与配置文件(含源码)
2017-02-16 12:00
1321 查看
在软件开发中多采用自动生成工具,将配置表生成对应的脚本文件(如.lua)和读取脚本的配置文件(如.h与cpp),所有配置文件由管理器ConfigMgr统一加载入内存,程序运行时在需要的地方,即可直接从内存中查询
将Excel表格转成.lua文件
As String) As String If Asc(charS) >= 97 And Asc(charS) <= 122 Then CharToBig = Chr(Asc(charS) - 32) Else CharToBig = charS End IfEnd Function
代码生成工具——将Excel配置表转成脚本与配置文件(含源码)
自动生成工具
将Excel表格转成.lua文件
Private Sub CommandButton1_Click() Dim fso, MyFile, txt, content1, content2, content3 Dim rows, columns Dim firstID, cell_title, cell_value 'Set fso = CreateObject("Scripting.FileSystemObject") 'Set MyFile = fso.CreateTextFile(Split(ThisWorkbook.Path, "\²ß»®")(0) & "\Data_" & Split(ThisWorkbook.Name, ".")(0) & ".lua", True, True) Dim filename filename = Split(ThisWorkbook.Path, "\²ß»®")(0) & "\Data_" & Split(ThisWorkbook.Name, ".")(0) & ".lua" Set fso = CreateObject("adodb.stream") fso.Type = 2 fso.Mode = 3 fso.Charset = "UTF-8" fso.Open ...... '创建文本内容 txt = "--[[" & Chr(13) & _ "From: " & Split(ThisWorkbook.Name, ".")(0) & ".xlsx" & Chr(13) & _ "]]" & Chr(13) & _ "_G._G = _G or {};" & Chr(13) & _ "_G._G.Data_" & Split(ThisWorkbook.Name, ".")(0) & "={" & Chr(13) & _ content1 & _ "}"
......Call Utf8WithoutBom(filename & ".temp", filename) Kill filename & ".temp" MsgBox "转换完成"End Sub
将Excel表格转成配置文件
Private Sub CommandButton2_Click() Dim tabname, classname Dim hfso, hFile, hStream, hTextStream, htxt, hcontent1, hcontentTab, hcontentClass, hcontentLine, hcontentData, hcontentData1, hcontentDataLine, hEditContent(2) Dim cppfso, cppFile, cppStream, cppTextStream, cpptxt, cppcontent1, cppcontent, cppcontentLine, cppFunction, cppEditContent Dim columns, isneedbuf, ishaslst Dim valuename, valuetype, keyname Dim hFileName, cppFileName Dim isCreate Dim Check, rows Set Check = CreateObject("scripting.dictionary")
......If IsEmpty(hFileName) Or IsEmpty(cppFileName) Then MsgBox "Ó¦¸ÃÑ¡ÔñÒ»¸ö.hºÍÒ»¸ö.cppÎļþ" End End If Set hfso = CreateObject("Scripting.FileSystemObject") Set cppfso = CreateObject("Scripting.FileSystemObject")
......Function CharToBig(charS
As String) As String If Asc(charS) >= 97 And Asc(charS) <= 122 Then CharToBig = Chr(Asc(charS) - 32) Else CharToBig = charS End IfEnd Function
配置文件管理器(统一加载数据至内存)
#define CFG_CREATE(x) x::GetSingleton().Destory();\ if (false == x::GetSingleton().Create()) {\ LoLogs::WriteLog("%s create failed!\n", #x);\ return false; \ } bool CConfigMgr::Create() { CFG_CREATE(CGlobalCfg); CFG_CREATE(CActorTime); CFG_CREATE(CActorAnimTimeCfg); CFG_CREATE(CBulletCfg); // 场景配置表 CFG_CREATE(CSceneCfg); CFG_CREATE(CSceneBoxCfg); CFG_CREATE(CAiCfg); CFG_CREATE(CLevelupCfg); CFG_CREATE(CActorBoxCfg); CFG_CREATE(CActorBasicCfg); CFG_CREATE(CActorStateCfg); CFG_CREATE(CActorStrikeCfg); //CFG_CREATE(CAnimationCfg); CFG_CREATE(CBuffCfg); CFG_CREATE(CBuffTriggerCfg); CFG_CREATE(CSkillAnimTimeCfg); CFG_CREATE(CSkillStoneCfg); CFG_CREATE(CInitPlayerCfg); CFG_CREATE(CTalentCfg); CFG_CREATE(CTaskCfg); CFG_CREATE(CTaskActiveCfg); CFG_CREATE(CDungeonCfg); CFG_CREATE(CStageAwardsCfg); CFG_CREATE(CResStageCfg); CFG_CREATE(CSignCfg); return true; } bool CConfigMgr::Destory() { return true; }
代码生成工具——将Excel配置表转成脚本与配置文件(含源码)
相关文章推荐
- 编写自己的代码生成工具一:介绍及定义配置文件
- 编写自己的代码生成工具二:解析配置文件
- 使用svcutil工具自动生成wcf调用的客户端代码和配置文件
- iBatis配置文件和代码生成工具
- 编写自己的代码生成工具二:解析配置文件
- 编写自己的代码生成工具一:介绍及定义配置文件
- lua(实现代码(1)):使用lua将excel中的配置数据生成sql文件
- [转] 生成/读取(反向更新数据库) Excel文件(示例代码下载)
- XML形式的配置文件解析框架以及自动代码生成(一)
- 生成/读取(反向更新数据库) Excel文件(示例代码下载)
- 生成/读取(反向更新数据库) Excel文件(示例代码下载)
- 系统代码生成工具源码
- 根据sitemap配置生成无限级跨frame菜单的实现方式(含100%脚本源码参考)
- 数据库字段属性配置工具界面[用于代码生成]
- WCF配置文件生成工具
- 从datagrid导出html代码,生成excel文件,给客户端下载
- 系统代码生成工具源码
- 根据sitemap配置生成无限级跨frame菜单的实现方式(含100%脚本源码参考
- 电脑工具--光盘文件读取器NET2.0(代码开源工具生成的)
- [转]生成/读取(反向更新数据库) Excel文件(示例代码下载)