- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]根据完整路径所在文件生成md5值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176533)
-- 发布时间：2022/4/16 18:25:00
-- [求助]根据完整路径所在文件生成md5值
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:根据完整路径所在文件生成md5值.foxdb |
求助，根据完整路径所在文件生成md5值
-- 发布时间：2022/4/17 20:06:00
--
参考：http://www.foxtable.com/webhelp/topics/1489.htm
tables("表A").current("md5") = CRCCheckFile(tables("表A").current("路径"))
-- 发布时间：2022/4/17 23:11:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
蓝主，我想计算出32位md5，求助下面代码修改
Dim r As Row = Tables("表A").Current
If r.IsNull("完整路径") Then
Dim tr As String = r("完整路径")
Dim hash = System.Security.Cryptography.SHA1.Create()
Dim stream = new System.IO.FileStream(tr, System.IO.FileMode.Open)
Dim hashByte() As Byte = hash.ComputeHash(stream)
stream.Close()
msgbox( BitConverter.ToString(hashByte).Replace("-", ""))
Tables("表A").current("md5") = BitConverter.ToString(hashByte).Replace("-", "")
End If
-- 发布时间：2022/4/17 23:16:00
--
代码有什么问题，要改什么？
-- 发布时间：2022/4/17 23:25:00
-- 回复：（有点蓝）代码有什么问题，要改什么？
代码没反应
-- 发布时间：2022/4/18 8:32:00
--
If r.IsNull("完整路径") Then
改为
If r.IsNull("完整路径") = false Then