文字変換 (ID:119988)

名前

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

本文 ねろさん、LESIAさん ありがとうございます。 ＞最初と最後をくっ付けることを忘れないように。 ねろさんすいませんが意味がわからないのですが・・・ LESIAさん簡易暗号ですのでchr()に変換したいのです。 ＞『・』が出てきたら文字が出るまで、Asc()をインクリメントするとか。 ねろさんのアドバイスですと文字がなくなってしまいます(*.*); Private Sub Command1_Click() Dim str As String Dim strDummy As String Dim i As Long Dim a As Long Dim strPW As String strPW = vbNullString str = Text1.Text For i = 1& To Len(str) strDummy = Chr(Asc(str) + 1) If strDummy <> "・" Then strPW = strPW & Chr(Asc(str) + 1) Else a = 1 Do a = a + 1 strDummy = Chr(Asc(str) + a) If strDummy <> "・" Then strPW = strPW & Chr(Asc(str) + a) Exit Do End If Loop End If Next i Text1.Text = strPW MsgBox strPW End Sub Private Sub Form_Load() Text1.Text = "わ" End Sub