UC知道VB中文本如何存储到ini文件里？
来源：百度知道 编辑：UC知道 时间：2024/07/07 14:23:52
VB窗体中有个文本框text1,还有个保存按钮。
在文本框里输入nihao1,然后点击保存，怎么才能把nihao1保存进ini文件里？而且重新输入nihao2,再次保存，就会在ini文件里保存为另一行，
第一次的nihao1 和第二次的nihao2 都会被存储！
这样方便以后一个一个读取，，，请问达到这个效果 怎么弄？我是菜鸟请讲详细点。我会加分的
要详细讲解的。我看得懂的
在文本框里输入nihao1,然后点击保存，怎么才能把nihao1保存进ini文件里？而且重新输入nihao2,再次保存，就会在ini文件里保存为另一行，
第一次的nihao1 和第二次的nihao2 都会被存储！
这样方便以后一个一个读取，，，请问达到这个效果 怎么弄？我是菜鸟请讲详细点。我会加分的
要详细讲解的。我看得懂的
Open app.path & "\aa.ini" For append As #1 ' 添加到aa.ini文件。
print #1 ,text1.text
Close #1 ' 关闭文件。
第二次
Open app.path & "\aa.ini" For append As #1 ' 添加到aa.ini文件。
print #1 ,text1.text '这里您好2
Close #1 ' 关闭文件。
aa.ini中就会有
nihao1
nihao2
要读入的话是这样的
Dim TextLine
Open app.path & "\aa.ini" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
print TextLine ' 把读入的文一行打印到窗体上
Loop
Close #1 ' 关闭文件。
'读写INI的API函数
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivat