vbnet讀取ini,vbnet讀取內(nèi)存地址

VB.NET2010讀取INI配置文件問題？

設(shè)計功能

10年積累的成都網(wǎng)站建設(shè)、成都網(wǎng)站制作經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認識你，你也不認識我。但先做網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程，更有烈山免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

說明：第一個參考頁導入了System.IO

功能sdGetIniInfo（字符串的BYVAL iniSection的字符串，BYVAL INIFILE），如果該字符串/ File.Exists （INIFILE返回的“文件”INIFILE的的）

，而“未找到，以確保路徑和文件名是否正確！”如果

黑暗iniRead

昏暗的iniStr新的StreamReader（INIFILE），的字符串iniRead.ReadToEnd

朦朧朦朧的整數(shù)

最后的出口，克萊因整數(shù)

昏暗的NOSEC布爾=假

作為一個字符的字符串昏暗的getValue“

黑暗的壁櫥

衣柜iniStr.Split（CHR（13 ））CLINE = UBOUND功能的（CLST）

= 0 CLINE

衣柜（I）的indexOf（“=”） 0，

衣柜（I）分裂（“=”） （0）TRIM（）= iniSection

NOSEC =

的getValue = CLST（I）分裂（“=”;)（1）修剪（）

BR /退出

最后，如果

如果NOSEC = TRUE

返回的getValue BR /

的安裝信息沒有找到“iniSection！”

功能

====如果=================== ===================

TEXT1 = sdGetIniInfo（路徑，“名稱”）

事實上，無論是ini文本文件XML只使用一定的格式，或所謂的數(shù)據(jù)結(jié)構(gòu)，在最后的分析中，實現(xiàn)的文件操作的功能只是一個包文件的讀取和寫入操作。

是不是寫一個函數(shù)的API！

求大神指點 vb.net 怎么讀 ini 配置呢

VB.NET讀寫INI配置文件

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim path As String

path = Application.StartupPath + "\Send.ini"

TextBox1.Text = GetINI("Send", "Send1", "", path)

TextBox2.Text = GetINI("Send", "Send2", "", path)

Dim IsSms As Integer = GetINI("Send", "IsSms", "", path)

If (IsSms = 1) Then

Me.RadioButton1.Checked = True

ElseIf (IsSms = 0) Then

Me.RadioButton2.Checked = True

End If

End Sub

Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String

Dim Str As String = LSet(Str, 256)

GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)

Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)

End Function

Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long

WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)

End Function

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 Int32, ByVal lpFileName As String) As Int32

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim path As String

path = Application.StartupPath + "\Send.ini"

WriteINI("Send", "Send1", TextBox1.Text, path)

WriteINI("Send", "Send2", TextBox2.Text, path)

If (Me.RadioButton1.Checked = True) Then

WriteINI("Send", "IsSms", 1, path)

ElseIf (Me.RadioButton2.Checked = True) Then

WriteINI("Send", "IsSms", 0, path)

End If

MsgBox("配置設(shè)置已經(jīng)成功?。。?！")

Catch ex As Exception

MsgBox("錯誤?。。。?)

End Try

End Sub

vb.net 讀取ini的所有值

Dim?s?As?String()?=?System.IO.File.ReadAllLines("t.ini")?'文件

For?i?As?Integer?=?0?To?s.Length?-?1

Dim?si?As?Integer?=?s(i).IndexOf("=")

If?si??-1?Then

ListBox1.Items.Add(s(i).Substring(0,?si)??"?=?"??s(i).Substring(si?+?1))

End?If

Next

's(i).Substring(0,?si)是變量名，s(i).Substring(si?+?1)是值

vb.net 讀取ini問題

Dim Str As String

Str = ""

Str = LSet(Str, 256)

GetPrivateProfileString(bookto, AppName, lpDefault, Str, Len(Str), FileName)

Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)

網(wǎng)站名稱：vbnet讀取ini,vbnet讀取內(nèi)存地址
鏈接分享：http://muchs.cn/article10/phegdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信公眾號、手機網(wǎng)站建設(shè)、App開發(fā)、品牌網(wǎng)站建設(shè)、網(wǎng)站策劃、企業(yè)網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)