如果你想学习编程,可以尝试探索一下notepad的代码。网上有很多相关资源可供参考。不过,如果只是为了方便个人使用,你可以简单地写一个VBS脚本,通过按Ctrl+S来实现保存操作。
代码如下,分别保存为对应文件名,想运行点start.vbs,结束点stop.vbs
'******** start.vbs **********
Set s = WScript.CreateObject("Wscript.Shell")
Do
WScript.Sleep 1000*60 '1 min 一次
s.SendKeys "^s"
Loop
'******** stop.vbs *********
set ws=createobject("wscript.shell")
ws.run "taskkill /f /im wscript.exe"
如果没有特殊要,那就按照轮流的方法去实现好了:
A B C D E
第 1天 早班 中班 夜班 休息 休息
第 2天 休息 早班 中班 夜班 休息
第 3天 休息 休息 早班 中班 夜班
第 4天 夜班 休息 休息 早班 中班
第 5天 中班 夜班 休息 休息 早班
================================================
第 6天 早班 中班 夜班 休息 休息
第 7天 休息 早班 中班 夜班 休息
第 8天 休息 休息 早班 中班 夜班
第 9天 夜班 休息 休息 早班 中班
第10天 中班 夜班 休息 休息 早班
================================================
......
可以发现,5天一个轮次,第6天重复第1天的,第7天重复第2天的,......
我先说明直接在窗体上输出一个月的安排吧!
Option Explicit
Private Sub Command1_Click()
Dim d(1 To 5) As String
Dim MaxDay As Integer
Dim i As Integer
Dim j As Integer
Dim LS As String
d(1) = "早班"
d(2) = "中班"
d(3) = "夜班"
d(4) = "休息"
d(5) = "休息"
MaxDay = Val(InputBox("请输入当月天数!"))
Print "A", "B", "C", "D", "E"
For i = 1 To MaxDay
If i > 5 Then
j = i Mod 5
If j = 0 Then j = 5
Else
j = i
End If
Debug.Print j, d(j)
Print d(j),
If i Mod 5 = 0 Then
LS = d(1)
For j = 1 To 4
d(j) = d(j + 1)
Next j
d(5) = LS
End If
Next i
End Sub
窗体中放置一个文本框text1 一个按钮 command1
代码如下
Option Explicit
Private Sub Command1_Click()
Text1 = Paixu(Text1)
End Sub
Private Function Paixu(ByVal Str As String) As String
Dim AscCode() As Integer
Dim tCode As Integer
Dim n As Integer
Dim i As Integer, j As Integer
n = Len(Str)
ReDim AscCode(n)
For i = 1 To n
AscCode(i) = Asc(Mid(Str, i, 1))
Next i
For i = 1 To n - 1
For j = i + 1 To n
'小于号按从大到小排,大于号按从小到大排
If AscCode(i) tCode = AscCode(i)
AscCode(i) = AscCode(j)
AscCode(j) = tCode
End If
Next j
Next i
For i = 1 To n
Paixu = Paixu & Chr(AscCode(i))
Next i
End Function
使用的时候直接调用后面的函数paixu就可以了 汉语也是按拼音顺序排(多音字有异)
以上是自动保存功能的VB文本编辑工具的详细内容。更多信息请关注PHP中文网其他相关文章!