以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  读配置文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8057)

--  作者:sophia
--  发布时间:2010/9/1 21:19:00
--  读配置文件

想把配置文件中的相关字段内容读入到表中,应该怎么能做到呢?

例如:将配置文件的发证日期(2010年06月16日)读入到表A的“发证日期”字段 .

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar


--  作者:狐狸爸爸
--  发布时间:2010/9/2 9:35:00
--  
Dim str1 As String = Filesys.ReadAllText(ProjectPath & "hgz.ini",system.text.encoding.default)
Dim str2() AS String = Str1.Split(vblf)
Dim str3() As String
For i As Integer =1 To str2.length -1
   str3 = str2(i).split("=")
   If str3.length = 2 Then
       If CurrentTable.Cols.Contains(str3(0)) Then
            CurrentTable.current(str3(0)) = str3(1)
       End If
   End If
Next

--  作者:blackzhu
--  发布时间:2010/9/2 9:50:00
--  
学习,收藏!
--  作者:sophia
--  发布时间:2010/9/2 18:29:00
--  
顶!代码写的简洁明了。
--  作者:blackzhu
--  发布时间:2010/9/16 20:56:00
--  
以下是引用狐狸爸爸在2010-9-2 9:35:00的发言:
Dim str1 As String = Filesys.ReadAllText(ProjectPath & "hgz.ini",system.text.encoding.default)
Dim str2() AS String = Str1.Split(vblf)
Dim str3() As String
For i As Integer =1 To str2.length -1
   str3 = str2(i).split("=")
   If str3.length = 2 Then
       If CurrentTable.Cols.Contains(str3(0)) Then
            CurrentTable.current(str3(0)) = str3(1)
       End If
   End If
Next

  如果是读取文本文件呢