漢字をＢｙｔｅに転送したい

解決

ゼブラーマンが見たい 2004-02-18 11:04:14 No: 82103 IP: [192.*.*.*]

Midでは１文字分を認識してしまうためうまく行かないのは
わかるのですが、ではどうしたらよいのか？がわかりません。

Dim bByte(4)        As Byte
Dim sMoji           As String
Dim X               AS Integer

sMoji = "あいうえお"

For X = 1 To 5
    bByte(I - 1) = Asc(Mid(sMoji, I, 1))
Next X

編集削除

ゼブラーマンが見たい 2004-02-18 11:12:06 No: 82104 IP: [192.*.*.*]

PGに間違いがありました。訂正します。すみません。

Dim bByte(4)        As Byte
Dim sMoji           As String
Dim X               AS Integer

sMoji = "あいうえお"

For X = 1 To 5
    bByte(X - 1) = Asc(Mid(sMoji, X, 1))
Next X

編集削除

ゼブラーマンが見たい 2004-02-18 11:45:05 No: 82105 IP: [192.*.*.*]

すみません。。
自分でいろいろしていたら解決してしまいました。
お騒がせしました。

編集削除