专栏首页AhDung【vbs】vbs写ini文件

【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, 1,true)

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

if inSection And InStr(line,"=")<>0 Then
   ss = Split(line,"=")
   If StrComp(Trim(ss(0)),keyName,1)=0 Then
      line = ss(0)+"="+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, 2, True)
file.Write(cache)
file.Close

End Function

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

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

- 文毕 -

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • 偶尔要用的git命令备忘

    AhDung
  • 【手记】解决VS2017 git 拉取按钮灰色的问题

    若干仓库都是能推不能拉,下面显示当前分支不跟踪远程分支,后来在这里找到给分支建立跟踪的方法,又在这里找到在VS2017中敲git命令的方法,在此感谢上述博文的作...

    AhDung
  • 【吐槽】gist.github.com疑遭中间人攻击

    北京时间201510081004,云南电信用户,现在上https://gist.github.com/,用IE10会提示证书被伪造,用搜狗4.1.3.9668会...

    AhDung
  • 商城项目-分布式文件系统改造文件上传功能

    分布式文件系统(Distributed File System)是指文件系统管理的物理存储资源不一定直接连接在本地节点上,而是通过计算机网络与节点相连。

    cwl_java
  • Github项目推荐 | Pytorch TVM 扩展

    你需要在这个PR的基础上构建PyTorch:https://github.com/pytorch/pytorch/pull/18588

    AI研习社
  • 宜信容器云排错工具集

    宜信容器云是一套基于kubernetes的容器管理平台。业务线用户在容器云上部署应用程序时,常常会遇到容器无法启动或者应用程序运行不正常的情况。为了方便用户排查...

    宜信技术学院
  • 佛祖保佑,永无bug(仅供娱乐)

    有了它,bug消失了,睡的也香了,哈哈哈~还有,该插件目前只能保佑js文件。如果要保佑其他格式的文件,只需修改其 config.json即可。

    Joel
  • HDUOJ---2955 Robberies

    Robberies Time Limit: 2000/1000 MS (Java/Others)    Memory Limit: 32768/32768 K ...

    Gxjun
  • PHP中WEB典型应用技术

          2)、在浏览器端提供能够进行文件上传的表单。其实就是给表单添加属性:enctype=”multipart/form-data”;

    北国风光
  • SAP最佳业务实践:SD–含客户预付款的销售订单处理(201)-3开票

    一、VA02销售订单变更(移除开票冻结) 在此活动中,移除销售订单的开票冻结。 必须手动移除开票冻结才能处理第一个预付款请求。 后勤® 销售和分销 ® 销售® ...

    SAP最佳业务实践

扫码关注云+社区

领取腾讯云代金券