- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 取ini值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126695)
-- 发布时间：2018/10/26 15:45:00
-- 取ini值
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:p2000-24b.rar |
ini最后一行是product_type=P2000-24B
我现在想把product_type他的值P2000-24B写入到text里面。
Dim inilj As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim iniwj As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "ini文件|*.ini" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim id As Integer = dlg.FileName.lastindexof("\\")
Dim lj As String = dlg.FileName.Substring(0,id)
inilj.text = dlg.FileName
iniwj.text = dlg.FileName.SubString(id + 1)
MessageBox.Show("你选择的INI是:" & dlg.FileName,"INI路径") \'提示用户选择的文件
End If
-- 发布时间：2018/10/26 16:28:00
--
之前例子我是真打不开。
还是在我这个例子给帮忙处理处理。谢谢。
-- 发布时间：2018/10/26 16:41:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "ini文件|*.ini" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim util As new INIClass(dlg.FileName)
If util.ExistINIFile Then
msgbox( util.IniReadValue("config", "product_type"))
End If
End If
-- 发布时间：2018/10/26 16:47:00
--
此主题相关图片如下：iniclass.jpg
-- 发布时间：2018/10/26 17:15:00
--
看示例的全局代码
-- 发布时间：2018/10/26 17:19:00
--
就是因为我打不开示例，没法看全局代码。
-- 发布时间：2018/10/26 17:25:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |