[過去ﾛｸﾞ] Jane Style (Windows版) Part229 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

885: 2023/05/20(土)12:38 ID:wIMqmBtk0(1/3) AAS
串使いたく無いって奴はほっとけよ

---

891(5): 2023/05/20(土)14:29 ID:wIMqmBtk0(2/3) AAS
暇つぶしにNGワード対策用のスクリプトを書いてみた

以下のソース(VBScript)をメモ帳等に張り付けて適当な名前(例:Text2Code.vbs)で保存
-----------------------------------------------
Option Explicit
Dim a, b, c, d, i
Do
a = InputBox(d,"Text to Code", b) : b = a
If IsEmpty(b) Then Exit Do
c = len(b) : d = ""
If c > 0 Then
For i = 1 to c
a = Mid(b, i, 1)
If i Mod 3 = 1 And a <> " " Then
d = d & "&#" & AscW(a) & ";"
Else
d = d & a
End If
Next
CreateObject("WScript.Shell").Exec("clip").StdIn.Write d
End If
Loop
-----------------------------------------------

使い方
vbsファイルをダブルクリックで起動
入力欄にコード化したい文字列を入力して[OK]をクリックするとクリップボードに変換した文字列が出力されるのでそれをペーストして書き込みに使用する
[キャンセル]をクリックすると終了

---

892: 2023/05/20(土)14:33 ID:wIMqmBtk0(3/3) AAS
ちなみに入力されたすべての文字列をコード化する訳ではなく、飛ばし飛ばしにコード化する感じ
（全部コード化すると無駄に長くなりがちなため）

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.036s