您的位置：程序门 -> vb -> 基础类

请问用“getprivateprofileint”读取ini文件读取不了。。

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请问用“getprivateprofileint”读取ini文件读取不了。。[已结贴,结贴人:cchj1987]

发表于：2008-01-10 09:32:28 楼主

代码如下：
private declare function getprivateprofileint lib "kernel32" alias "getprivateprofileinta" （ _
byval lpapplicationname as string, _
byval lpkeyname as string, _
byval ndefault as string, _
byval lpfilename as string) as long
private sub command1_click（)
open "c:\1.txt" for input as #1
dim lines as string
dim nextline
do until eof（1)
on error resume next
line input #1, nextline
lines = lines + nextline & chr$（13) + chr$（10)
loop
close #1
dim t as string
dim x as string
t = space$（1000)

x = getprivateprofilestring（lines, "name", "", t, 1000, app.path & "\abc.ini")
text1 = left$（t, len（trim$（t)) - 1)

x = getprivateprofilestring（lines, "email", "", t, 1000, app.path & "\abc.ini")
text2 = left$（t, len（trim$（t)) - 1)

end sub

发表于：2008-01-10 09:39:051楼得分:0

就是那个lines的变量。如果不用变量就可以。用变量就不可以了。。能解决的请帮一下拉。没分给你。只有说句谢谢了。。

发表于：2008-01-10 09:43:092楼得分:0

lines为什么还要添上换行符？这样一来就不能和节名匹配了。

发表于：2008-01-10 16:25:373楼得分:0

谢谢了。我真糊涂。。这都没看到。。。谢谢。。。

下一篇：我想写一个程序
上一篇：高分请问：各位大哥：vb里dategrid 的属性问题，很简单的，请各位帮帮忙~！~~~~~~~~~!!!!

其他资讯