VB编写的自动保存文本编辑工具
用VB编辑文本编辑工具且可以自动保存如果你想学习编程，可以尝试探索一下notepad的代码。网上有很多相关资源可供参考。不过，如果只是为了方便个人使用，你可以简单地写一个VBS脚本，通过按Ctrl+S来实现保存操作。代码如下，分别保存为对应文件名，想运行点start.vbs，结束点stop.vbs'********start.vbs**********Sets=WScript.CreateObject(＂Wscript.Shell＂)DoWScript.Sleep1000*60'1min一次s.SendK
用VB编辑文本编辑工具且可以自动保存
如果你想学习编程，可以尝试探索一下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＂
vb如何实现自动排版
如果没有特殊要，那就按照轮流的方法去实现好了：
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
vb给文本框中的内容按ASCII码排列的程序
窗体中放置一个文本框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就可以了 汉语也是按拼音顺序排（多音字有异）
赤友清理大师是一款为 Mac 设计的智能清理优化工具，可精准扫描垃圾、大文件、重复文件等，释放磁盘空间。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
Wise Folder Hider Pro 是一款专业级文件和文件夹隐藏加密软件，为私密数据添加多重保护。高频操作更强调就近处理，浏览、整理和跨目录移动文件时，来回切换和重复点击都会少很多。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
