以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  foxtable有生成一个GUID 字符串的函数吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23651)
--  作者：zoomify
--  发布时间：2012/9/15 15:55:00
--  foxtable有生成一个GUID 字符串的函数吗？

 
--  作者：狐狸爸爸
--  发布时间：2012/9/15 15:58:00
--  
Dim s As String = Guid.NewGuid.ToString()
--  作者：zoomify
--  发布时间：2012/9/15 16:18:00
--  
谢谢！还有两个问题：
1、我刚找到api可以做到，想把这个放到全局代码却不成功？因为要定义一个Type 。如果以后遇到想用这样（复杂的）api来扩展的，如果引用成功呢？
2、既然有 Dim s As String = Guid.NewGuid.ToString()  这样的办法，chm文档里面为什么搜索guid字符搜不到呢？搜不到我才以为没有这个功能？哪里有全接口的解释文档。
 
 
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type

Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As GUID) As
Long

Public Function GetGUID() As String
\'(c) 2000 Gus Molina

Dim udtGUID As GUID

If (CoCreateGuid(udtGUID) = 0) Then

GetGUID = _
String(8 - Len(Hex$(udtGUID.Data1)), "0") & Hex$(udtGUID.Data1) & _
String(4 - Len(Hex$(udtGUID.Data2)), "0") & Hex$(udtGUID.Data2) & _
String(4 - Len(Hex$(udtGUID.Data3)), "0") & Hex$(udtGUID.Data3) & _
IIf((udtGUID.Data4(0) < &H10), "0", "") & Hex$(udtGUID.Data4(0)) & _
IIf((udtGUID.Data4(1) < &H10), "0", "") & Hex$(udtGUID.Data4(1)) & _
IIf((udtGUID.Data4(2) < &H10), "0", "") & Hex$(udtGUID.Data4(2)) & _
IIf((udtGUID.Data4(3) < &H10), "0", "") & Hex$(udtGUID.Data4(3)) & _
IIf((udtGUID.Data4(4) < &H10), "0", "") & Hex$(udtGUID.Data4(4)) & _
IIf((udtGUID.Data4(5) < &H10), "0", "") & Hex$(udtGUID.Data4(5)) & _
IIf((udtGUID.Data4(6) < &H10), "0", "") & Hex$(udtGUID.Data4(6)) & _
IIf((udtGUID.Data4(7) < &H10), "0", "") & Hex$(udtGUID.Data4(7))
End If

End Function
3. 向窗体, 添加命令按钮并将以下代码添加到窗体：
      Private Sub Command1_Click()
           MsgBox GetGuid
      End Sub

 

[此贴子已经被作者于2012-9-15 16:28:08编辑过]
--  作者：zoomify
--  发布时间：2012/9/15 16:27:00
--  
哇 原来 My.Computer.FileSystem.WriteAllText("C:\\Test.txt", "黄", True) 这样的dotnet代码都可以运行，foxtable真是神物，我一直限制思维以为只能靠foxtable自己了！
--  作者：狐狸爸爸
--  发布时间：2012/9/15 16:43:00
--  

guid并不常用，所以foxtable自带的帮助没有包括进去。
.net几乎所有的内容都可以在foxtable使用的。

不过foxtable确实提供了一个类似的，guid不过是生成随机字符而已，Foxtable也一样：

Dim s As String = rand.NextString(32)

 

这个帮助有讲述的。
--  作者：lxl
--  发布时间：2012/9/15 20:00:00
--  
Output.Show(Guid.NewGuid().ToString())
--  作者：飞飞
--  发布时间：2016/7/10 16:46:00
--  
以下是引用lxl在2012/9/15 20:00:00的发言：
Output.Show(Guid.NewGuid().ToString())

你这是抢狐爸的风头。。。 guid mark