vb读取配置文件|VB读取本地ini配置文件内容至TextBox

1. 如何用VB读取ini配置文件

为了方便用户使用和使系统具有灵活性，大多数Win-dows应用程序将用户所做的选择以及各种变化的系统信息记录在初始化(INI)文件中。因此，当系统的环境发生变化时，可以直接修改INI文件，而无需修改程序。由此可见，INI文件对系统功能是至关重要的。本文将介绍采用VisualBasicforWindows(下称VB)开发Windows应用程序时如何读写INI文件。INI文件是文本文件，由若干部分(section)组成，在每个带括号的标题下面，是若干个以单个单词开头的关键词(keyword)和一个等号，每个关键词会控制应用程序某个功能的工作方式，等号右边的值(value)指定关键词的操作方式。其一般形式如下:[section1]keyword1=valuelkeyword2=value2……[section2]keyword1=value1keyword2=value2……其中，如果等号右边无任何内容(即value为空)，那就表示Windows应用程序已为该关键词指定了缺省值，如果在整个文件中找不到某个关键词(或整个一部分)，那同样表示为它们指定了缺省值。各个部分所出现的顺序是无关紧要的，在每一个部分里，各个关键词的顺序同样也无关紧要。读写INI文件通常有两种方式:一是在Windows中用"记事本"(Notepad)对其进行编辑，比较简单，无需赘述;二是由Windows应用程序读写INI文件，通常是应用程序运行时读取INI文件中的信息，退出应用程序时保存用户对运行环境的某些修改。关键词的值的类型多为字符串或整数型，应分两种情况读写。为了使程序具有可维护性和可移植性，最好把对INI文件的读写封装在一个模块(RWINI.BAS)中，在RWI-NI.BAS中构造GetIniS和GetIniN函数以及SetIniS和Se-tIniN过程，在这些函数和过程中需要使用WindowsAPI的"GetPrivateprofileString"、"GetPrivateProfileInt"和"WritePrivateProfileString"函数。RWINI.BAS模块的程序代码如下:在General-Declearation部分中声明使用到的WindowsAPI函数:Declare Function GetprivateprofileString Lib"Ker-nel"(ByVallpAppName As String，ByVallpKeyName As String，ByVallpDefault As String，ByVal lpRetrm-String As String，ByVal cbReturnString As Integer，ByVal Filename As String)As IntegerDeclare FunctionGetPrivatePfileInt Lib "Kernel"(ByVal lpAppName As String，ByVal lpKeyName As String，ByVal lpDefault As Integer，ByVal Filename As String)As IntegerDeclare Lib "Kernel"(ByVal lpApplicationName As String，ByVal lpKeyName As String，ByVal lpString As String，ByVal lplFileName As String)As IntegerFunction GetIniS(ByVal SectionName As String，ByVal KeyWord As String，ByVal DefString As String)As StringDim ResultString As String * 144，Temp As IntegerDims As String，i As IntegerTemp%=GetPrivateProfileString(SectionName，KeyWord，""，ResultString，144，AppProfileName())‘检索关键词的值IfTemp%＞0Then‘关键词的值不为空s=""Fori=1To144IfAsc(Mid$(ResultString，I，1))=0ThenExitForElses=s&Mid$(ResultString，I，1)EndIfNextElseTemp%=WritePrivateProfilesString(sectionname，KeyWord，DefString，ppProfileName())‘将缺省值写入INI文件s=DefStringEndIfGetIniS=sEndFunctionFunctionGetIniN(ByValSectionNameAsString，ByValKeyWordAsString，ByValDefValueAsIneger)AsIntegerDimdAsLong，sAsStringd=DefValueGetIniN=GetPrivateProfileInt(SectionName，KeyWord，DefValue，ppProfileName())Ifd＜＞DefValueThens=""&dd=WritePrivateProfileString(SectionName，KeyWord，s，AppProfileName())EndIfEndFunctionSubSetIniS(ByValSectionNameAsString，BtVaKeyWordAsString，ByValValStrAsString)Dimres%res%=WritePrivateprofileString(SectionName，KeyWord，ValStr，AppProfileName())EndSubSubSetIniN(ByValSectionNameAsString，ByValKeyWordAsString，ByValValIntAsInteger)Dimres%，s$s$=Str$(ValInt)res%=WriteprivateProfileString(SectionName，KeyWord，s$，AppProfileName())EndSubSectionName为每一部分的标题，KeyWord为关键词，GetIniS和GetIniN中的DefValue为关键词的缺省值，SetIniS和SetIniN的ValStr和ValInt为要写入INI文件的关键词的值。为了能更好地说明如何使用以上函数和过程，下面举两个实例。实例1:开发应用程序通常要使用数据库和其它一些文件，这些文件的目录(包括路径和文件名)不应在程序中固定，而是保存在INI文件中，程序运行时由INI文件中读入。读入数据库文件的代码如下:DimDatabasenameAsStringDatabasename=GetIniS("数据库"，"职工"，"")IfDatabaseName=""ThenDatabaseName=InputBox("请输入数据库《职工》的目录")，App.Title)’也可通过"文件对话框"进行选择OnErrorResumeNextSetdb=OpenDatabas(DatabaseName)IfErr＜＞0ThenMsgBox"打开数据库失败!"，MB-ICONSTOP，App.Title:GotoErrorProcessingElseSetIniS"数据库"，"职工"，DatabaseNameEndIfOnErrorGoTo0……实例2:为了方便用户操作，有时需要保存用户界面的某些信息，例如窗口的高度和宽度等。装载窗体时，从INI文件中读入窗体高度和宽度，卸载窗体时将窗体当前高度和宽度存入INI文件，代码如下:Sub Form1_Load()……Forml.Height=GetIniN("窗体1"，"高度"，6000)Form1.Width=GetIniN("窗体1"，"高度"，4500)EndSub……Sub Form1_Unload()……SetIniN"窗体1"，"高度"，Me.HeightSetIniN"窗体1，"宽度"，Me.Width……End Sub

