【vbs】vbs写ini文件

这两天在折腾给一个项目打安装包，第一次接触软件打包，用的Advanced Installer（以下简称AI），应该说如果安装过程没有特殊动作（常规动作指释放文件、写注册表、建快捷方式等）的话，倒挺傻瓜的，按照向导和界面操作就能打好一个包。但我的安装动作包括：

- 提供一个ComboBox列出已安装打印机让用户选择

- 让用户填写一些初始参数并在安装完成后把这些参数写入安装目录中的指定ini和xml文件中

第一个需求就折腾了我大半天，难点在于动态填充ComboBox项，资料和文档不好找，又是E文，好在天道酬勤，愣是让我在官方论坛中刨到有用的帖子，总算搞掂，或者我会另开一文说说如何做的，以助后来者。

接下来就是获取用户的输入，然后写入指定ini和xml中。AI可以*发挥的途径个人认为不算少，它的自定动作（Custom Actions）可以调用exe/js/vbs等东东，但js和vbs我没什么底子，有点畏难情绪，想用自己熟悉的方式来解决问题，就是用c#写个exe，通过main函数传参，把参数写入ini和xml~很容易的事。但仔细想想，一来，.net程序依赖CLR，虽说安装过程可以指定必要组件，强制用户把.net装好，不用担心执行到该.net程序时缺乏运行环境，但总感觉在安装包中嵌入.net程序好像不太地道，再有.net程序首次运行需唤醒CLR，我安装过程求的就是顺畅，为了一个简单任务就要等待CLR启动，即便只是一两秒，也是我不能忍受的；二来，即便我有信心短时间内学会另一门非托管语言（delphi/c++啥的）来完成这个简单任务，但exe体积也必然会大大超过脚本的，这会增大整个安装包的体积，没必要。所有思来想去，还是决定搞一搞vbs。

只是他娘的，用惯优雅的C#，感觉其它语言就像屎一样，更别说像vbs这种脚本还没什么像样的ISE，总之很佩服主要coding在这些语言上的码农们，完全是受虐。whatever~一开始本来想找找vbs调用win32 API的方法，如果可以的话，那调一调WritePrivateProfileString就完事了，可找来找去，发现似乎vbs不能直接调API（没找到官方说法，故暂存疑），网上高人的办法有二：一是用vbs调用office的vba组件，再操作vba来调用api~真叫一个迂回，同时也感叹高人的智慧呐；二是往系统中扔一个dynwrap.dll就可以调了，话说这dll的出处还颇为神秘，搜不到，文件信息和内容也没看出什么端倪，人作者这才是真雷锋啊。anyway，上述方法对于我做安装包来说，万万不能考虑，所以，还是老实研究地道vbs法，小有成果，分享如下：

'函数：设置ini值（ini路径，目标节点，目标键，目标值）
'注：若ini文件不存在则创建；节点或键不存在则添加
Function SetIniValue(path, sectionName, keyName, value)

Dim fso,file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(path, ,true)

Dim line, cache, inSection, sectionExist, keyExist
Do Until file.AtEndOfStream
line = file.Readline
if StrComp(Trim(line),"["+sectionName+"]",)= Then
   inSection=True
   sectionExist=True
End If
if inSection And Left(LTrim(line),)="[" And StrComp(Trim(line),"["+sectionName+"]",)<> Then
   inSection=False
   If Not keyExist Then
      cache = cache + keyName+"="+value+vbCrLf
      keyExist=True
   End If
End If

if inSection And InStr(line,"=")<> Then
   ss = Split(line,"=")
   If StrComp(Trim(ss()),keyName,)= Then
      line = ss()+"="+value
      keyExist = True
   End If
End If

cache=cache+line+vbcrlf

Loop

file.Close

If not sectionExist Then
   cache = cache + "["+sectionName+"]"+vbCrLf
   cache = cache + keyName+"="+value+vbCrLf
ElseIf Not keyExist Then
   cache = cache + keyName+"="+value+vbCrLf
End If

Set file = fso.OpenTextFile(path, , True)
file.Write(cache)
file.Close

End Function

'调用
SetIniValue "C:\test.ini","Other","ccc","aaa"

原理无非就是利用处理文本的方式来处理ini，逐行读入，遇到无关行就直接存入cache，有关行则做相应处理后再存入cache，最后得到的cache就是一份完整的新ini的内容，直接把cache写入原文件，就实现了“修改”。

- 文毕 -