以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ukey写入 读取问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172410)
--  作者：夜点蚊香
--  发布时间：2021/10/11 17:38:00
--  ukey写入 读取问题
If UKey.Start() Then
    Dim Val As String = "123Lenovo"
    If UKey.LenStrA(Val) > 50 Then
        MessageBox.Show("用户名长度不能超过50个字节!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        If UKey.WriteStr(201,val,Vars("pw1"),Vars("pw2")) = True
            MessageBox.Show("成功写入数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
End If
写入代码显示写入成功。写入字段位置是从 201开始 50个字节
读取代码，读取不到任何数值  代码如下
If UKey.Start() Then
    Dim val As String
    val = UKey.ReadStr(201,250).Trim()
    If val > "" Then
        MessageBox.Show("授权用户: " & val ,"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

代码运行环境  （命令窗口）
200以下位置都可以存入，是不是UKEY坏了？
[此贴子已经被作者于2021/10/11 17:55:47编辑过]
--  作者：有点蓝
--  发布时间：2021/10/11 20:14:00
--  
val = UKey.ReadStr(201,50).Trim()

从存储器读数据

UKey有一个ReadStr函数，用于从存取器读取数据，语法为：

ReadStr(Index,Length)

Index：开始读取的位置
Length：读取长度

如果读取成功，则返回读取的内容，否则返回空值。
需要注意的是，由于存储器只有400个字节，所以Index和Length两个参数之和，不能超过400，否则将读不到数据。
--  作者：夜点蚊香
--  发布时间：2021/10/11 21:20:00
--  
问题解决了。谢谢