2. VB.NET2010读取INI配置文件问题

设计一个读取函数说明：在引用的面页中要先引用 Imports System.IO Function sdGetIniInfo(ByVal iniFile As String, ByVal iniSection As String) As String If Not File.Exists(iniFile) Then Return "文件 " & iniFile & " 未找到，请确认路径和文件名是否正确！" Exit Function End IfDim iniRead As New StreamReader(iniFile) Dim iniStr As String = iniRead.ReadToEnd Dim i As Integer Dim cLine As Integer Dim noSec As Boolean = False Dim getValue As String = "" Dim cLstcLst = iniStr.Split(Chr(13)) cLine = UBound(cLst) For i = 0 To cLine If cLst(i).indexof("=") > 0 Then If cLst(i).split("=")(0).trim() = iniSection Then noSec = True getValue = cLst(i).split("=")(1).trim() Exit For End If End If NextIf noSec = True Then Return getValue Else Return "没有找到 " & iniSection & " 的设置信息！" End If End Function==========================================TEXT1=sdGetIniInfo（路径，“Name”）其他类似其实，无论ini和xml都是文本文件，只是带了一些格式，或者叫数据结构吧，归根到底都是用文件操作来实现，一些函数也只不过是封装好了的文件读写操作而已！ 这不是api，就是自己写个函数！

3. vb 读写配置文件

