漢字をByteに転送したい

解決


ゼブラーマンが見たい  2004-02-18 20:04:14  No: 82103

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

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 20:12:06  No: 82104

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 20:45:05  No: 82105

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


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

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。






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