Outil d'édition de texte VB avec fonction de sauvegarde automatique

Modifier l'outil d'édition de texte avec VB et peut enregistrer automatiquement

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"

Comment réaliser la composition automatique en vb

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

Programme VB pour organiser le contenu dans la zone de texte selon le code ASCII

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!