下面这些代码可以实现对.INI文件的读写,用标准模块保存它..Attribute VB_Name = "INIReadWrite"Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As LongPrivate 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''lpApplicationName 要在其中写入新字串的小节名称。这个字串不区分大小写''lpszSection String 指定要在其中写入新串的小节。如尚不存在，会创建这个小节。这个字串不区分大小写。''lpszKeyName String 要设置的项名或条目名。这个字串不区分大小写。用vbNullString可删除这个小节的所有设置项。''lpszString String 指定为这个项写入的字串值。用vbNullString表示删除这个项现有的字串。''lpFileName 读取文件名Dim INIFilePath As StringSub SetINI(ByVal INIPath As String)INIFilePath = INIPathEnd SubSub WriteKey(ByVal Section As String, ByVal Key As String, Optional ByVal KeyValue As String = "")WritePrivateProfileString Section, Key, KeyValue, INIFilePathEnd SubFunction ReadKey(ByVal Section As String, ByVal Key As String, Optional ByVal Size As Long = 256) As StringDim Str As StringStr = Space(Size)If GetPrivateProfileString(Section, Key, 0, Str, Size, INIFilePath) <> 0 Then ReadKey = StrEnd Function窗体的话你可以自己设计下,因为不知道你想要什么效果,或者你可以就上面的代码用MsgBox输出Key值来看看效果..

4. 用VB实现读取/写入INI配置文件的问题.

Private Declare Function GetPrivateProfileString Lib "kernel32" _Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _ByVal lpKeyName As Any, ByVal lpDefault As String, _ByVal lpReturnedString As String, ByVal nSize As Long, _ByVal lpFileName As String) As LongPrivate Declare Function WritePrivateProfileString Lib "kernel32" _Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _ByVal lpKeyName As Any, ByVal lpString As Any, _ByVal lpFileName As String) As LongFunction GetFromIni(strSectionHeader As String, strVariableName As String, strFileName As String) As StringDim strReturn As StringstrReturn = String(255, Chr(0))GetFromIni = Left$(strReturn, GetPrivateProfileString(strSectionHeader, ByVal strVariableName, "", strReturn, Len(strReturn), strFileName))End FunctionPrivate Sub Command1_Click()Dim success As Longsuccess = WritePrivateProfileString("系统配置", "load", Text1.Text, "c:\cf.ini")End SubPrivate Sub command2_click()Text1.Text = GetFromIni("系统配置", "load", "c:\cf.ini")End Sub

5. vb中怎么把txt或者ini配置文件加在文件尾部，并用此程序读取配置文件。 请高手详细说一下，贴一下代码。

在窗口unload事件里加Open App.Path & "\Config.ini" for append As #1 '在当前目录创建config文件，条件是追加Print #1, Text1; ‘把text1的内容写入Config文件，并且要换行。Close #1 '关闭文件，防止呆会读取出错。然后再窗口load事件里加dim Pz1 as String '定义呆会要读取的文字为字符型Open App.Path & "\Config.ini" For Input As #1 ’打开Config中的文件Line Input #1, pz1 ‘输出第一行到pz1’然后你可以把pz1赋值给text1text1 = pz1close #1 '别忘了这句，不然呆会关闭窗口会出错。 楼下说用数据控件。。 如果用控件的话，那些属性还是得自己慢慢查。

6. VB读取本地ini配置文件内容至TextBox

Read 按钮的Click事件，从ini文件读取email和passwordPrivate Sub cmdRead_Click()Dim fnum As IntegerDim one_line As StringDim key As StringDim value As StringDim section As StringDim pos As Integerfnum = FreeFileOpen txtFileName.Text For Input As fnumDo While Not EOF(fnum)' 读取一行Line Input #fnum, one_line' 判断是区块还是键值If Left$(one_line, 1) = "[" Then' 取出区块名称section = Mid$(one_line, 2, Len(one_line) – 2)ElseIf InStr(one_line, "=") > 0 Thenpos = InStr(one_line, "=")' 取出键名称key = Left$(one_line, pos – 1)' 取出对应的值value = Mid$(one_line, pos + 1)' 判断是否为my区块If section = "my" ThenIf key = "email" ThenText1.Text = valueElseIf key = "password" ThenText2.Text = valueEnd IfEnd IfEnd IfLoopClose fnumEnd Sub txtFileName为输入ini文件路径的TextBox的名称

