xzbyw的博客

If Left$(LsTmpStr$, 1) = "[" And Right$(LsTmpStr$, 1) = "]" Then '下一节了。' delSectionAllTxtInINIFile "登录帐户XX", "S:\帐户.ini", 0 '保留小节名不删。'实例：delSectionAllTxtInINIFile "[登录帐户XX]", "S:\帐户.ini" ''参数：SectionName　　'小节名，前后可有[]，也可无。

ElseIf Left$(LsTmpStr$, 1) = "[" And Right$(LsTmpStr$, 1) = "]" Then '下一节了。'返回：0``1``2``3``4``5``6``7``8``9``10``11``12``13``14``15``16......'SectionArray = Split(函数返回值, "``")'返回：键名1``键名2``......``键名X（以``分隔）'删除最后的两个"``"

existingData(I) = Format(existingData(I), "0.0###############") '保留小数点前面唯一的0，并删除掉小数点后无意义的0，如：.5450000-->0.545，45.00-->45.0而不是：45.sampleData(I) = Format(sampleData(I), "0.0###############") '保留小数点前面唯一的0，并删除掉小数点后无意义的0，如：.5450000-->0.545，45.00-->45.0而不是：45.