自動保存機能付きのVBテキスト編集ツール

VB を使用してテキスト編集ツールを編集し、自動的に保存できます

プログラミングを学びたい場合は、メモ帳のコードを調べてみてください。参照用の関連リソースがオンラインに多数あります。ただし、個人的な使用だけであれば、VBS スクリプトを作成し、Ctrl S を押して保存操作を実行することもできます。

コードは以下の通りです。対応するファイル名で保存してください。実行する場合は start.vbs をクリックし、終了する場合は stop.vbs をクリックしてください。

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

Set s = WScript.CreateObject(＂Wscript.Shell＂)

＃＃＃する＃＃＃

WScript.Sleep 1000*60 '1 回 1 分

s.SendKeys "^s"

＃＃＃ループ＃＃＃

'******** 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 日目を繰り返していることがわかります...

まずは1ヶ月のスケジュールをフォームに直接出力する方法を説明します！

明示的なオプション

プライベートサブコマンド1_Click()

Dim d(1 ～ 5) を文字列として使用する

Dim MaxDay を整数として指定

Dim i を整数として使用する

Dim j As Integer

Dim LS を文字列として使用する

d(1) = "朝勤"

d(2) = "中流階級"

d(3) = "夜勤"

d(4) = "休憩"

d(5) = "休憩"

MaxDay = Val(InputBox("月の日数を入力してください!"))

「A」、「B」、「C」、「D」、「E」を印刷します

For i = 1からMaxDayまで

If i > 5 then

j = i Mod 5

j = 0 の場合、j = 5

＃＃＃それ以外＃＃＃

j = i

終了の場合

Debug.Print j, d(j)

d(j),

を印刷

If i Mod 5 = 0 then

印刷

LS = d(1)

j = 1 ～ 4の場合

d(j) = d(j 1)

次のj

d(5) = LS

終了の場合

次のi

エンドサブ

テキストボックスの内容をASCIIコードに従って配置するVBプログラム

テキスト ボックス text1 とボタン command1

をフォームに配置します。

コードは以下のように表示されます

明示的なオプション

プライベートサブコマンド1_Click()

Text1 = Paixu(Text1)

エンドサブ

プライベート関数Paixu(ByVal Str As String) As String

Dim AscCode() を整数として使用する

整数としての Dim tCode

Dim n As Integer

Dim i を整数として、j を整数として

n = レン(Str)

ReDim AscCode(n)

For i = 1 to n

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

次のi

For i = 1 To n - 1

j = i 1からnの場合

'小なり記号は大きいものから小さいものの順に並べ替えられ、大なり記号は小さいものから大きいものの順に並べ替えられます

If AscCode(i) tCode = AscCode(i)

AscCode(i) = AscCode(j)

AscCode(j) = tCode

終了の場合

次のj

次のi

For i = 1 to n

Paixu = Paixu & Chr(AscCode(i))

次のi

関数の終了

使用する場合は、次の関数paixuを直接呼び出すだけです中国語もピンイン順に配列されています(多音文字は異なります)

以上が自動保存機能付きのVBテキスト編集ツールの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。