7. vb.net 2.0 如何用Configuration.ConfigurationSettings.AppSettings读取配置文件中的内容

使用ConfigurationSettings.AppSetting读取，如下例Imports System.ConfigurationPrivate ReadOnly db As String = ConfigurationSettings.AppSettings("DB")

8. VB6.0如何读取INI配置文件，和连接数据库以及增删查改的例子

你这不是一个问题，而是三个问题。读取INI配置文件可以用api函数最简洁。连接数据库以及增删查改可以在vb6.0的工程模板中选择数据库工程，就是一个最基本的数据库例子。

9. VB读写INI文件

'API函数的声明'ini配置文件Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As LongPrivate Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As LongPrivate 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 '自定义函数'读取/设置ini配置文件Private Function GetIniS(FilePath As String, SectionName As String, KeyWord As String, DefString As String) As String Dim ResultString As String * 255, Temp As Long Dim s As String, i As Integer Temp = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 255, FilePath) If Temp > 0 Then '关键词的值不为空 s = "" For i = 1 To 255 If Asc(Mid(ResultString, i, 1)) = 0 Then Exit For Else s = s & Mid(ResultString, i, 1) End If Next i Else If DefString <> "" Then '将缺省值写入INI文件 Temp = WritePrivateProfileString(SectionName, KeyWord, DefString, FilePath) s = DefString End If End If GetIniS = sEnd FunctionPrivate Function GetIniN(FilePath As String, SectionName As String, KeyWord As String, DefValue As Long) As Long Dim d As Long, s As String d = DefValue GetIniN = GetPrivateProfileInt(SectionName, KeyWord, DefValue, FilePath) 'If d <> DefValue Then ' s = CStr(d) ' d = WritePrivateProfileString(SectionName, KeyWord, s, FilePath) 'End IfEnd FunctionPrivate Sub SetIniS(FilePath As String, SectionName As String, KeyWord As String, ValStr As String) Dim res As Long res = WritePrivateProfileString(SectionName, KeyWord, ValStr, FilePath)End SubPrivate Sub SetIniN(FilePath As String, SectionName As String, KeyWord As String, ValLon As Long) Dim res As Long, s As String s = CStr(ValLon) res = WritePrivateProfileString(SectionName, KeyWord, s, FilePath)End Sub'读取过程Private Sub Command1_Click() Dim fname As String Dim SectionName As String, KeyWord As String, DefString As String, DefValue As Long Dim s As String, sValue As String Dim i As Integer, j As Integer Dim Result() As String fname = "……" '你所要读取的文件（包括其绝对路径） SectionName = "KeyName" '字段 KeyWord = "Key" '相同的部分 DefString = "???" '一般为空字符，我这里是用于区分Value1为空是是否继续进行用的 i = 0 j = -1 Do i = i + 1 s = KeyWord & CStr(i) sValue = GetIniS(fname, SectionName, KeyWord, DefString) If sValue <> DefString Then j = j + 1 ReDim Preserve Result(j) Result(j) = sValue Else Exit Do End If Loop End Sub你再结合自己的具体情况，修改下就行了

10. VB读写配置INI文件

用INI文件的读写函数比较好 Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private 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 Private Function WriteIniFileString(StandKey As String, keyName As String, keyValue As String, FileName) As Long '写INI文件函数 Dim leninikey As Long Dim strkey As String * 255 WriteIniFileString = WritePrivateProfileString(StandKey, keyName, keyValue, FileName) End Function Private Function GetIniFileString(StandKey As String, keyName As String, Default As String, FileName As String) As String '读取INI文件函数 Dim leninikey As Long Dim strkey As String * 255 leninikey = GetPrivateProfileString(StandKey, keyName, Default, strkey, Len(strkey), FileName)