在 Visual C++ 中创建一个舒适的待办事项列表。

1. 您可以免费使用本文中的代码在您自己的程序中（并且可以将它编译成一个程序并以编译后的格式分发，如果您的编程语言允许的话）。
2. 未经原始作者的书面许可，您不得重新分发本文（例如，到网站）。否则将违反版权法。
3. 您可以从其他网站链接到本文，但前提是它没有被包含在框架中。
4. 您将遵守作者可能在文章或文章描述中添加的任何其他版权限制。

<CODE>
Sub OpenTodoList()
'DESCRIPTION: Opens the todo.
Documents.Open "[path]", "Text"
End Sub
Remember to replace the path with the path to your text file just like in the example

<CODE>
Sub WriteDate()
'DESCRIPTION: Writes the date, duh.
ShortName=ActiveDocument.Name
If ShortName="[filename]" Then
Line = ActiveDocument.Selection.CurrentLine
Column = ActiveDocument.Selection.CurrentColumn
'Finding the bottom
ActiveDocument.Selection.SelectAll
Bottom = ActiveDocument.Selection.BottomLine
ActiveDocument.Selection.GoToLine Line
'Find the place for the date
Do
ActiveDocument.Selection.LineDown
ActiveDocument.Selection.StartOfLine
ActiveDocument.Selection.CharRight dsExtend
Loop Until ActiveDocument.Selection = "*"
ActiveDocument.Selection.LineUp
ActiveDocument.Selection.EndOfLine
ActiveDocument.Selection = " (" & CStr(Date) & ")"
'Find the place to do the BreakPoint
ActiveDocument.Selection.LineDown
Do
ActiveDocument.Selection.LineUp
ActiveDocument.Selection.StartOfLine
ActiveDocument.Selection.CharRight dsExtend
Loop Until ActiveDocument.Selection = "*"
ExecuteCommand "DebugToggleBreakpoint"
'Moving back
ActiveDocument.Selection.GoToLine Line
ActiveDocument.Selection.CharRight dsMove, Column
Else
ExecuteCommand "DebugToggleBreakpoint"
End If
Remember to replace the path with the path to your text file just like in the example