文字変換

解決


さくら  2005-03-01 22:38:41  No: 119985

vb6 win2000
例  あいうえお
と入力されたら一文字づつ抜き出してasc()に変換して+1してchr()で変換して表示しています。
http://www.infonet.co.jp/ueyama/ip/binary/x0208txt.html
のJISコードを参考にしてやっているのですが『ん』とか最後(右端)にくる文字が『・』に変えられてしまい(次の文字が無い為)変換した後に元に戻す(chr(asc()-1))ことが出来ません。
なにか良い対策がありましたら教えて下さい。


ねろ  2005-03-02 00:40:09  No: 119986

>なにか良い対策がありましたら教えて下さい。
対策と言われても何に使いたいか判らないと難しいな。。。
簡易の暗号か何かでしょうか?
『・』が出てきたら文字が出るまで、Asc()をインクリメントするとか。
戻す場合は『・』が出てきたら文字が出るまでディクリメントするとか。
これで一応可逆性は保てますが。
最初と最後をくっ付けることを忘れないように。


LESIA  2005-03-02 01:48:45  No: 119987

chrに変換するのではなく、asc()の値を保持してればいいのでは?

Option Explicit

Private moji() As Long

Private Sub Form_Load()
    Text1.Text = "あいうえお"
End Sub

'変換
Private Sub Command1_Click()
    Dim i As Integer
    
    ReDim moji(1 To Len(Text1.Text))
    For i = 1 To Len(Text1.Text)
        moji(i) = Asc(Mid$(Text1.Text, i, 1)) + 1
    Next i

    Text2.Text = ""
    For i = LBound(moji) To UBound(moji)
        Text2.Text = Text2.Text & Chr(moji(i))
    Next i
End Sub

'元に戻す
Private Sub Command2_Click()
    Dim i As Integer
    
    Text2.Text = ""
    For i = LBound(moji) To UBound(moji)
        Text2.Text = Text2.Text & Chr(moji(i) - 1)
    Next i
End Sub


さくら  2005-03-02 02:10:03  No: 119988

ねろさん、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


LESIA  2005-03-02 02:27:41  No: 119989

>『・』が出てきたら文字が出るまで、Asc()をインクリメントするとか。
ねろさんのアドバイスですと文字がなくなってしまいます(*.*);

だから
>最初と最後をくっ付けることを忘れないように。
ということです。
つまり文字がなくなったら、Ascコードを最初の文字のにするということです。

元に戻す時は、『・』が出てきたら文字が出るまで、Asc()をデクリメントして
文字がなくなったら、最後の文字にします。


魔界の仮面弁士  2005-03-02 02:42:04  No: 119990

使用可能な文字コードの範囲には、限りがありますよね。
なので、その範囲内でやり繰りする必要がある事を念頭に置いて下さい。

たとえば、A〜Zの範囲だけで考えてみると、文字コードは
  A→&H41, B→&H42, ……, Y→&H59, Z→&H5A
のようになっていますよね。

これを、単純に +1 だけずらす(シフトさせる)という事は、
  A→&H42, B→&H43, ……, Y→&H5A, Z→&H5B
のようにするのではなく、
  A→&H42, B→&H43, ……, Y→&H5A, Z→&H41
のように、最初と最後を繋げておく必要があるわけです。

もちろん、実際に使う文字は A〜Z よりも多いですし、
使われていないコード領域もありますから、それらを
考慮する必要がありますけれどね。

もう一つの案としては、元データの「1文字」を「別の1文字」に
置き換えるのではなく、「複数の文字」で表現するという手法があります。

たとえば AscW("あ") からは &H82A0 という値が返されますが、
これを "82A0" の4文字で表現すれば、(文字列長は増加しますが)
文字列を正しく暗号化/復元可能である事はわかりますよね。

ここでは、Hex関数を使って 16進数で表現しているため、1文字につき
4バイトが消費されてしまいますが、これを26進数にしたり、90進数に
したりすれば、必要なデータ量はさらに圧縮できるというわけです。

たとえば、メールの配信などに利用される、『BASE64』という
バイナリ→テキスト変換方式では、3バイト(24bit)のデータを
6bit単位で4つに区切る事で、あらゆるデータを4バイト単位の
テキストに変換できるようになっています。
(6bitなら、0〜63の種類に収まるので、ASCIIの範囲で十分に表現可能)


ねろ  2005-03-02 05:56:16  No: 119991

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) = "  "
半角と全角のスペースも暗号には不向きなのでこれもスキップ、テキストボックスの方でも
入力できないようにする。

ただし当方文字コードについてはかなり疎い、何かとんでもない落とし穴があるような。。


さくら  2005-03-02 19:59:09  No: 119992

ねろさん、LESIAさん、魔界の仮面弁士さん
ありがとうございます。
みなさんのアドバイス(事細かな説明)で理解できました。
まだ完成にはいたっておりませんが、回避策が見えてきましたので解決とさせて頂きます。


さくら  2005-03-02 20:00:44  No: 119993

チェック付け忘れました(^.^;)


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加