[リストへもどる]
一括表示
投稿時間：2003/07/09(Wed) 17:44
投稿者名：くさや
Ｅメール：
ＵＲＬ　：
タイトル：文字列をユーザー定義型に割り当てる
type 社員
    社員コード as String * 8
    氏名 as String * 50
    住所 as String * 200
end type

上記のようなユーザー定義型に対して、上記内容が固定長で編集された文字列
（社員コード * 8バイト + 氏名 * 50バイト + 住所 as String * 200バイト)
を代入する処理を作成しています。

が、VBでは文字列がUNICODEで扱われるため、どのようにすればよいのか
分かりません。

一項目ずつ抽出して代入するしかないのでしょうか？


どなたか教えてください。

投稿時間：2003/07/10(Thu) 00:28
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: 文字列をユーザー定義型に割り当てる
実データがどのようになっているかで違ってくるかと思います。
半角と全角が混在していなければ、多分そのままで大丈夫かとおもいます。
まあ、試してみた方が早いかと思います。
ここの、ランダムファイルの簡単な使用例（住所録作成）参照

投稿時間：2003/07/10(Thu) 15:21
投稿者名：くさや
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: 文字列をユーザー定義型に割り当てる
ありがとうございます！！参考にさせていただきます。
都合により今は確認できませんので、また質問するかも分かりません。
その時は、どうぞよろしくお願いいたします。

ちなみに半角・全角は混在しています。

投稿時間：2003/07/10(Thu) 00:33
投稿者名：Lantern
Ｅメール：
ＵＲＬ　：
タイトル：Re: 文字列をユーザー定義型に割り当てる
LSetを使えばできると思います。

Private Type Aset
    a As String * 8
    b As String * 10
    c As String * 20
End Type
Private Type Bset
    d As String * 38
End Type

Private Sub Command1_Click()

Dim e As Aset
Dim f As Bset

f.d = "12345678" & "ABCDEFGHIJ" & "あいうえおかきくけこ"

LSet e = f

Me.Label1.Caption = e.a
Me.Label2.Caption = e.b
Me.Label3.Caption = e.c

End Sub

投稿時間：2003/07/10(Thu) 15:19
投稿者名：くさや
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: 文字列をユーザー定義型に割り当てる
ありがとうございます！！参考にさせていただきます。
都合により今は確認できませんので、また質問するかも分かりません。
その時は、どうぞよろしくお願いいたします。