源代码推荐:vb的GUID生成算法
源代码推荐:vb的GUID生成算法
&急性;如果成功,返回:GUID否则为空字符串。
& acute;与注册表中的GUID不同,该函数返回GUID
& acute;不带“-”字符。如果您
& acute;请查看评论了解如何修改想要破折号。
public Function GUID()As String
Dim lRetVal As Long
Dim udt GUID As GUID
Dim sPartOne As String
Dim sPartThree As String
Dim sPartThree As String
Dim iDataLen As Integer
Dim iStrLen As Integer
Dim iCtr As Integer
Dim sAns As String
前8个字符
sPartOne = Hex$(udtGuid。PartOne)
iStrLen = Len(sPartOne)
idata Len = Len(udt guid。PartOne)
sPartOne = String((idata len * 2)-iStrLen," 0))_
& Trim $(sPartOne)
& acute;接下来的4个字符
sPartTwo = Hex$(udtGuid。part two)
iStrLen = Len(spart two)
iDataLen = Len(udt guid。part two)
sPartTwo = String((idata len * 2)-iStrLen," 0))_
& Trim $(sPartTwo)
& acute;接下来的4个字符
sPartThree = Hex$(udtGuid。part three)
iStrLen = Len(spart three)
iDataLen = Len(udt guid。part three)
spart three = String((idata len * 2)-iStrLen," 0))_
& Trim $(spart three)& acute;接下来的2个字节(4个十六进制数字)
& acute;iCtr = 0到7的最后16个字符
spart four = spart four & _
Format $(Hex $(udt guid。第四部分(卢旺达问题国际法庭))," 00")
接下来
&急性;要创建带“-”的GUID,请将下面的行改为:
& acute;sAns = sPartOne & "-" & spart two & "-" & spart three _
& acute;& "-" & spart four
sAns = spart one & spart two & spart three & spart four
End If
GUID = sAns
Exit函数
错误处理程序:
& acute;如果存在& acute则返回空字符串这是一个错误
退出函数
结束函数
0条评论