VB-Textbearbeitungstool mit automatischer Speicherfunktion

Bearbeiten Sie das Textbearbeitungstool mit VB und können Sie es automatisch speichern

Wenn Sie Programmieren lernen möchten, können Sie versuchen, den Notepad-Code zu erkunden. Es gibt viele verwandte Ressourcen online als Referenz. Wenn es jedoch nur für den persönlichen Gebrauch ist, können Sie einfach ein VBS-Skript schreiben und den Speichervorgang durch Drücken von Strg+S durchführen.

Die Codes lauten wie folgt. Wenn Sie sie ausführen möchten, klicken Sie auf start.vbs und zum Beenden auf stop.vbs

'******** start.vbs ************

Setzen Sie s = WScript.CreateObject(＂Wscript.Shell＂)

Tu

WScript.Sleep 1000*60 '1 Minute einmal

s.SendKeys＂^s＂

Schleife

'******** stop.vbs *********

set ws=createobject(＂wscript.shell＂)

ws.run „taskkill /f /im wscript.exe“

So realisieren Sie den automatischen Schriftsatz in VB

Wenn keine besonderen Anforderungen bestehen, folgen Sie einfach der Rotationsmethode:

A B C D E

Tag 1 Morgenschicht Mitternachtsschicht Ruhe Ruhe

Tag 2 Ruhe Morgenschicht Mitternachtsschicht Ruhe

Tag 3 Ruhe Ruhe Morgenschicht Mitternachtsschicht Nachtschicht

Tag 4 Nachtschicht Ruhe Ruhe Morgenschicht Mittagsschicht

Tag 5 Mitternachtsschicht Ruhe Ruhe Morgenschicht

============================================== =

Tag 6 Morgenschicht Mitternachtsschicht Ruhe Ruhe

Tag 7 Ruhe Morgenschicht Mitternachtsschicht Nachtschicht Ruhe

Tag 8 Ruhe Ruhe Morgenschicht Mitternachtsschicht Nachtschicht

Tag 9 Nachtschicht Ruhe Ruhe Morgenschicht Mittagsschicht

Tag 10 Mitternachtsschicht Ruhe Ruhe Morgenschicht

============================================== =

......

Man kann feststellen, dass in einer Runde von 5 Tagen der 6. Tag den 1. Tag wiederholt, der 7. Tag den 2. Tag wiederholt,...

Lassen Sie mich zunächst erklären, wie Sie einen Monatsplan direkt auf dem Formular ausgeben!

Option explizit

Private Sub Command1_Click()

Dim d(1 bis 5) als String

MaxDay als Ganzzahl dimmen

Dim i As Integer

Dim j As Integer

LS als String dimmen

d(1) = „Morgenschicht“

d(2) = „Mittelschicht“

d(3) = „Nachtschicht“

d(4) = „Ruhe“

d(5) = „Ruhe“

MaxDay = Val(InputBox（＂Bitte geben Sie die Anzahl der Tage im Monat ein!＂)）

Drucken Sie „A“, „B“, „C“, „D“, „E“

Für i = 1 bis MaxDay

Wenn ich > 5, dann

j = i Mod 5

Wenn j = 0, dann ist j = 5

Sonst

j = i

Ende wenn

Debug.Print j, d(j)

Drucken Sie d(j),

Wenn ich Mod 5 = 0, dann

Drucken

LS = d(1)

Für j = 1 bis 4

d(j) = d(j + 1)

Nächstes j

d(5) = LS

Ende wenn

Als nächstes

End Sub

VB-Programm zum Anordnen des Inhalts im Textfeld gemäß ASCII-Code

Platzieren Sie ein Textfeld text1 und einen Button command1 im Formular

Der Code lautet wie folgt

Option explizit

Private Sub Command1_Click()

Text1 = Paixu(Text1)

End Sub

Private Function Paixu(ByVal Str As String) As String

AscCode() als Ganzzahl dimmen

TCode als Ganzzahl dimmen

Dim n As Integer

Dim i als Ganzzahl, j als Ganzzahl

n = Len(Str)

ReDim AscCode(n)

Für i = 1 bis n

AscCode(i) = Asc(Mid(Str, i, 1))

Als nächstes

Für i = 1 bis n - 1

Für j = i + 1 bis n

'Die Kleiner-als-Zeichen werden von größer nach kleiner sortiert, die Größer-als-Zeichen werden von kleiner nach größer sortiert

Wenn AscCode(i) tCode = AscCode(i)

AscCode(i) = AscCode(j)

AscCode(j) = tCode

Ende wenn

Nächstes j

Als nächstes

Für i = 1 bis n

Paixu = Paixu & Chr(AscCode(i))

Als nächstes

Endfunktion

Wenn Sie es verwenden, rufen Sie einfach die folgende Funktion auf. Chinesisch ist auch in Pinyin-Reihenfolge angeordnet (polyphonetische Zeichen sind unterschiedlich)

Das obige ist der detaillierte Inhalt vonVB-Textbearbeitungstool mit automatischer Speicherfunktion. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!