关于文件读取、保存的问题

Question

C盘根目录下有文件temp.ini。文件内容如下：
[az]
a=234513
e=156781
g=5137561
c=12.135
.
.
.
z=12342
如何将a到z每个变量的值读取，并+1后再次存入原址？
谢谢！
谁有水晶报表？

Answer 1

dim tmp as string,tmps as string
tmps=""
open "c:\temp.ini" for input as #1
do while not eof(1)
    line input #1,tmp
    if ((left(tmp,1)>"A" and left(tmp,1)<"Z") or (left(tmp,1)>"a" and left(tmp,1)<"z")) and mid(tmp,2,1)="=" and isnumeric(mid(tmp,3)) then
        tmps=tmps & left(tmp,2) & cstr((cdbl(mid(tmp,3))+1)) & vbcrlf
    else
        tmps=tmps & tmp & vbcrlf
    end if
loop
close #1
kill "c:\temp.ini"
open "c:\temp.ini" for output as #1
print #1,tmps
close #1大概就可以了。

Answer 2

这个涉及到了WindowsApi函数，getrpivateprofile,WritePrivateProfile函数的使用，他们是用来读写INI文件的，具体用法请用GOOGLE来查询。

Answer 3

楼主这么快就给分啦？！呵呵
改进一下：原：
(left(tmp,1)>"A" and left(tmp,1)<"Z") or (left(tmp,1)>"a" and left(tmp,1)<"z"改成：
(left(tmp,1)>="A" and left(tmp,1)<="Z") or (left(tmp,1)>="a" and left(tmp,1)<="z")因为如果不加 = 符，a 和 z 是不能被处理的。