C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: COBOLのHIGH-VALUEをString型で実現する


(過去ログ 70 を表示中)

[トピック内 3 記事 (1 - 3 表示)]  << 0 >>

■40899 / inTopicNo.1)  COBOLのHIGH-VALUEをString型で実現する
  
□投稿者/ jun (1回)-(2009/09/06(Sun) 01:45:34)

分類:[VB.NET/VB2005 以降] 

お世話になります。

言語:VB2005

以下のようなCOBOLコーディングをVB2005実現したいです。

(COBOL)
01  KEY-AREA.
  03  AAA  PIC X(04).
  03  BBB  PIC 9(04).
MOVE HIGH-VALUE TO KEY-AREA.

(VB2005)
Dim KEY-AREA as String と宣言して、
値をHEX"FFFF〜"の8バイトとしたいのです。

よろしくお願いします。

引用返信 編集キー/
■40900 / inTopicNo.2)  Re[1]: COBOLのHIGH-VALUEをString型で実現する
□投稿者/ もりお (68回)-(2009/09/06(Sun) 10:28:29)
2009/09/06(Sun) 10:28:49 編集(投稿者)
No40899 (jun さん) に返信
> Dim KEY-AREA as String と宣言して、
> 値をHEX"FFFF〜"の8バイトとしたいのです。

16進文字列を文字列に変換したいということでしょうか。

Dim text As String = ""
Dim h As String = "686F6765"
For i As Integer = 0 To h.Length - 2 Step 2
    Dim byteString As String = h.Substring(i, 2)
    Dim charCode As Integer = Convert.ToInt32(byteString, 16)
    text &= ChrW(charCode)
Next
Console.WriteLine(text)

引用返信 編集キー/
■40901 / inTopicNo.3)  Re[2]: COBOLのHIGH-VALUEをString型で実現する
□投稿者/ jun (3回)-(2009/09/06(Sun) 14:12:21)
もりおさん、返信ありがとうございます。

無事、解決しました。
ありがとうございました。

解決済み
引用返信 編集キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

管理者用

- Child Tree -