[過去ログ] Jane Style (Windows版) Part229 (1002レス)
上下前次1-新
抽出解除 レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
リロード規制です。10分ほどで解除するので、他のブラウザへ避難してください。
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]をクリックするとクリップボードに変換した文字列が出力されるのでそれをペーストして書き込みに使用する
[キャンセル]をクリックすると終了
893: 2023/05/20(土)14:43 ID:Od141idH0(1/2) AAS
>>891
良いんじゃないかな。
これを貼った時に各種のブラウザでどう見えるか次第。
https://www.amazon.co.jp/dp/B06WVJXBFR
898: 2023/05/20(土)15:13 ID:p9c1QaRI0(1/2) AAS
>>891
( ´,_ゝ`)プッ
916: 2023/05/21(日)00:13 ID:WMyZhIXP0(1) AAS
>>891
使い方がいまいちワカラン
919: 2023/05/21(日)01:55 ID:cPU35goc0(1) AAS
>>891
もっと単純に、実行するとクリップボード上の文字列をコードに置換編集するだけのスクリプトでもいいかもしれん
ショートカットキーにでも登録しておけばいちいち立ち上げる必要もない
968: 2023/05/22(月)03:03 ID:WiyfV6JK0(1) AAS
>>891
それだとコードの値が32768以上になるとマイナスの値になると思うよ
コードの表記は10進じゃなくて16進にしといた方がいい気がする
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ
ぬこの手 ぬこTOP 0.028s