文字列を配列に…。

Question

VBはまだ始めたばかりで本当に初歩的なことかもしれませんが分かる方がおられたら是非教えて下さい。

text1.textから取り込んだ文字列を”一文字ずつ”（Dim a(100) as stringで宣言した)配列に格納したいのですがどうしたらいいのでしょうか？？
＜例＞text1.textに"abc"と入力しcommandbuttonを押すとa(0)に"a"がa(1)に"b"がa(2)に"c"が格納されるといったかんじです。

ちなみに今私がしたいのはtext1.textに、ある文字列を入れその文字列を文字コードに変換しそれを一文字分ずつ+1してまたそのコードを文字に直しtext2.textに出力するというものです（ようは簡単な暗号化ですね）。

私はAscとChrコマンドを利用して１文字ずつコードをずらしていこうと思っているのですが、他に良い方法などあるのでしょうか？？

本当に初心者でどのようにしらたよいのか分かりません…。
どなたか分かりやすく教えていただけませんでしょうか？？
お願いします。

sha-girl · Accepted Answer

for i = 1 to len(text1.text) 
a(i-1)=mid(text1.text),i,1) 
if c="\" then cnt=cnt+1 
next i 

mid関数を使って1文字ずつとりだしてます。
1つずつa(i)にはいっていくはずです。
初心者ということでしたのでlen関数も説明しておきます。
len関数は文字数の数を返します。全角半角は問いません。

でアスキーコードを1ずらすには
a(i)=chr(asc(a(i))+1)

こんなんでどうでしょうか？
あとは連結させるだけです。

josyo_m · Answer

お疲れ様です。

下記のような例はどうでしょうか？

バイト型の配列は文字と同じように使うことが出来ます。
バイト型の配列に文字のコードを入れてコードを＋１しています。
そして最後に文字型に入れています。

復号化はその逆に－１しているだけです。

例）

Private Sub Command1_Click()

　　Dim str     As String
　　Dim arr()   As Byte
　　Dim i       As Long
    
　　str = "abc"

　　'// 暗号化
　　'// バイト型の配列に文字コードを代入
　　arr = StrConv(str, vbFromUnicode)
    
　　For i = LBound(arr) To UBound(arr)
　　　　
　　　　'// コードを＋１
　　　　arr(i) = arr(i) + 1
        
　　Next i
    
　　'// 文字型に戻す
　　str = StrConv(arr, vbUnicode)
    
　　Debug.Print str

　　'// 復号化
　　'// バイト型の配列に文字コードを代入
　　arr = StrConv(str, vbFromUnicode)
    
　　For i = LBound(arr) To UBound(arr)

　　　　'// コードを－１
　　　　arr(i) = arr(i) - 1
        
　　Next i
   
　　'// 文字型に戻す
　　str = StrConv(arr, vbUnicode)
    
　　Debug.Print str

End Sub

間違っていたらごめんなさい。

文字列を配列に…。

for i = 1 to len(text1.text)

お疲れ様です。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング