文字変換 (ID:119991)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 LESIAさん、レスありがとう。(^^ 魔界の仮面弁士さんの格調高い説明の後で書きにくいんだけど、 けじめをつける意味で。 こういうのはFunctionを使った方がいいよ。 Private Function Encode(ByVal s As String) As String Dim AscNo As Integer AscNo = Asc(s) Do If AscNo >= Asc("熙") Then AscNo = Asc("、") Else AscNo = AscNo + 1 End If Loop While (AscNo <> Asc(Chr(AscNo)) Or Chr(AscNo) = " " Or Chr(AscNo) = " ") Encode = Chr(AscNo) End Function Private Function Decode(ByVal s As String) As String Dim AscNo As Integer AscNo = Asc(s) Do If AscNo < Asc("、") Then AscNo = Asc("熙") Else AscNo = AscNo - 1 End If Loop While (AscNo <> Asc(Chr(AscNo)) Or Chr(AscNo) = " " Or Chr(AscNo) = " ") Decode = Chr(AscNo) End Function 可逆性があるかどうかは >If strDummy <> "・" Then よりも AscNo <> Asc(Chr(AscNo)) の方がいいかな。 Chr(AscNo) = " " Or Chr(AscNo) = " " 半角と全角のスペースも暗号には不向きなのでこれもスキップ、テキストボックスの方でも 入力できないようにする。 ただし当方文字コードについてはかなり疎い、何かとんでもない落とし穴があるような。。