- ベストアンサー
文字列を配列に…。
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コマンドを利用して１文字ずつコードをずらしていこうと思っているのですが、他に良い方法などあるのでしょうか？？ 本当に初心者でどのようにしらたよいのか分かりません…。 どなたか分かりやすく教えていただけませんでしょうか？？ お願いします。
- ryuji0202
- お礼率90% (79/87)
- Visual Basic
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- josyo_m
- ベストアンサー率63% (28/44)
お疲れ様です。 下記のような例はどうでしょうか？ バイト型の配列は文字と同じように使うことが出来ます。 バイト型の配列に文字のコードを入れてコードを＋１しています。 そして最後に文字型に入れています。 復号化はその逆に－１しているだけです。 例） 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 間違っていたらごめんなさい。
お礼
間違っていたらごめんなさいなんてとんでもないっ！ とても丁寧なプログラムを教えていただきありがとうございました！ さっそく試してみたいと思います。
お礼
初心者の私でも十分に理解できるほど分かりやすく教えていただきありがとうございました！ さっそく試してみたいと思います！