我有时需要以 MySQL 格式输入当前日期 + 时间,即 YYYY-MM-DD HH:MM。
在我自己编写一个之前,是否有人知道可以执行此操作的 Windows 小程序,以便我只需双击它,然后将剪贴板粘贴到其他地方?
谢谢。
编辑:事实证明,这很容易做到自由基础,尽管它是一个控制台小程序而不是 GUI 小程序:
#include "vbcompat.bi"
#include "windows.bi"
Sub ClearClipboard(hwnd As HWND = NULL)
OpenClipboard(hWnd)
EmptyClipboard()
CloseClipboard()
End Sub
Sub WriteClipboard(Text As String, CPFormat As Integer = CF_TEXT, hWnd As HWND = NULL)
Var hGlobalClip = GlobalAlloc(GMEM_MOVEABLE Or GMEM_SHARE, Len(Text)+1)
OpenClipboard(hWnd)
EmptyClipboard()
Var lpMem = GlobalLock(hGlobalClip)
CopyMemory(lpMem, StrPtr(Text), Len(text))
GlobalUnlock(lpMem)
SetClipboardData(CPFormat, hGlobalClip)
CloseClipboard()
End Sub
Dim a As Double = Now()
Dim CurrentDateTime as String
ClearClipboard()
CurrentDateTime = Format(a, "yyyy-mm-dd hh:mm")
WriteClipboard(CurrentDateTime)
答案1
我很快就制作了一个名为“HTA”的实用程序来执行此操作获取MySQL日期时间使用 VBScript。您可以随意使用/修改/重新分发它以用于任何目的。由于它是 HTA,您可以使用任何文本编辑器直接修改代码。
使用方法:运行后字符串就会出现在剪贴板上。点击“刷新”按钮即可更新。