论坛 › 已解决问题区 › 想把这个函数写到ini中 不知道是不是可行 已解决

veve 发表于 2011-10-15 04:05:35

想把这个函数写到ini中 不知道是不是可行 已解决

本帖最后由 veve 于 2011-10-15 05:56 编辑

目的是 方便加入数据   不要改打包的EXE改下INI就好。。。
ex
Func TS2id()
        If $h12 == "AAA" Then
                $TSID = "1876"
        EndIf

        If $h12 == "BBB" Then
                $TSID = "7610"
        EndIf

        If $h12 == "AAC" Then
                $TSID = "3622"
        EndIf

        If $h12 == "ABD" Then
                $TSID = "29163"
        EndIf

； 可以接着加

endfunc


============================================

请教了。。。

veve 发表于 2011-10-15 05:43:05

呵呵 搞定 。。。

veve 发表于 2011-10-15 06:00:24

Func ts2id()
                $var = IniReadSection($inipatch, "ts2id")
                For $i = 1 To $var
                If $h12 == $var[$i] Then
                $tsid = $var[$i]
          EndIf
          If $tsid <> "" Then
                        ExitLoop
                EndIf
               Next
EndFunc

ini 内容。。。


AAA=1876
BBB=7610
CCC=3622
XXX= yyyy

查看完整版本: 想把这个函数写到ini中 不知道是不是可行 已解决