Foxtable(狐表)用户栏目专家坐堂 → 晕了,帮我看看这个代码怎么改?


  共有5027人关注过本帖树形打印复制链接

主题:晕了,帮我看看这个代码怎么改?

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
晕了,帮我看看这个代码怎么改?  发帖心情 Post By:2013/6/27 15:47:00 [只看该作者]

pz.ini

内容格式是这样的:

系统名字 = xxx
开发者 =xxx
开发者信息 =xxx
授权用户 =xxx
授权联系人 = xxx
被授权人联系电话 =xxx
被授权人ID信息 = xxx




Dim str3() As String
If FileSys.FileExists(ProjectPath & "data\pz.ini") Then
    Dim Val2 As String = FileSys.ReadAllText(ProjectPath & "data\pz.ini",system.text.encoding.default)
    Dim Val3 As String = DecryptText(Val2,"zhujian","zhujian")
    Dim str() As String = Val3.Split(vbcrlf)
    For i As Integer = 0 To str.length -1
        str3 = str(i).split("=")
        If str3.length = 2 Then
            For Each c As WinForm.Control In e.Form.Controls
                If Typeof c Is WinForm.TextBox Then '判断控件是否是文本框
                    Dim t As WinForm.TextBox = c '使用特定类型的变量引用控件
'MessageBox.Show(t.name & str3(0))
                    If t.Name.Contains(str3(0)) Then
                        t.Value = str3(1)
                    End If
                End If
            Next
        End If
    Next
End If

  读取都没有问题,只是文本框的名字和 " ="  前  的 不能匹配.  怎么改?
[此贴子已经被作者于2013-6-27 15:50:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/6/27 15:49:00 [只看该作者]

是不是多了空格  上个例子看看.

 回到顶部
帅哥哟,离线,有人找我吗?
don
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/6/27 15:51:00 [只看该作者]

有空格吧

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/6/27 15:58:00 [只看该作者]

我看了 没有空格呀!

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/6/27 16:01:00 [只看该作者]

上个简单例子 看看

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/6/27 16:05:00 [只看该作者]

上传:

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



 回到顶部
帅哥哟,离线,有人找我吗?
don
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2013/6/27 16:17:00 [只看该作者]

有空行

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/6/27 16:18:00 [只看该作者]

确实是空格的问题.

Dim str3() As String
If FileSys.FileExists(ProjectPath & "data\pz.ini") Then
    Dim Val2 As String = FileSys.ReadAllText(ProjectPath & "data\pz.ini",system.text.encoding.default)
    Dim Val3 As String = DecryptText(Val2,"zhujian","zhujian")
    Dim str() As String = Val3.Split(vbcrlf)
    For i As Integer = 0 To str.length -1
        str3 = str(i).split("=")
        If str3.length = 2 Then
       
            For Each c As WinForm.Control In e.Form.Controls
                If Typeof c Is WinForm.TextBox Then '判断控件是否是文本框
                    Dim t As WinForm.TextBox = c '使用特定类型的变量引用控件
'MessageBox.Show(t.name & str3(0))
                    If t.Name.trim()=(str3(0)).trim() Then
                       MessageBox.show(t.Name)
                        t.Value = str3(1)
                    End If
                End If
            Next
        End If
    Next
End If

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/6/27 16:25:00 [只看该作者]

我试试.

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/6/27 16:47:00 [只看该作者]

果然是的.谢谢!

 回到顶部