サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2009/12/28 01:26
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[基本コード][][] *
* キーワード：構造体,型変換,ユーザ定義型,,, *
***********************************************************************************
------------------------------------------------------------------------
No.3809 RE:構造体を比較 投稿者：ＮＡＯ★ [2002/02/08(金)23：03分]
------------------------------------------------------------------------
ん〜と、その前にデータをグループ化して、配列も利用したほうがよいかと思います。
そうすればループが使えます。
たとえばこんな感じ。(標準モジュールに記述)
Public Type Cur_Data
head(3) As String 'ヘッダー部分
ID(151) As String 'ID部分
var(151) As Integer '数値部分
End Type
Public New_Cur As Cur_Data 'Newデータのグローバルメモリ
Public Old_Cur As Cur_Data 'Oldデータのグローバルメモリ
'データを直接指定したいときには定数や列挙型を使えばわかりやすい
' こうすればNew_Cur.head(head.stDATE) という指定方法も可能
Public Enum head
stDATE
stTIME
stNTIME
End Enum
Public Function data_check() As Boolean
Dim ret As Boolean
ret = True
For i = 0 To UBound(New_Cur.head)
If New_Cur.head(i) <> Old_Cur.head(i) Then
data_check = False
Exit Function
End If
Next
For i = 1 To UBound(New_Cur.ID)
If New_Cur.ID(i) <> Old_Cur.ID(i) Then
data_check = False
Exit Function
End If
If New_Cur.var(i) <> Old_Cur.var(i) Then
data_check = False
Exit Function
End If
Next
data_check = ret
End Function
--------------------------------------------------------------------------------
No.4132 RE:ユーザ定義型の比較 投稿者：ＮＡＯ★ [2002/03/20(水)16：28分]
--------------------------------------------------------------------------------
も参考に
 |
