Maison > Article > tutoriels informatiques > Outil d'édition de texte VB avec fonction de sauvegarde automatique
Si vous souhaitez apprendre la programmation, vous pouvez essayer d'explorer le code du bloc-notes. Il existe de nombreuses ressources connexes en ligne à titre de référence. Cependant, s'il s'agit uniquement d'un usage personnel, vous pouvez simplement écrire un script VBS et effectuer l'opération de sauvegarde en appuyant sur Ctrl+S.
Les codes sont les suivants. Enregistrez-les sous les noms de fichiers correspondants. Si vous souhaitez exécuter, cliquez sur start.vbs, et pour terminer, cliquez sur stop.vbs
.'******** start.vbs ***********
Set s = WScript.CreateObject("Wscript.Shell")
Faire
WScript.Sleep 1000*60' 1 min une fois
s.SendKeys"^s"
Boucle
'******** stop.vbs *********
set ws=createobject("wscript.shell")
ws.run "taskkill /f /im wscript.exe"
S'il n'y a pas d'exigence particulière, alors suivez simplement la méthode de rotation :
A B C D E
Jour 1 Quart du matin Quart de minuit Repos Repos
Jour 2 Repos Quart du matin Quart de minuit Repos
Jour 3 Repos Repos Equipe du matin Equipe de minuit Equipe de nuit
Jour 4 Quart de nuit Repos Repos Quart du matin Quart de midi
Jour 5 Quart de minuit Repos Repos Quart du matin
================================================= =
Jour 6 Quart du matin Quart de minuit Repos Repos
Jour 7 Repos Quart du matin Quart de minuit Quart de nuit Repos
Jour 8 Repos Repos Equipe du matin Equipe de minuit Equipe de nuit
Jour 9 Quart de nuit Repos Repos Quart du matin Quart de midi
Jour 10 Quart de minuit Repos Repos Quart du matin
================================================= =
......
On constate que sur une ronde de 5 jours, le 6ème jour répète le 1er jour, le 7ème jour répète le 2ème jour,...
Laissez-moi d'abord vous expliquer comment afficher le planning d'un mois directement sur le formulaire !
Option explicite
Sous-commande privée1_Click()
Dim d (1 à 5) comme chaîne
Dim MaxDay en tant qu'entier
Dim i As Integer
Dim j comme entier
Dim LS comme chaîne
d(1) = "équipe du matin"
d(2) = "Classe moyenne"
d(3) = "Équipe de nuit"
d(4) = "repos"
d(5) = "repos"
MaxDay = Val(InputBox("Veuillez saisir le nombre de jours dans le mois !"))
Imprimez "A", "B", "C", "D", "E"
Pour i = 1 à MaxDay
Si je > 5 Alors
j = je Mod 5
Si j = 0 Alors j = 5
Autre
j = je
Fin si
Debug.Print j, d(j)
Imprimer d(j),
Si je Mod 5 = 0 Alors
Imprimer
LS = d(1)
Pour j = 1 à 4
d(j) = d(j + 1)
Suivant j
d(5) = LS
Fin si
Suivant je
Fin du sous-marin
Placez une zone de texte text1 et un bouton commande1 dans le formulaire
Le code est le suivant
Option explicite
Sous-commande privée1_Click()
Texte1 = Paixu(Texte1)
Fin du sous-marin
Fonction privée Paixu (ByVal Str As String) As String
Dim AscCode() en tant qu'entier
Dim tCode As Integer
Dim n As Integer
Dim i comme entier, j comme entier
n = Len(Str)
ReDim AscCode(n)
Pour i = 1 à n
AscCode(i) = Asc(Mid(Str, i, 1))
Suivant je
Pour i = 1 à n - 1
Pour j = i + 1 À n
'Les nombres inférieurs à sont triés du grand au petit, et les signes supérieurs à sont triés du petit au grand
Si AscCode(i) tCode = AscCode(i)
AscCode(i) = AscCode(j)
AscCode(j) = tCode
Fin si
Suivant j
Suivant je
Pour i = 1 à n
Paixu = Paixu & Chr(AscCode(i))
Suivant je
Fin de fonction
Lors de son utilisation, il suffit d'appeler directement la fonction suivante paixu. Le chinois est également classé dans l'ordre piny (les caractères polyphonétiques sont différents)
Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!