作者sakiman (MW221U)
看板Visual_Basic
标题Re: [.NET] 快速取得.ini里所有section?
时间Sat Jul 2 11:34:52 2011
谢谢 chinoyan
我成功了
参考後的完成code
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
sSection = vbNullString
sKey = vbNullString
sinifilename = Application.StartupPath & "\config.ini"
If Not FileExistOrNot(sinifilename) Then Exit Sub
Dim tempStr As String
Dim numSection As Integer 'Section数量
'直接引用GetPrivateProfileString
sKeyValue = Space(65536)
lReturnLen = GetPrivateProfileString(sSection, _
sKey, "", sKeyValue, 32768, sinifilename)
tempStr = ""
tempStr = sKeyValue.Substring(0, lReturnLen)
numSection = UBound(tempStr.Split(Chr(0))) '取得Section数量
MsgBox(tempStr.Split(Chr(0))(numSection - 1)) '试印最後一个Section
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.135.168.66